【VB开源代码栏目提醒】:网学会员鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“8.2.2.frm”一文,供大家参考学习
VERSION 5.00
Begin VB.Form Form2
Caption = "颜色变换"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "颜色变换"
Height = 495
Left = 840
TabIndex = 0
Top = 1080
Width = 2535
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flag As Integer
'flag为模块级变量
Private Sub Command1_Click()
If flag = 0 Then
flag = 1
Command1.Caption = "白色"
Form1.BackColor = vbBlack
Else
flag = 0
Command1.Caption = "黑色"
Form1.BackColor = vbWhite
End If
End Sub
Private Sub Form_Initialize()
flag = 1
End Sub
上一篇:
8.1.2.frm
下一篇:
美术教学中网络信息论文