Question

各位懂VB的大师，我有一个很简单的问题要向你们请教啊~~help me!!

这是我做的作业的截图，我是刚学VB的，你们能帮我看看到底是哪里出问题了吗？我操作的时候那些字体的颜色没有改变啊





Answer 1

应该使用数组控件，如图：

 

Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
If Check1(1).Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
If Check1(2).Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

 

Private Sub Command1_Click()
Call Form_Load
End Sub

 

Private Sub Form_Load()
For i = 0 To 2
Option1(i).Value = False
Option2(i).Value = False
Check1(i).Value = 0
Next i
Text1.Font = "宋体"
Text1.ForeColor = &H0
End Sub

 

Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
Text1.Font = "宋体"
ElseIf Option1(1).Value = True Then
Text1.Font = "黑体"
ElseIf Option1(2).Value = True Then
Text1.Font = "幼圆"
End If
End Sub

Private Sub Option2_Click(Index As Integer)
If Option2(0).Value = True Then
Text1.ForeColor = vbRed
ElseIf Option2(1).Value = True Then
Text1.ForeColor = vbGreen
ElseIf Option2(2).Value = True Then
Text1.ForeColor = vbYellow
End If
End Sub

Answer 2

Private Sub Option4_Click()
Text1.ForeColor = vbRed
End Sub
'这样就行了

Answer 3

1、option控件被单击后value属性值就是true了，所以填then后面的就可以了，其他的是废话
2、童鞋，你的true拼写错误了，有反应就出鬼了
3、字体颜色是fontcolor属性

我已经不忍心看了
PS：下次记得放分，不然没几个人愿意回答的

Answer 4

我也不知道