帮我看看这个程序有没有问题啊 是个多选的练习题
我看上去好象就两种字体 程序在代码下面
下面是源代码:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Font = "楷体"
Else
If Check2.Value = 1 Then
Text1.Font = "隶书"
Else
Text1.Font = "黑体"
End If
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.Font = "隶书"
Else
If Check1.Value = 1 Then
Text1.Font = "楷体"
Else
Text1.Font = "黑体"
End If
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.Font = "黑体"
Else
If Check1.Value = 1 Then
Text1.Font = "楷体"
Else
Text1.Font = "隶书"
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = "跟我一起学vb神童教程"
End Sub
Private Sub Command1_Click()
End
End Sub
[此贴子已经被作者于2007-2-17 13:05:24编辑过]