求解释这段VB代码的意思PrivateSubCombo1Click()Text1.FontName=Combo1.List(Combo1.ListIndex)，这段代码是什么意思EndSubPrivateSubFormLoad()Combo1.AddItem"宋体"Combo1.AddItem"隶书"Combo1.AddItem"黑体"Combo1.

Question

求解释这段VB代码的意思Private Sub Combo1_Click() Text1.FontName = Combo1.List(Combo1.ListIndex) ，这段代码是什么意思 End Sub Private Sub Form_Load() Combo1.AddItem "宋体" Combo1.AddItem "隶书" Combo1.AddItem "黑体" Combo1.AddItem "楷体" Combo1.ListIndex = 0 '把第一个条目作为初始项 Text1.FontSize = 30 '放大字体 Text1.FontName = Combo1.List(0) '初始字体为"宋体" End Sub Private Sub Text1_Change() End Sub

Answer 1

Text1.FontName = Combo1.List(Combo1.ListIndex) ，这段代码是什么意思 是设置Text1的字体，具体字体是根据Combo1的选择而定的。