Question

VB里如何通过列表(ListBox)设置字体的粗体、斜体、粗斜体？

是用Index来实现么。。重点的代码麻烦提醒下。。

Answer 1

添加一个text 添加一个list 编写以下代码：Private Sub Form_Load()List1.AddItem ("粗体")
List1.AddItem ("倾斜")
List1.AddItem ("下划线")
List1.AddItem ("删除线")
End SubPrivate Sub List1_Click()
Select Case List1.Text
Case "粗体"
Text1.FontBold = True
Text1.FontItalic = False
Text1.FontUnderline = False
Text1.FontStrikethru = False
Case "倾斜"
Text1.FontItalic = True
Text1.FontBold = False
Text1.FontUnderline = False
Text1.FontStrikethru = False
Case "下划线"
Text1.FontUnderline = True
Text1.FontBold = False
Text1.FontItalic = False
Text1.FontStrikethru = False
Case "删除线"
Text1.FontStrikethru = True
Text1.FontBold = False
Text1.FontItalic = False
Text1.FontUnderline = False
End SelectEnd Sub