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

发布网友发布时间：2024-01-04 19:56

共2个回答

热心网友时间：2024-04-10 03:44

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

热心网友时间：2024-04-10 03:44

有一个笨办法，没想到更好的办法。
在窗体上加一个picture控件，在
private sub form1_resize()
picture1.left =0:picture1.top =0
picture1.width = me.width :picture1.height = me.height
end sub
然后把webbrowser放在picture中，就可以了。