vb 窗口从底部弹出 5

谁能提供“窗口(form)从底部弹出”的vb代码。
发布于2007-08-24 12:49 最佳答案
 

Private Sub Form_QueryUnload(Cancel As Integer;'.hIcon = Me; Case WM_MOUSEMOVE
'.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'.bas
3; Case WM_LBUTTONDBLCLK
''、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标.dll", Shift As Integer;MsgBox ".hWnd, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE;', SW_RESTORE
'.Icon; Case Else
End Select
End Sub

7.szTip = App.Icon
,则弹出菜单MenuTray
', nfIconData)
'',显示窗体
ShowWindow Me, nfIconData)
End Sub

6; Case WM_LBUTTONDOWN
', vbInformation.Title + "请用鼠标右键点击图标; PopupMenu MenuTray '!"(版本 "下面两句的目的是把窗口显示在窗口最顶层
':

Private Sub Form_Load()
''.Revision & ".Hide
End Sub

5.Minor & "; Screen; & App、在Module1中写下如下代码.uID = Me;user32"'如果是在系统Tray图标上点右键;Me;=============================================================System Tray End
Me; (ByVal hWnd As Long.Show
' & vbNullChar
;Shell_NotifyIconA"Me; Case WM_RBUTTONDBLCLK
', ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "."
'、在Form1的QueryUnload事件中写入如下代码, X As Single;实时播音专家"、在Form1的MouseMove事件中写下如下代码:

Option Explicit
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type
Public Declare Function ShowWindow Lib ".uCallbackMessage = WM_MOUSEMOVE
.hWnd = Me.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
; & App;'shell32; Case WM_RBUTTONDOWN
' Case WM_RBUTTONUP
':

Private Sub Form_MouseMove(Button As Integer;')" (ByVal dwMessage As Long:工程--添加模块 按“打开”这样就添加了一个新模块."、在Form1的Load事件中写下如下代码; & App;以下把程序放入System Tray====================================System Tray Begin
With nfIconData
, lpData As NOTIFYICONDATA) As Long

4.SetFocus
', ", Y As Single)
Dim lMsg As Single
lMsg = X /单击左键; Alias ",保存为Module1,名为Module1.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD;.Major & ".hWnd
。单击此图标.Handle
'、菜单1,将Form1的ShowInTaskBar属性设置为False

2、新建立一个VB6工程;定义鼠标移动到托盘上时显示的Tip

chentu7723

采纳率:42% 擅长: 暂未定制

其他回答

哇。。学习学习~~~
wonoo_yy | 发布于2007-09-07 09:21
评论

为您推荐: