vb.net修改textbox的数据绑定属性 代码怎么写? 写成如图的属性
发布网友
发布时间：2024-01-29 07:39
共1个回答
热心网友
时间：2024-03-15 20:59
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比较直观.
