Question

用vb程序如何实现放大,还原,加粗,下画线,移动,退出等功能

Answer 1

Private Sub Command1_Click()
    Me.WindowState = 0  '还原
End Sub
Private Sub Command2_Click()
    Me.WindowState = 1  '最小化
End Sub
Private Sub Command3_Click()
    Me.WindowState = 2 '最大化
End Sub
Private Sub Command4_Click()
   Label1.FontBold = True  '设置标签label1的字体加粗
End Sub
Private Sub Command5_Click()
  Label1.FontUnderline = True '设置标签balel1的字体加下划线
End Sub
Private Sub Command6_Click()
    Me.WindowState = 0
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2  '移动窗口到屏幕中间
End Sub
Private Sub Command7_Click()
    End '结束
End Sub