UC知道VB的问题,近来帮帮
来源：百度知道 编辑：UC知道 时间：2024/07/06 15:51:05
Public state As Integer
Private Sub Command1_Click()
state = -stae
If state = 1 Then Shape1.FillColor = vbBlack
Else
Shape1.FillColor = vbWhite
End If
End Sub
Private Sub Form_Load()
state = 1
Shape1.FillColor = vbBlack
End Sub
功课的灯泡实验
哪里错了帮帮看看
Private Sub Command1_Click()
state = -stae
If state = 1 Then Shape1.FillColor = vbBlack
Else
Shape1.FillColor = vbWhite
End If
End Sub
Private Sub Form_Load()
state = 1
Shape1.FillColor = vbBlack
End Sub
功课的灯泡实验
哪里错了帮帮看看
Public state As boolean'写成这种比较好要不你那样判断有问题
Private Sub Command1_Click()
state = not state '这儿这个变量你写错了
If state = 1 Then '这儿要换行啊！！！
Shape1.FillColor = vbBlack
Else
Shape1.FillColor = vbWhite
End If
End Sub
Private Sub Form_Load()
state = 1
Shape1.FillColor = vbBlack
End Sub