7,762
社区成员
发帖
与我相关
我的任务
分享
Private Sub timTest_Timer()
tmpStr = "测试字符串 常量 .." & IIf(Test_Mode, " +字符串变量:" & Timer, "")
doevents
labTest = tmpStr
End Sub
VERSION 5.00
Begin VB.Form frmTest
Caption = "标签控件测试"
ClientHeight = 7935
ClientLeft = 60
ClientTop = 450
ClientWidth = 6990
LinkTopic = "Form1"
ScaleHeight = 7935
ScaleWidth = 6990
StartUpPosition = 3 '窗口缺省
Begin VB.OptionButton optMode
Caption = "送显字符串变量"
Height = 180
Index = 1
Left = 3960
TabIndex = 3
Top = 7440
Width = 1575
End
Begin VB.OptionButton optMode
Caption = "送显字符串常量"
Height = 180
Index = 0
Left = 3960
TabIndex = 2
Top = 7200
Value = -1 'True
Width = 1575
End
Begin VB.Timer timTest
Enabled = 0 'False
Interval = 10
Left = 120
Top = 7320
End
Begin VB.CheckBox chk_Test
Caption = "测试开关"
Height = 495
Left = 5640
Style = 1 'Graphical
TabIndex = 1
Top = 7200
Width = 1215
End
Begin VB.Label labTest
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Height = 6975
Left = 120
TabIndex = 0
Top = 120
Width = 6735
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ColorNo As Long
Dim tmpStr As String
Dim Test_Mode As Boolean
Dim cArr(15) As Long
Private Sub Form_Load()
cArr(0) = RGB(0, 0, 0)
cArr(1) = RGB(0, 0, 191) '黑
cArr(2) = RGB(0, 191, 0) '蓝
cArr(3) = RGB(0, 191, 0) '绿
cArr(4) = RGB(0, 191, 191) '青
cArr(5) = RGB(191, 0, 0) '红
cArr(6) = RGB(191, 0, 191) '洋红
cArr(7) = RGB(191, 191, 0) '黄
cArr(8) = RGB(191, 191, 191) '白
cArr(9) = RGB(64, 64, 64) '灰
cArr(10) = RGB(0, 0, 255) '亮蓝
cArr(11) = RGB(0, 255, 0) '亮绿
cArr(12) = RGB(0, 255, 255) '亮青
cArr(13) = RGB(255, 0, 0) '
cArr(14) = RGB(255, 255, 0) '
cArr(15) = RGB(255, 255, 255) '
End Sub
Private Sub chk_Test_Click()
Select Case chk_Test.Value
Case 0
chk_Test.Caption = "开始测试"
timTest.Enabled = False
Case 1
chk_Test.Caption = "停止测试"
timTest.Enabled = True
End Select
End Sub
Private Sub optMode_Click(Index As Integer)
Test_Mode = (0 - Index)
End Sub
Private Sub timTest_Timer()
If Test_Mode Then
ColorNo = (ColorNo + 1) And &H7 '(0-15)16色
labTest.ForeColor = cArr(ColorNo)
tmpStr = vbCrLf & " 字符串变量:" & Format(Timer, "0.00") & " (此时请注意左边缘!)"
Else
tmpStr = vbCrLf & " 字符串 常量 .."
End If
labTest = tmpStr
End Sub
VERSION 5.00
Begin VB.Form frmTest
Caption = "标签控件测试"
ClientHeight = 7935
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 7935
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CheckBox chk_Mode
Caption = "送显模式"
Height = 375
Left = 1320
Style = 1 'Graphical
TabIndex = 2
Top = 7320
Width = 1815
End
Begin VB.Timer timTest
Interval = 10
Left = 120
Top = 7320
End
Begin VB.CheckBox chk_Test
Caption = "测试开关"
Height = 375
Left = 3360
Style = 1 'Graphical
TabIndex = 1
Top = 7320
Width = 1215
End
Begin VB.Label labTest
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 6975
Left = 120
TabIndex = 0
Top = 120
Width = 4455
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim tmpStr As String
Dim Test_Mode As Boolean
Private Sub chk_Mode_Click()
Select Case chk_Mode.Value
Case 0
chk_Mode.Caption = "送显字符串变量"
Test_Mode = False
Case 1
chk_Mode.Caption = "送显字符串常量"
Test_Mode = True
End Select
End Sub
Private Sub chk_Test_Click()
Select Case chk_Test.Value
Case 0
chk_Test.Caption = "开始测试"
timTest.Enabled = False
Case 1
chk_Test.Caption = "停止测试"
timTest.Enabled = True
End Select
End Sub
Private Sub timTest_Timer()
tmpStr = "测试字符串 常量 .." & IIf(Test_Mode, " +字符串变量:" & Timer, "")
labTest = tmpStr
End Sub