Private Sub Form_Load() Text1.FontName = "宋体" Text1.FontSize = 12 Text1.FontItalic = True End Sub
VS2008?中的VB? 就是VB.NET
Text1.ForeColor = vbRed'颜色
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Font = New System.Drawing.Font("楷体", 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) TextBox1.ForeColor = Color.Red TextBox1.Text = "xxxbbb" End Sub
Text1.FontName = "宋体"
Text1.FontSize = 12
Text1.FontItalic = True
End Sub
VS2008?中的VB?
就是VB.NET
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Font = New System.Drawing.Font("楷体", 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
TextBox1.ForeColor = Color.Red
TextBox1.Text = "xxxbbb"
End Sub