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
'方法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-07-04 07:09:32
类似问题(10)
-
佚名2024-07-04 04:32:40
问餐厅起名 快快来帮忙啊!!!在线的@@@@@
答潮膳坊
-
佚名2024-07-04 05:59:41
问快快。帮忙取名。。。
答东海湾~!通俗.容易让人明白.龙朝~!气派.皇伦~!牛逼
-
佚名2024-07-04 22:30:58
问起名高手来帮忙——急急快快!!!!!!!
答生年地支:戌年生 狗 双子座五行:戌属土五常:土属信吉祥方位:东、东南及南方吉祥颜色:绿、红、紫色;忌蓝、白、金色幸运数字:三、四、九;凶数为一、七、六幸运花:...
-
佚名2024-07-04 16:18:04
问赖姓德字辈起名,快快帮忙
答祾祯(祾和祯都是福祥之意,也可作其它的祾和祯) 在取名的时候,既需要美好的意境,也需要名字发音好听,才能让人容易记住。
-
佚名2024-07-04 13:14:23
问快快。帮忙取名。。。
答东海湾~!通俗.容易让人明白.龙朝~!气派.皇伦~!.牛逼
-
佚名2024-07-04 08:27:27
问VB编程Check1问题
答if Check1.value=vbChecked and Check1.value =vbChecked then text1.text="通过"en...
-
佚名2024-07-04 07:26:30
问急急急!快帮帮忙起名
答建议取名====梁嘉淦。补金,补水。大吉大利!100.00分。十分难得!
-
佚名2024-07-04 08:00:00
问vb变量名命名规则
答1、变量中不一定要有下划线。2、+-*\=|不能出现在变量名里,这些字符有特殊用途。变量名: 必须以字母开头。不能包含嵌入的句号或者嵌入的类型声明字符。不得超过...
-
佚名2024-07-04 08:00:00
问急!!!快快帮帮忙取个英文名!!!
答chaney 切尼 领袖Charles 查尔斯 强壮有男人味 Chike 启凯 神的力量 Clarence 克莱伦斯 聪颖 CLIVE 克莱夫。住所名称...
-
佚名2024-07-04 08:00:00
问高分起名~~~~快快帮忙!!!!
答伶韵 (灵气逼人,韵味十足!) 思睿 (意思是聪明的女孩) 钰琪 (钰:宝物,珍宝 琪:美玉 ) 婧宸 (婧:女子有才 宸:古代君王的代称 ) 妍洋 (妍:美丽...
风水
起名
网名
- 1 带咏字的网名
- 2 落笔画开头的网名
- 3 护士有什么好听的网名
- 4 2018带符号的qq网名
- 5 好听的网名两个字女生霸气十足
- 6 超级霸气的男生网名
- 7 闺蜜网名3人繁体
- 8 忘记_个性网名
- 9 微信昵称和电话号码怎么设置
- 10 最多的微信昵称
说说
- 1 看到爸妈心情个性签名
- 2 李志阳的个性签名
- 3 短句男生qq个性签名
- 4 古发说说
- 5 收麦心情说说
- 6 伤感说说12个字
- 7 关于卸货的说说
- 8 关于不信赖朋友的说说
- 9 古风故事说说伤感
- 10 说说诗歌朗诵句子