怎么改变VB中文本框字体颜色？
为所选颜色上色。要使用此属性，必须首先将flags属性设置为cdlccfeffects。Fontbold是否选择了粗体。Fontitalics是否选择了斜体。Fontstrikethru是否选择了删除线。Fontunderline是否选中下划线。字体名称选定字体的名称。如何在VB中更改文本框的字体颜色
如果使用VB标准文本框控件，则无法实现所需的功能，因为其中的文本是纯文本，并且没有格式化。红色的一部分和另一部分的颜色是不可能改变的。建议您使用“富文本框控件”，即RichTextBox。不仅可以使用不同的颜色，而且可以在同一个文本中使用不同大小、粗细和样式的字体，甚至可以插入图片，这具有word文档的基本功能。
VB中如何改变文字颜色？
将组合框和文本框控件添加到VB并输入以下代码。
在表单中添加字体大小值到加载中的组合控件。
私有子表单_Load()
Combo1。添加项目“12”
组合1。添加项目“14”
组合1。AddItem“16”
end sub
在文本框中键入任意单词，然后单击Combo1值，同时更改text1文本大小。
私有子组合1_Click()
文本1。字体大小=组合1。Text
VB文本框中，怎么改变字体大小？
“控制文本框text1，五个按钮command1到command5private sub command1，Click()”increase font text1.fontsize=text1.fontsize 1end subprivate sub command2Click()“如果文本1，缩小字体。Fontsize&gt 2然后文本1。Fontsize=文本1。字体大小-

展开全部
1、首先我们打开vb6.0软件进入到标准”工程1“界面，这些32313133353236313431303231363533e78988e69d8331333433626538比较简单，就不一一上图了，在”form1“窗口上加载一个文本框”text1”如图。
2、文本框加载好以后，需要在右边属性界面设置它的高度和宽度。
3、点击属性界面的“height”设置文本框“text1”的高度为2000，再点击“width”设置文本框“text1”的宽度为2500如图。
4、然后再在文本框“text1”下面加载一个水平滚动条，然后设置水平滚动条的属性最大值“max“为2500”value“的值也为2500，最后更改水平滚动条的名称为”h1“如图。
5、然后把水平滚动条的最大位移量(largechange)设置为20最小位移量(smallchange)设置为2如图。
6、按照上面的方法，我们再把垂直滚动条加上，设置它的属性最大值为2000"value"值为2000，更改垂直水平条名称为v1，再设置垂直水平条最大位移量为20最小位移量为2如图。
7、然后是给这个工程编写程序：
PrivateSubh1_Change()
Text1.Width=h1.Value(文本框的宽度等于水平滚动条的value值)
EndSub
PrivateSubv1_Change()
Text1.Height=v1.Value(文本框的高度等于垂直滚动条的value值)
EndSub
8、即可随意调整文本框大小，拉水平滚动条文本框会宽度会随水平滚动条改变，拉垂直滚动条文本框高度会随垂直滚动条改变。

【前言】

第二次基础机房收费系统，在很多系统优化方面有了更多的认识，对于窗体中文本框内容是否为空的提示以及一次性清空其内容，这些在第一次的机房收费系统中进行了尝试，在这次的机房收费系统个人重构的过程中，再次产生了这一方面的需求，如何减少代码的重复率，于是对该方面进行了探究。
【具体操作】

操作一：

对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题，我们需要在UI层中建一个公共类，将相应的定义与函数写在该类中。


 操作二：
 1、在新建的公共类TextModel中声明公共内容部分：

<span style="font-size:18px;">Imports System.Windows.Forms.Control
Imports System.Object
Public Class TextModel
 
    '定义一个结构体Term
    Public Structure Term
        Dim controlSub As System.Windows.Forms.Control
        Dim strText As String
        Sub New(ByVal controlSub As System.Windows.Forms.Control, ByVal strText As String)
            With Me
                .controlSub = controlSub
                .strText = strText
            End With
        End Sub
    End Structure
 
    '用结构体定义一个Term类型数组
    Public Shared arrayControl() As Term</span>

 2、判断文本框中内容是否为空
 （1）在公共类中TextModel类中写入相应的函数

<span style="font-size:18px;"> '判断文本框是否为空的函数
    Public Shared Function CIsEmpty(ByVal ArrayControl() As Term) As Boolean
 
        '定义一个term变量
        Dim termControl As Term
 
        '遍历结构体数组中所有的元素, 如果文本框为空, 则进行相应的提示
        For Each termControl In ArrayControl
 
            If TypeOf termControl.controlSub Is System.Windows.Forms.TextBox Then
                If termControl.controlSub.Text.Trim = "" Then
                    Windows.Forms.MessageBox.Show(termControl.strText & "不能为空", "提醒", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation)
                    termControl.controlSub.Focus()
                    Return True
                    Exit Function
                End If
            End If
 
        Next
    End Function</span>

  （2）在实际窗体中，例如在frmOnlineRecord窗体中判断文本框中内容是否为空

<span style="font-size:18px;">Public Class frmOnlineRecord
 
    '对定义的结构体进行初始化处理，定义一个过程Rdim（），来完成该功能
    Private Sub Rdim()
        ReDim Preserve TextModel.arrayControl(1)
 
        TextModel.arrayControl(0) = New TextModel.Term(txtCardID, "卡号")
    End Sub
 
    Private Sub btnInquire_Click(sender As Object, e As EventArgs) Handles btnInquire.Click
 
        '调用Rdim过程进行数组初始化
        Call Rdim()
        If TextModel.CIsEmpty(TextModel.arrayControl) = True Then
            Exit Sub
        End If
   
   End Sub
 
End Class</span>

3、一次性清除文本框中的内容

（1）在公共类TextModel中写入相应的函数
<span style="font-size:18px;"> '设置对文本框一键清除
    Public Shared Function AllEmpty(ByVal arraycontrol() As Term) As Boolean
        Dim termControl As Term
 
        For Each termControl In arraycontrol
            If TypeOf termControl.controlSub Is Windows.Forms.TextBox Then
                termControl.controlSub.Text = ""
 
            End If
        Next
        Return True
    End Function</span>

（2）在对应窗体中调用 AllEmpty函数，实现一次性清除文本框中的内容

<span style="font-size:18px;"> Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Hide()
 
        '调用Rdim(过程及AllEmpty函数)
        Call Rdim()
        If TextModel.AllEmpty(TextModel.arrayControl) Then
            Exit Sub
        End If
    End Sub</span>

【学习感悟】

就像米老vb.net教程
师跟我们说过：从此，我们要c#教程开始不将就。有不满意的部分，就需要我们去改变，做到更好。这个过程需要我们积极地去探索，最怕的就是“就这样吧”、“凑活吧”、“差不多就行了”，因为一旦有了这样的心理，我们很难再有新的发现。在机房重构的过程中，自己想到了如何解决文本框的问题，在网上找了一点资料后没有找到想要的内容，想要去找python基础教程别的同学寻求帮助的时候，硕硕和宋荣凯对我说：网上有很多该方面的资料，自己找找看。很感谢他们给我一个自己探索的机会，正是在这样的情况下，才产生了意想不到的收获！

如果把窗体的keyPreview属性设置为true，那么窗体将比其内的控件优先获得键盘事件的激活权。比如Form1和其内的文本框Text1都准备响应keyPress事件，那么以下代码将首先激活窗体的keyPress事件：
 
Private Sub Form_Load()

    Me.KeyPreview = True

End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)

    MsgBox "这是窗体的KeyPress事件"

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)

    MsgBox "这是文本框的KeyPress事件"

End Sub