第1个回答 2011-03-30
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Dim a As FontStyle
a = Me.TextBox1.Font.Size
Dim b As Single = a * 10
Me.TextBox1.Width = Me.TextBox1.Width * 10
Me.TextBox1.Font = New System.Drawing.Font("PMingLiU ", b, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) '放大10倍,若仅10号字体,则将b改为10
End Sub本回答被网友采纳
第3个回答 2011-03-25
k(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Location = New Point(10, 10) '位置
TextBox1.Size = New Point(500, 600) '大小
End Sub
追问不是文本框的大小,是其中字体的大小,用代码实现