用api函数:代码如下:(系统托盘实例) Private Declare Function apiEnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Private Declare Function apiChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long Private Const CCDEVICENAME = 32 Private Const CCFORMNAME = 32 Private Const DM_PELSWIDTH = &H80000 Private Const DM_PELSHEIGHT = &H100000 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type privtate sub form_load() With nfIconData .cbSize = Len(nfIconData) .hwnd = Me.hwnd .uId = vbNull .uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE .hIcon = Me.Icon .szTip = "哈尔滨高科技开发区企业信息管理系统,哈尔滨劲拓信息科技开发有限公司制作" & vbNullChar .dwState = 0 .dwStateMask = 0 .szInfo = "哈尔滨高科技开发区企业信息管理系统 " & Chr(13) & "Corporation Information Menegement System Developed By JINTO-TECH" & Chr(13) & ":)" & vbNullChar .uTimeoutOrVersion = 15000 .szInfoTitle = "劲拓软件系列" & vbNullChar .dwInfoFlags = NIIF_INFO End With Call Shell_NotifyIcon(NIM_ADD, nfIconData) End Sub
[email protected]我的油箱是,另外,那个控件有源码么?:)
Private Declare Function apiEnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function apiChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
privtate sub form_load()
With nfIconData
.cbSize = Len(nfIconData)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.hIcon = Me.Icon
.szTip = "哈尔滨高科技开发区企业信息管理系统,哈尔滨劲拓信息科技开发有限公司制作" & vbNullChar
.dwState = 0
.dwStateMask = 0
.szInfo = "哈尔滨高科技开发区企业信息管理系统 " & Chr(13) & "Corporation Information Menegement System Developed By JINTO-TECH" & Chr(13) & ":)" & vbNullChar
.uTimeoutOrVersion = 15000
.szInfoTitle = "劲拓软件系列" & vbNullChar
.dwInfoFlags = NIIF_INFO
End With Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub