Question

vb.net修改textbox的数据绑定属性 代码怎么写？ 写成如图的属性

Answer 1

我简单写一个,供你参考,字体的名字可以在控件的font属性里找到.

Private Sub Form_Load()

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"

Combo1.ListIndex = 0

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "1" Then
RichTextBox1.SelFontName = "Stylus BT"
RichTextBox1.SelFontSize = 10
End If
If Combo1.Text = "2" Then
RichTextBox1.SelFontName = "CommercialScript BT"
RichTextBox1.SelFontSize = 14
End If
If Combo1.Text = "3" Then
RichTextBox1.SelFontName = "Segoe"
RichTextBox1.SelFontSize = 18
End If
If Combo1.Text = "4" Then
RichTextBox1.SelFontName = "Nina"
RichTextBox1.SelFontSize = 24
End If

End Sub

注意2点, 首先combobox的事件选用 click,而非双击默认到的change事件中,因为change是通过改变项的内容引发. 其次你需要在 RichTextBox1 的属性里找到 HideSelection 属性,改成 false,不然你会误以为拖动combobox之后richtextbox1中的文字没有被选中.其实还是保持选中状态的,这里改成false比较直观.