VB 设计一个窗体，单击窗体背景变黄，双击窗体背景变红。怎么写代码，我写的哪里错了？只有单击窗体背

方法名不橘辩正圆凳缺确，应该粗让是 Form_DblClick。

Private Sub Form_DblClick()

   'balabala

End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1.backcolor = vbRed

endsub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

form1.backcolor = vbGreen

end sub

扩展资料：

VB当中的颜色代码

vbBlack &H0 黑色

vbRed &HFF 红色

vbGreen &HFF00 绿色

vbYellow &HFFFF 黄色

vbBlue &HFF0000 兰色

vbMagenta &HFF00FF 洋红

vbCyan &HFFFF00 青色

vbWhite &HFFFFFF 白色

vbGrayText &H80000011 变灰的（无效的）文字

vbButtonText &H80000012 揿压按钮上文字的颜色

vbInactiveCaptionText &H80000013 非活动标题内文字的颜色

vb3DHighlight &H80000014 三维显示元素的高亮颜色

vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色

vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色派行神

vb3DFace &H8000000F 文字表尘亏面的颜色

vb3DShadow  &H80000010 文字带扰阴影的颜色

vbInfoText &H80000017 提示窗内文字的颜色

vbInfoBackground &H80000018 提示窗内背景的颜色

可以定义一个变哗并量来确定点了几次按钮，参考：

Dim clickNum As Integer

Private Sub Form_Load()

   clickNum = 0

End Sub

Private 早芦铅Sub Command1_Click()

    Select Case clickNum

        Case 0

            Label1.BackColor = vbRed

        Case 1

           陆好 Label2.BackColor = vbBlue

        Case 2

            Label3.BackColor = vbYellow

    End Select

    clickNum = clickNum + 1

End Sub

---