| 9Mcode comment |
 |
|
|
|
| |
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #202 [Vb] (จาก IP: 203.188.34.84)
เขียนโปรอกรม vb ให้รันอยู่ system tay (ไม่รู้สะกดถูกปะ)ข้างนาฬิกาอะครับ ทำยังไงช่วยบอกหน่อย
อยากรู้วิธีการทำให้โปรแกรมมันซ่อนตัวที่ ข้างนาฬิกาเวลลาเราจะใช้ก็คลิ๊กให้ขึ้นมาได้
ขอบคุณครับ
สำหรับที่ช่วยตอบนะครับ
rocket
|
| จากคุณ
:
rocket / rocket_en@yahoo.com [2006-02-14 20:15:32]
|
|
ความคิดเห็น #17078 (จาก IP: 124.157.138.198)
sub formload
SystemTray.cbSize = Len(SystemTray)
SystemTray.hWnd = Me.hWnd
SystemTray.uId = vbNull
SystemTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
SystemTray.ucallbackMessage = WM_MOUSEMOVE
SystemTray.hIcon = Icon
SystemTray.szTip = Caption & vbNullChar
Call Shell_NotifyIcon(NIM_ADD, SystemTray)
Private Sub Form_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, SystemTray)
End Sub
ส่วนนี้ใว้ที่โมดูล
Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE = &H200
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public SystemTray As NOTIFYICONDATA |
| จากคุณ
:
แวะมามั่ว [2006-08-22 18:24:40]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
|
New Article
อัตราค่าโฆษณา
