flutter许可协议,flutter通知

VB.net中如何在代码中设置文本框字体的大小

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

相关问答

Q1: vb.net 字体如何设置？（font，fontfamily）

可以利用font 设置。设置方法如下：

TextBox1.Font = New System.Drawing.Font("宋体", 10)

也可以通过字体对话框来实现 如：

Private Sub myButton_Click(sender As Object, e As EventArgs)

Dim myFontDialog As FontDialog

myFontDialog = New FontDialog()

If myFontDialog.ShowDialog() = DialogResult.OK Then

' Set the control's font.

myDateTimePicker.Font = myFontDialog.Font

End If

End Sub

Q2: vb.net 代码调整字体大小

看样要重新定义个Font对象，在构造函数中定义它的大小，

With Button1.Font

Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。

End With

Q3: vb程序中单击按钮，字体变大或变小三个单位怎样设置？

VB.NET中某些控件的字体属性是只读的，所以只可以使用NEW方法

（例子： Label1.Font = New Font("宋体", 9)）

如果是VB6.0中可以直接使用Lable1.Font.Size=Lable1.Font.Size + 3

(这里使用的例子是Lable控件，如果你使用的是Command控件直接改一下就好)