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-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
问高分起名~~~~快快帮忙!!!!
答伶韵 (灵气逼人,韵味十足!) 思睿 (意思是聪明的女孩) 钰琪 (钰:宝物,珍宝 琪:美玉 ) 婧宸 (婧:女子有才 宸:古代君王的代称 ) 妍洋 (妍:美丽...
风水
起名
网名
- 1 带宸字的网名
- 2 稳稳的幸福 网名设计
- 3 比较霸气的qq网名男生
- 4 清政清廉的网名
- 5 有关月亮的微信网名
- 6 带红豆和胸衣草的网名
- 7 以松柏为网名
- 8 劲舞团女生昵称
- 9 微博昵称常用英文字母
- 10 嘘想你嘘念你 繁体昵称
说说
- 1 秦时明月个性签名
- 2 微信个性签名抖音中间
- 3 那些适合当个性签名的句子
- 4 特仑苏搞笑签名
- 5 一岁的说说
- 6 空间说说自动发
- 7 活着没意义的说说
- 8 想女朋友的感动说说
- 9 发呆的幽默说说
- 10 每一次的旅途的说说