API中的changedisplaysetting 在VB中如何添加!

tjlth 2000-04-01 12:06:00
...全文
132 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Un1 2000-04-01
  • 打赏
  • 举报
回复

Type DEVMODE
Dim dmDeviceName(CCHDEVICENAME-1) As Byte
Dim dmSpecVersion As Integer
Dim dmDriverVersion As Integer
Dim dmSize As Integer
Dim dmDriverExtra As Integer
Dim dmFields As Long

'union {
Dim dmOrientation As Integer
Dim dmPaperSize As Integer
Dim dmPaperLength As Integer
Dim dmPaperWidth As Integer
'POINTL dmPosition;
Dim dmScale As Integer
Dim dmCopies As Integer
Dim dmDefaultSource As Integer
Dim dmPrintQuality As Integer
Dim dmColor As Integer
Dim dmDuplex As Integer
Dim dmYResolution As Integer
Dim dmTTOption As Integer
Dim dmCollate As Integer
Dim dmFormName(CCHFORMNAME-1) As Byte
Dim dmLogPixels As Integer
Dim dmBitsPerPel As Long
Dim dmPelsWidth As Long
Dim dmPelsHeight As Long
Dim dmDisplayFlags As Long
Dim dmDisplayFrequency As Long
Dim dmICMMethod As Long
Dim dmICMIntent As Long
Dim dmMediaType As Long
Dim dmDitherType As Long
Dim dmReserved1 As Long
Dim dmReserved2 As Long
Dim dmPanningWidth As Long
Dim dmPanningHeight As Long
End Type

ChangeDisplaySettings(lpDevMode As DEVMODE, ByVal dwFlags As Long) As Long

你还要申请一个POINTL, 然后用CopyMemory辅助访问.
Chen_Lin 2000-04-01
  • 打赏
  • 举报
回复
你到http://www.mvps.org/vbnet
上可以找到改变显示分辨率的API函数。
该网站有专门的API函数示例。(包括建立快捷键等等)

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧