Question

使用VB设计一个窗体，无最大化，最小化，不能移动

使用VB设计一个窗体，无最大化，最小化，不能移动，用鼠标单击时，画出一个圆。怎么做？？？？

Answer 1

private sub form1_load()
form1.maxbutton=false‘最大化窗口无效
form1.minbutton=false‘最小化窗口无效
end sub
private sub form1_click()
circle（1000，1000），1000‘在圆心为1000，1000的地方画一个半径为1000的圆
end sub
（数值你自己可以改下）

Answer 2

上面的代码是实现不了的，必须先定义好Form的外观，设置Form1的BorderStyle属性=None，窗体上添加一个按钮用于退出，代码如下：

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Click()
Me.Circle (1000, 1000), 1000, 10000
End Sub

Answer 3

Private Sub Form1_Load()
Me.MaxButton = False
Me.MinButton = False
Me.Moveable = False
End Sub

Private Sub Form_Click()
Me.Circle (1000, 1000), 1000, 10000
End Sub

Answer 4

'窗体的Borderstyle 属性设置为 1 -Fixed Singel
'Moveable属性设置为False

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.AutoRedraw = True
Me.CurrentX = X
Me.CurrentY = Y
Circle (X, Y), 1000
End If
End Sub

Answer 5

Private Sub Form_Load()
Form1.ControlBox=False '这是一种
Form1.BorderStyle = 0 '这条可要可不要
Form1.Moveable = False

End Sub
Private Sub Form1_Click()
Circle（1000,1000）,1000
End Sub