没人能解决吗？好几次呢？？

Question

把Form1.BorderStyle = 0
再
Private Sub Form_Load()
Form1.WindowState = 2
End SubPrivate Sub Form_Resize()
Text1.Left = 0
Text1.Top = 0
Text1.Width = Me.Width
Text1.Height = Me.Height
End Sub

Answer 1

你到C++区去问问有什么函数可用
只靠VB好像在有菜单时不能全屏

Answer 2

text1.move 0,0,screen.width,screen.height

Answer 3

把窗口中的菜单去掉，
把菜单放置在别的窗口，用形如Me.PopupMenu Form2.MnuABC方式弹出菜单

Answer 4

得到screen的rect，
然后，movewindow到rect
两个API就搞定了