本文介绍了一个简单的VB6程序示例，通过点击按钮实现两个标签控件的颜色和内容互换。该示例展示了如何使用VB6进行基本的界面元素操作。
Private Sub Command1_Click()
Dim s As String
Dim s As LoadPictureColorConstants
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
a = Label1.ForeColor
Label1.ForeColor = Label2.ForeColor
Label2.ForeColor = a
End Sub
Dim s As String
Dim s As LoadPictureColorConstants
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
a = Label1.ForeColor
Label1.ForeColor = Label2.ForeColor
Label2.ForeColor = a
End Sub
扫一扫
344
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
