Question

VB:如何用option button来控制文本框的字体:如3个单选按钮:宋体,黑体,楷体,点击时宋体时,文本框里的字体自

动改成宋体!急等大家的回复!
Private Sub Option1_Click()
Text1.FontName = "宋体"
End Sub

Private Sub Option2_Click()
Text1.FontName = "黑体"
End Sub

Private Sub Option3_Click()
Text1.FontName = "楷体"
End Sub

Answer 1

在窗体中放入一个文本框，三个Option(要组成数组)
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then Text1.Font.Name = "宋体"
If Index = 1 Then Text1.Font.Name = "黑体"
If Index = 2 Then Text1.Font.Name = "楷体_GB2312"
End Sub

Answer 2

在每个option button的change()事件里面都写。非常容易操作的

Answer 3

Private Sub Option1_Click()
Text1.Font = "宋体"
End Sub

Private Sub Option2_Click()
Text1.Font = "黑体"
End Sub

Private Sub Option3_Click()
Text1.Font = "楷体"
End Sub

Answer 4

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Font.Name = "宋体"
Case 1
Text1.Font.Name = "黑体"
Case 2
Text1.Font.Name = "楷体"
End Select

End Sub