vb.net用按钮控制字体加减

新手问题

通过按钮控制text.font.size的大小··我一直做不出来··他说size的属性是自读··也改不了`请教高手 100分献上

Public Class Form1
Dim code As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
code -= 1
TextBox1.Font = New Font("宋体", code)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
code = 10
End Sub
End Class

改变code就能改变字号了，你弄个加减按钮改变code值即可

怎么会了，你有没有双击“windows窗体”选项卡中的“FontDialog"控件啊！要是双击过了就会在编辑的框下面出现“FontDialog1”，那么在一个按钮内输入

private sub button1_click(.....)

FontDialog1.showDialog()

richtextbox1,selectionfont=FontDialog1.font

end sub

就这样吧，有什么疑问，可以再问我！