Question

vb窗体样式如标题拦的样式等如何更改

Answer 1

'全屏下无边匡的窗体菜单制作

'建立菜单menu1 子项 menuexit

'Me.ControlBox = False 在属性窗口设置,不能在运行期设置

Private Sub Form_Load()
Me.BorderStyle = 0
Me.Caption = ""
Me.Move 0, 0, Screen.Width, Screen.Height
menu1.Enabled = False
menu1.Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu menu1
End Sub

Sub menuexit_click() '菜单退出
Unload Me
End Sub