求助,关于VB最小化到托盘问题。高手帮帮忙!

自己在做一个关于在线客服的系统,在遇到最小化到托盘上出现了问题!代码如下:'-----------------------窗体中---------------------... 自己在做一个关于在线客服的系统,在遇到最小化到托盘上出现了问题!
代码如下:

'-----------------------窗体中--------------------------
Dim WindowTop, WindowLeft

Function WindowStyle()
'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = "维客(Voki)在线客服系统已最小化到托盘" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
Me.Hide
End Function

Private Sub Form_Load()
WebBrowser1.Navigate "http://192.168.1.66:98/login.asp"
End Sub

Private Sub Timer1_Timer()

Me.Caption = WebBrowser1.LocationName
If InStr(Me.Caption, "用户管理端") > 0 Then
Form1.Width = 13500
Form1.Height = 8700
Form1.ScaleHeight = 8000

Dim oldwidth, oldheight
WebBrowser1.Width = 13650
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Timer1.Enabled = False
End If

End Sub

Private Sub Form_Resize()
WindowTop = Me.Top
WindowLeft = Me.Left
If Me.WindowState = 1 Then
WindowStyle
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONDBLCLK '双击左键显示窗体,要改成其他的看模块里的定义
ShowWindow Me.hWnd, SW_RESTORE
Me.Top = WindowTop
Me.Left = WindowLeft
'Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
Me.SetFocus
Case WM_RBUTTONUP '在托盘图标上点右键显示菜单
PopupMenu F00 '菜单名称为F00,做菜单时你可以改成别的,这里也得改成相应的
End Select
End Sub

Private Sub F01_Click()
ShowWindow Me.hWnd, SW_RESTORE
Me.Top = WindowTop
Me.Left = WindowLeft
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

Private Sub F02_Click()
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
Dim int_Exit As Integer
int_Exit = MsgBox("您确认要退出维客(Voki)在线客服系统吗?", vbYesNo, "维客(Voki)在线客服 提示您:")
If int_Exit = vbNo Then ' 取消退出操作
Cancel = -1
End If
End
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'退出程序时删除托盘图标
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
Dim int_Exit As Integer
int_Exit = MsgBox("您确认要退出维客(Voki)在线客服系统吗?", vbYesNo, "维客(Voki)在线客服 提示您:")
If int_Exit = vbNo Then ' 取消退出操作
Cancel = -1
End If
End Sub

这个窗体打开时,最小化到托盘没有问题。但是通过Timer跳转后,最小化到托盘后就还原不了窗口了?
求高手解答!越详细越好!
如果需要的话,我可以提供源程序给你们调试
展开
 我来答
顽皮哈利
2009-07-31 · TA获得超过310个赞
知道小有建树答主
回答量:697
采纳率:100%
帮助的人:432万
展开全部
Private Sub Timer1_Timer()

Me.Caption = WebBrowser1.LocationName
If Form1.WindowState=1 Then
Form_Resize
Exit Sub
End If
If InStr(Me.Caption, "用户管理端") > 0 Then
Form1.Width = 13500
Form1.Height = 8700
Form1.ScaleHeight = 8000

Dim oldwidth, oldheight
WebBrowser1.Width = 13650
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Timer1.Enabled = False
End If

End Sub
guanguanwky
2009-07-31 · TA获得超过237个赞
知道小有建树答主
回答量:379
采纳率:0%
帮助的人:315万
展开全部
有一个笨办法,没想到更好的办法。
在窗体上加一个picture控件,在
private sub form1_resize()
picture1.left =0:picture1.top =0
picture1.width = me.width :picture1.height = me.height
end sub
然后把webbrowser放在picture中,就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式