点击或拖拽改变大小

PrintingDevice.GetDevMode 方法

X#

注意：此 API 现在已过时。

检索 DevMode 结构的指针。

命名空间：  XSharp.VO.SDK
程序集：  XSharp.VOGUIClasses (在 XSharp.VOGUIClasses.dll 中) 版本：2.22 GA
语法
复制
[ObsoleteAttribute]
 VIRTUAL METHOD GetDevMode() AS IntPtr
查看代码

返回值

类型：IntPtr
DevMode 结构的指针，如果结构不可访问，则为0。您应该将这个指针存储在一个类型为"AS _WINDEVMODE"的变量中。
备注
DevMode 结构在 Win32 SDK 中有文档记录，并在 X# Win32 API 库中定义。 这个结构位于底层 PrintingDevice 对象中，并通过与对象关联的设备驱动程序创建。 对这个结构的成员的更新通过 PrintingDevice:UpdateDevMode() 方法应用。
示例
这个示例访问并显示了DevMode结构的各种信息：
X#
复制
 1oPD //假定是一个PrintingDevice对象。
 2LOCAL structDevMode AS _WINDEVMODE
 3LOCAL i AS DWORD
 4LOCAL cDeviceName AS STRING
 5LOCAL cOrientation AS STRING
 6
 7structDevMode := oPD:GetDevMode()
 8
 9FOR i := 1 TO CCHDEVICENAME
10    cDeviceName:=cDeviceName+Chr(structDevMode.dmDeviceName[i])
11NEXT
12
13?"Device name is "
14??cDeviceName
15cOrientation := StringdmOrientation(structDevMode.dmOrientation)
16
17?"Orientation is "
18??cOrientation
19
20?"PaperLength is "
21??AllTrim(Str(structDevMode.dmPaperLength))
22
23?"PaperWidth is "
24??AllTrim(Str(structDevMode.dmPaperWidth))
25
26?"Number of copies is "
27??AllTrim(Str(structDevMode.dmCopies))
28
29? "dmDefaultSource "
30?structDevMode.dmDefaultSource
31
32Wait
33
34FUNCTION StringdmOrientation(nO AS SHORTINT) AS STRING
35    IF nO = DMORIENT_LANDSCAPE
36        RETURN "Landscape"
37
38        ELSEIF nO = DMORIENT_PORTRAIT
39
40        RETURN "Portrait"
41    ELSE
42        RETURN "Unknown"
43    ENDIF
参见