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

Question

你到http://www.mvps.org/vbnet 
上可以找到改变显示分辨率的API函数。
该网站有专门的API函数示例。(包括建立快捷键等等)

Answer 1

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 TypeChangeDisplaySettings(lpDevMode As DEVMODE, ByVal dwFlags As Long) As Long你还要申请一个POINTL, 然后用CopyMemory辅助访问.