QQ网名大全

VB快帮忙_vb中获取帮助的快捷键是什么

'当程序运行时,单击"窗体背景色修改"按钮,可使窗口背景色改变为红色,再单击时变为绿色,再单击时变为蓝色,然后又转为红色,循环改变,单击“退出”按钮时,可退出应用程序。

'方法1:用SELECT CASE

Option Explicit
Dim i As Integer

Private Sub Command1_Click()
i = i + 1
Select Case i
Case 1
Me.BackColor = RGB(255, 0, 0)
Case 2
Me.BackColor = RGB(0, 0, 255)
Case 3
Me.BackColor = RGB(0, 255, 0)
i = 0
End Select
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Me.Caption = "窗体背景色修改"
Command1.Caption = "窗体背景色修改"
Command2.Caption = "退出"

End Sub

'方法2: IF...THEN
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
i = i + 1
If i = 1 Then
Me.BackColor = vbRed ' RGB(255, 0, 0)
ElseIf i = 2 Then
Me.BackColor = vbGreen ' RGB(0, 0, 255)
ElseIf i = 3 Then
Me.BackColor = vbBlue ' RGB(0, 255, 0)
i = 0
End If
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Me.Caption = "窗体背景色修改"
Command1.Caption = "窗体背景色修改"
Command2.Caption = "退出"

End Sub
佚名
2024-06-09 12:28:00
最佳回答
类似问题(10)
  • 佚名
    2024-06-09 04:32:40
  • 佚名
    2024-06-09 17:59:05

    快快。帮忙取名。。。

    东海湾~!通俗.容易让人明白.龙朝~!气派.皇伦~!牛逼

  • 佚名
    2024-06-09 22:30:58

    起名高手来帮忙——急急快快!!!!!!!

    生年地支:戌年生 狗 双子座五行:戌属土五常:土属信吉祥方位:东、东南及南方吉祥颜色:绿、红、紫色;忌蓝、白、金色幸运数字:三、四、九;凶数为一、七、六幸运花:...

  • 佚名
    2024-06-09 16:18:04

    赖姓德字辈起名,快快帮忙

    祾祯(祾和祯都是福祥之意,也可作其它的祾和祯) 在取名的时候,既需要美好的意境,也需要名字发音好听,才能让人容易记住。

  • 佚名
    2024-06-09 17:43:20

    快快。帮忙取名。。。

    东海湾~!通俗.容易让人明白.龙朝~!气派.皇伦~!.牛逼

  • 佚名
    2024-06-09 08:27:27

    VB编程Check1问题

    if Check1.value=vbChecked and Check1.value =vbChecked then text1.text="通过"en...

  • 佚名
    2024-06-09 09:52:46

    急急急!快帮帮忙起名

    建议取名====梁嘉淦。补金,补水。大吉大利!100.00分。十分难得!

  • 佚名
    2024-06-09 08:00:00

    vb变量名命名规则

    1、变量中不一定要有下划线。2、+-*\=|不能出现在变量名里,这些字符有特殊用途。变量名: 必须以字母开头。不能包含嵌入的句号或者嵌入的类型声明字符。不得超过...

  • 佚名
    2024-06-09 08:00:00

    急!!!快快帮帮忙取个英文名!!!

    chaney 切尼 领袖Charles 查尔斯 强壮有男人味 Chike 启凯 神的力量 Clarence 克莱伦斯 聪颖 CLIVE 克莱夫。住所名称...

  • 佚名
    2024-06-09 08:00:00

    高分起名~~~~快快帮忙!!!!

    伶韵 (灵气逼人,韵味十足!) 思睿 (意思是聪明的女孩) 钰琪 (钰:宝物,珍宝 琪:美玉 ) 婧宸 (婧:女子有才 宸:古代君王的代称 ) 妍洋 (妍:美丽...