利用VB实现文本框文本的格式设置

中的TextBox控件详解TextBox组件（文本框组件）是一种常用的，也是比较容易掌握的组件。

应用程序主要使用它来接收使用者于输入文字信息。

在前面内容中已经或多或少的接触到TextBox组件。

本节就来详细探讨一下Visual Basic .Net中TextBox组件的使用方法。

一.TextBox组件、T extBox类：当我们使用Visual Basic .Net集成开发环境开发应用程序时，在从【工具箱】的【Windows窗体】选项卡中向Form1的设计窗体拖入一个TextBox组件的后，我们可能并没有感觉到即使时这样一个简单的操作，Visual Basic .Net都做了很多幕后工作。

主要工作和步骤如下：1. 首先实例化System.Windows.Forms.TextBox类，并根据拖动到窗体的位置和形状分别设定TextBox实例的各个属性。

2. 我们看到的设计窗体，其实是Form1类的一个实例，而Form1类首先是从System.Windows.Forms.Form类继承而来，Form1类中的成员根据使用者往窗体中拖入的组件不同而不同。

各个成员通过Add或AddRange方法加入到Form1中，这样拖入的组件才能够显示在设计窗体上。

以上这些都完全不同于以前Visual Basic。

通过上述步骤，我们不难得到TextBox组件和TextBox类之间的关系，TextBox组件是命名空间System.Windows.Forms中的T extBox类的实例，在从【工具箱】的【Windows窗体】选项卡中拖入窗体的任一组件，都是.Net框架类库——.Net FrameWork SDK中封装的某一个类的实例。

通过上述步骤也不难看出，Visual Basic .Net的确才是真正的面向对象（OOP）的开发语言。

二.TextBox类的成员：TextBox组件使用虽然比较简单，但T extBox类的构成成员却是非常的丰富。

VB教程：文本框（TextBox）2、文本框（TextBox）作用：用于输入、编辑文本或用于输出、显示文本。

（1）常用属性Text——表示用户输入的内容。

例：Label1.Caption=Text1.Text将Text1控件接收用户输入的数据通过Label1控件显示出来。

multiline ——设置文本框能否输入和显示多行文本。

true —可输入、显示多行文本False—限制所有的文本在一行内显示（缺省）。

scrollbars——是否需要滚动条（只有在multiline属性设置为true时）。

=0 没有。

=1 有水平。

=2 有垂直。

=3 水平、垂直都有。

注意：multiline属性和scrollbars属性只能在设计时进行设置，不能在代码中赋以新值。

SelStart——表示用户选中一段文字的起始位置。

第一个字符位置为0。

利用SelStart属性可以实现字符串查找功能。

SelLength——表示用户选中文字的长度。

SelText——表示用户选中文字的内容。

例：0123456789这时：SelStart=5,SelLength=4,SelText="5678"PasswordChar——设置是否在文本框中显示用户键入的字符。

如果该属性设置了某一字符，那么无论在文本框中输入什么（即无论Text属性值是什么），都只显示设置的该字符，例如，如果将PasswordChar的属性设置为字符“*”，那么文本框中的文本都以“*”显示，最终用户无法知道文本的内容，所以该属性起到了口令的作用。

（2）常用方法：SetFocus——使当前控件获得输入焦点，即将光标从其他位置移动到文本框中。

焦点(focus)代表接收用户鼠标或键盘输人的能力，对象(窗体和控件)获得焦点通常称之为“聚焦”。

当对象获得焦点时，可接收用户的输入。

（3）主要事件主要事件有Change、KeyPress、LostFocu（失去焦点，即光标离开）等。

本章目录
1. 属性 属性: 对象的一组特征， 标题 宽度、 标题、 属性 对象的一组特征，如:标题、宽度、字体等 属性名: 属性名 如Caption、Width、Font、Color 、 、 、 对象属性的设置方法： 对象属性的设置方法： 设置方法 可通过两种方式设置：属性框和在程序代码中。 通过两种方式设置：属性框和在程序代码中 通过两种方式设置 设计阶段 利用属性窗口直接设置属性值 对象名.属性名= 程序运行时 通过语句 对象名.属性名=属性值 例如： 确定" 例如：Command1.Caption = "确定 确定
本章目录
窗体(form) (form)窗口 2. 窗体(form)窗口 设计VB程序的界面。 代码(code) (code)窗口 3. 代码(code)窗口 编辑窗体、标准模块中的代码。 属性(properties) (properties)窗口 4. 属性(properties)窗口 所有窗体或控件的属性设置。 工程资源管理器(project explorer)窗口 5. 工程资源管理器(project explorer)窗口 保存一个应用程序所有的文件。 工具箱(toolbox) (toolbox)窗口 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计。
11
1.6 使用帮助系统
所有帮助文件在MSDN Library中，两张 盘。可通过运行 所有帮助文件在 中 两张CD盘 第一张盘上的setup.exe程序进行安装。最新的联机版 程序进行安装。 第一张盘上的 程序进行安装 最新的联机版MSDN是免 是免 上下载。 费的，可以从/china/msdn/上下载。 费的，可以从 上下载
Visual Basic 程序设计教程

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。

二、课程设计目的虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。

四．源代码Private Sub Command1_Click()Dim i As IntegerIf Text2.Text <> "123456" Theni = MsgBox("密码错误", 5 + vbExclamation, "警告")If i <> 6 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 6Text2.Text = ""Text2.MaxLength = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox "帐号必须为数字", , "警告" Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Color_Click() CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.Color End SubPrivate Sub Command1_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Copy_Click()Dim st As Stringst = Text1.SelTextEnd SubPrivate Sub Cut_Click()Dim st As Stringst = Text1.SelTextText1.SelText = ""End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4Text1.FontName = CommonDialog1.FileNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.ColorEnd SubSub New_Click()Text1.Text = ""Me.Caption = FileEnd SubSub Open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub Paste_Click()Text1.SelText = stEnd SubPrivate Sub Print_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()CommonDialog1.FileName = "vb课设用.txt" CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text1.TextEnd SubDim arr As Long, sum As Long, a As IntegerPrivate Sub Command1_Click()a = HScroll1.ValueText1.Text = plus(a)Call isprime(a)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScroll1_Change()Label2.Caption = HScroll1.ValueEnd SubSub isprime(max As Integer)Dim x As Integer, i As Integer, j As IntegerFor i = 2 To maxx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1Next jIf x = 0 Then Label2.Caption = Label2.Caption & i & " " Next iEnd SubFunction plus(a As Integer) As LongFor i = 1 To asum = sum + iNext iplus = sumEnd FunctionDim x1 As IntegerDim y1 As IntegerDim x2 As IntegerDim y2 As IntegerDim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = True CommonDialog1.DialogTitle = "颜色" CommonDialog1.ShowColorIf Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Form5.HideForm6.ShowEnd SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 8End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = Truex1 = Xy1 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = Xy2 = YPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = FalseEnd SubDim ctP As Single, ctDu() As Single, ctDuS As LongPrivate Sub Command1_Click()Picture1.AutoRedraw = True: ctP = 3.1415926Timer1.Interval = 20: Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Command2_Click()Form7.HideForm6.ShowEnd SubPrivate Sub Form_Load()Me.Caption = "旋转的椭圆": Command1.Caption = "转/停"Text1.Text = "9 个": Timer1.Enabled = FalseEnd SubPrivate Sub Text1_Change()ctDuS = Val(Text1.Text)If ctDuS > 200 Then Text1.Text = "200"If ctDuS < 1 Then ctDuS = 1ReDim ctDu(0 To ctDuS)End SubPrivate Sub Timer1_Timer()Dim I As LongPicture1.DrawWidth = 3Picture1.ClsFor I = 0 To ctDuSctDu(I) = ctDu(I) + ctP * 0.01 * I / 9If ctDu(I) > ctP * 2 Then ctDu(I) = ctDu(I) - ctP * 2Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6NextDim x As Single, y As SingleStatic J As SinglePicture1.DrawWidth = 15x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255x = 1200: y = 0: J = J - 0.05If J < -ctP * 2 Then J = J + ctP * 2Zhuan J, x, yPicture1.PSet (x0 + x, y0 + y), RGB(0, 0, 255)End SubPrivate Sub Show1(ToJ As Single, Se As Long)Dim I As Single, x As Single, y As Single, x0 As Single, y0 As Single Dim a As Single, b As Single, x1 As Single, y1 As SingleIf Picture1.ScaleWidth < Picture1.ScaleHeight Thena = Picture1.ScaleWidth * 0.45Elsea = Picture1.ScaleHeight * 0.45End Ifb = a * 0.25x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5x = -a: y = 0: Zhuan ToJ, x, yx1 = a: y1 = 0: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), Sex = 0: y = -b: Zhuan ToJ, x, yx1 = 0: y1 = b: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), SeFor I = 0 To ctP * 2 Step 0.1x = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeNextx = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeEnd SubPrivate Sub Zhuan(ToJ As Single, x As Single, y As Single) Dim S As Single, J As SingleS = Sqr(x ^ 2 + y ^ 2)If S = 0 Then J = 0 Else J = y / SIf Abs(J) >= 1 ThenIf J > 0 Then J = ctP * 0.5 Else J = -ctP * 0.5ElseJ = Atn(J / Sqr(-J * J + 1))End IfIf x < 0 Then J = -ctP - Jx = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click()EndEnd Sub五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual 可视化界面设计，另一个是Basic程序设计。

在文本框中显示旳正文内容存储在Text属性中。当程 序运营时，顾客经过键盘输入正文内容，保存在Text属性中。
文本框没有Caption属性
（2）Maxlength： 设置正文旳最多字符个数, 0任意长度值。
（3） MultiLine： 是否为多行,默认一行. False
（4）ScrollBars： 当MultiLine为True时,该属性才有效,滚动条 旳形式。
（5）Style : 拟定显示旳形式. 0 只能显示文字, 1 文字、图
形均可 。
（6）Picture : 按钮可显示图片文件(.bmp和.Ico)，只有当
Style属性值为1时有效
（7）ToolTipText ：设置工具提醒，和Picture结合使用。
（二）措施、事件
Move、Setfocus措施； 单击事件Click
Alignment=1，BorderStyle =1 AutoSize=True，WordWarp=False， BorderStyle =1 BackColor= &H00FFFFFF&, BorderStyle =0 ForeColor= &H000000FF&, BorderStyle =0
设置后各标 签旳显示如 图
例 在窗体上，放置5个标签，其名称使用默认值Label1－
Label5，在属性窗口，按下1
Label2
Label3
Label4
Label5
标题 Caption 左对齐
水平居中
自动
背景白
前景红
有关属性设置
Alignment=0， BorderStyle =1
3、事件
标签可响应单击（Click)和双击（ DblClick）事件，但一 般情况不对它进行编程

中使文本框只能输入数字的方法编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性:编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性:首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能使用中文输入法了。

然后对文本框的KeyPress事件添加以下代码Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Thene.Handled = FalseElsee.Handled = TrueEnd IfEnd Sub其中e.KeyChar是键盘输入的键对应的字符,IsDigit函数可以判断是否为0到9的数字,Chr(8)为退格键,当e.Handled为True时,程序认为该KeyPress事件已经被处理过了,文本框的内容也就不会发生变化了。

从以上程序中不难看出,此时文本框只能接受数字和退格键,也就是说这个文本框是用来输入整数的。

如果文本需要输入小数的话,就要能够输入小数点".",而且小数点只能输入一次,此时可以将上面的函数改为下面的格式:Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPressIf Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = "." ThenIf e.KeyChar = "." And InStr(TextBox1.Text, ".") > 0 Thene.Handled = TrueElsee.Handled = FalseEnd IfElsee.Handled = TrueEnd IfEnd Sub其中函数InStr返回指定字符在字符串中的位置,当字符串中不含此字符时,返回一个负数。

VisualBasic自学教材(常用控件的属性)——1、03、文本框(TextBox)控件的常用属性作者:杜勇False 能通过键盘修改文本框的Text属性内容MaxLength 获得或设置Text属性中所能输入的最大字符输。

如果输入的字符数超过MaxLength设定的数目时,系统将不接受超出部分,并且发出警告声。

MouseIcon MousePointer=99时,设定一个自定义的鼠标图标MousePointerMultiLine 设置文本框对象就是否可以输入多行文字。

取值为: True 当文本超过控件边界时,自动换行。

False需要注意的就是:若该属性为False时,文本框控件对象的Alignment属性无效。

OLEDragMode 获得或设置该对象就是否能作为OLE拖/放源,以及该进程就是自动启动,还就是在程序控制下启动。

取值为:0 Manual(手动)1 Automatic(自动)OLEDropMode 获得或设置该对象就是否能作为一个OLE放下目标, 以及它就是自动发生,还就是在程序控制下发生。

取值为:0 None(无)1 Manual(手动)PasswordChar 该属性将文本显示的内容全部改为所设置的内容。

她常用于设置密码,如PasswordChar设定为"*",那么无论用户输入什么字符,都只显示"*"。

RightToLeft 文本书写就是否自左向右。

取值为: TrueFalse 自右向左ScrollBoars 设置边框滚动条模式:0 无滚动条1 水平滚动条2 垂直滚动条3 水平与垂直滚动条SelLength 返回或设置选定文本的长度(字符数)。

该属性没有列在属性窗口中,但在程序中可以使用这些属性。

SelStart 返回或设置选定文本的起始位置,如果没有文本被选中,则指出插入点的位置。

该属性没有列在属性窗口中,但在程序中可以使用这些属。

vb richtextbox1的用法（原创实用版）目录1.RichTextBox1 简介2.RichTextBox1 的基本属性3.RichTextBox1 的事件4.RichTextBox1 的常用方法5.RichTextBox1 的示例代码正文一、RichTextBox1 简介RichTextBox1 是 Visual Basic 中的一个控件，它允许用户在文本框中输入和编辑多格式的文本。

通过使用 RichTextBox1，可以在 Windows 窗体应用程序或 Web 页面中创建一个功能强大的文本编辑器。

二、RichTextBox1 的基本属性1.Text：用于存储和显示文本框中的文本。

2.Font：设置或获取文本的字体、大小和样式。

3.ForeColor：设置或获取文本的颜色。

4.BackColor：设置或获取文本框的背景颜色。

5.Lines：设置或获取文本框中可见的行数。

6.MaxLength：设置或获取文本框中最大字符数。

三、RichTextBox1 的事件1.Click：鼠标左键单击文本框时触发。

2.DoubleClick：鼠标左键双击文本框时触发。

3.MouseDown：鼠标左键按下文本框时触发。

4.MouseUp：鼠标左键释放文本框时触发。

5.KeyDown：按下键盘上的某个键时触发。

6.KeyUp：释放键盘上的某个键时触发。

7.Enter：按下回车键时触发。

四、RichTextBox1 的常用方法1.Clear：清空文本框中的所有文本。

2.Paste：将剪贴板中的文本粘贴到文本框中。

3.Copy：将文本框中的文本复制到剪贴板。

4.Cut：将文本框中的文本剪切到剪贴板。

5.SelectAll：选择文本框中的所有文本。

6.Find：查找文本框中的指定文本。

7.Replace：替换文本框中的指定文本。

五、RichTextBox1 的示例代码```Visual BasicImports SystemPublic Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadRichTextBox1.Text = "Hello, World!"End SubEnd Class```以上代码创建了一个简单的 Windows 窗体应用程序，当窗体加载时，文本框中将显示“Hello, World!”。

用微软网格控件进行编辑输入Visual Basic中提供了许多标准控件和定制控件，每一个控件都可以提供一组特殊的用户界面和编程能力。

充分利用每一个控件的特性和方法，可以使编程工作更加容易、简单。

微软网格控件MSFlexGrid是个定制控件。

使用微软网格控件，可以按行列顺序显示正文、数字和图片，就象电子表格一样。

网格的高度、宽度和其它特性都可以进行调整，而且网格的行和列可以单个地或成组地进行操作。

MSFlexGrid控件对包含在内的单元内容可进行分类、合并以及格式化，并且可以与数据库控件相绑定。

MSFlexGrid控件具有50多种属性，比其它网格控件功能更强大，灵活性更强。

但是MSFlexGrid控件同其它Grid网格控件一样，用户不能编辑网格单元中的内容，在要求对其内容进行修改时，这可能是一个缺陷。

虽然可以对DBGrid控件进行编程完成编辑的功能，但其功能不如MSFlexGrid强大。

当在录入工作量比较大时，如果利用MSFlexGrid进行输入，代替Text或其它控件，从而避免了界面的反复刷新和不断地操作按钮，录入速度和效率会得以大大提高。

在应用程序中使用MSFlexGrid 之前，应先将MSFlxGrd.ocx 文件添加到工程中。

实现编辑网格单元的方案为了仅仅要求实现能够对网格单元进行输入，可以在MSFlexGrid的KeyPress事件中加入以下代码，但是修改编辑输入后的内容还十分困难。

Sub MSFLexGrid1_KeyPress(KeyAscii As Integer)MSFlexGrid1.Text=MSFlexGrid1.Text & Chr$(KeyAscii)End Sub另外一种方法是文本框和网格相结合，用户编辑操作文本框中的内容，操作完后移至网格单元中。

在这个过程中，应该实现以下几个功能：（1）文本框能准确定位，与待编辑网格单元相重合（2）平时文本框不显示，当进行编辑操作时显示（3）在输入完一行后能自动判断并加一新行（4）按回车键确认并自动到下一列（5）双击网格单元可显示文本框进行编辑（6）文本框消失后，把文本框内容移到网格单元中。

文本框控件属性
1、text属性 text属性 2、multiline 显示多行文本 3、maxlength 最长字符数 例: 4、passwordchar 设置密码文本框 multiline需要设置为 false方起作用 需要设置为： 注：multiline需要设置为：false方起作用 5、locked 是否可编辑 6、scrollbars 设置滚动条（Multiline为True时） 设置滚动条（Multiline为Tr change事件 例change 2、setfocus 例 setfocus 3、keypress事件 keypress事件 keyascii＝ keyascii＝0 取消当前键入的内容 例
1、焦点 tabindex tabstop 例：图5.21 Setfocus方法 Setfocus方法 caption值设置访问键 Alt+*） 值设置访问键（ 用caption值设置访问键（Alt+*）
标签和文本框
标签
1、用于标注本身不具有caption属性的控件 用于标注本身不具有caption属性的控件 2、caption属性 caption属性 3、borderstyle边框属性 borderstyle边框属性 4、font属性（包括fontname和fontsize等） font属性 包括fontname和fontsize等 属性（ 5、forecolor（前景颜色）backcolor（背景颜色） forecolor（前景颜色）backcolor（背景颜色） 6、alignment对齐方式 alignment对齐方式 7、autosize自动调整大小并水平扩展 autosize自动调整大小并水平扩展 8、wordwrap垂直扩展 wordwrap垂直扩展 9、backstyle设置透明标签 backstyle设置透明标签 增加设置标签的Font,forecolor,autosize等属性 例5.2 增加设置标签的Font,forecolor,autosize等属性

VB6.0控件编程技巧汇编在Visual Basic中，文本框（TextBox）是最常用的控件，熟练运用文本框是开发出高质量的应用程序的基础。

笔者在从事应用程序开发中，摸索出有关文本框的应用技巧，写出来与VB爱好者共享。

1、设置只读文本框。

有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的只读呢？首先，我们可以利用标签框（label ）的只读属性，以标签来代替文本框以实现只读属性，但也可以用小程序实现真正的文本框的只读。

Sub Text1_KeyPress (keyascii As Integer)keyascii = 0End Sub或者也可以用sendkey方法使文本框失去焦点，如以下程序：Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)SendKeys "{tab}"End Sub2、限定文本框的输入内容和格式。

以下程序可以实现限定文本框只能输入数字：Sub Text1_KeyPress (keyascii As Integer)If keyascii <48 Or keyascii> 57 ThenBeepBeepjohny@keyascii = 0End IfEnd Sub若想限定文本框输入格式，可以使用VB的FORMA T函数，也可以使用专业版的屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式作精确控制。

3、为TextBox 创建快捷键。

VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序运行时焦点按Tabindex 属性规定的顺序在控件间跳转。

而为了简化操作，可VB中为任何具有caption的属性的控制创建快捷键，这通过caption 属性中在想作为快捷键的字母前加&号实现。

但有一个问题值得注意，而类似文本框这样的控件无caption 这样的属性，这时可将标签与文本框同时使用。

对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then

第五章 使用文本框和标签输入输出文字信息
5.2 使用标签控件显示字符信息
用于显示文本(输出)信息，不能作为输入信息的界面。 1．基本属性 Name、Height、Width、Top、Left、Enabled、Visible、 Font、ForeColor、BackColor等与窗体的使用相同。 2．常用属性 1）Caption属性 Caption属性用来改变Label控件中显示的文本。Caption属 性允许文本的长度最多为1024字节。缺省情况下，当文本超过控 件宽度时，文本会自动换行，而当文本超过控件高度时，超出部 分将被裁剪掉。
第五章 使用文本框和标签输入输出文字信息
5.1.2 文本框的属性、事件和方法 1.Change事件
改变文本框的Text属性时会引发该事件。当输入一 个字符，就会触发一次Change事件。
第五章 使用文本框和标签输入输出文字信息
例2 当程序运行时，用户在第一个文本框中输入一行文字时，在另外 两个文本框中同时显示出相同的内容，但显示的字体大小不同。
个字符就会触发一次change事件第五章使用文本框和标签输入输出文字信息例2当程序运行时用户在第一个文本框中输入一行文字时在另外两个文本框中同时显示出相同的内容但显示的字体大小不同
第五章 使用文本框和标签输入输出文字信息
5.1 使用文本框处理字符信息 5.1.1 文本框的简单使用 例1
第五章 使用文本框和标签输入输出文字信息
Private Sub Command2_Click() End End Sub
第五章 使用文本框和标签输入输出文字信息
校验密码按钮的click代码
Private Sub Command2_Click() pass$ = Text1.Text If pass$ = "password" Then Text2.Text = "密码正确，继续进行" Else Text2.Text = "密码错误，重新输入" End If End Sub

VB中的等同text文字格式随着信息技术的不断发展，程序设计语言也在不断进步和演变。

在许多编程语言中，VB（Visual Basic）是一种常用的面向对象的编程语言，它具有易学易用的特点，因而受到许多开发者的青睐。

在VB中，文字格式的处理是非常重要的，它直接关系到用户界面的美观和用户体验。

而等同text文字格式正是VB中常用的一种文字格式，它能够实现文字的等宽对齐和美观的显示效果。

本文将重点介绍VB中的等同text文字格式，包括其特点、用法以及在实际开发中的应用案例。

一、等同text文字格式的特点等同text文字格式是VB中常用的一种文字格式，它具有以下特点：1. 等宽对齐：等同text文字格式可以实现文字的等宽对齐，这意味着每个字符的宽度都是相等的，无论是字母、数字还是符号，都能够在同等的宽度上得到显示。

这种对齐方式使得文字在界面上看起来整齐划一，给用户带来清晰的视觉效果。

2. 易读性强：等同text文字格式的排版清晰、布局紧凑，使得文字更易于阅读和理解。

无论是单行文字还是多行文字，都能够以一种规整的方式呈现在用户面前，极大地提升了文字的可读性。

3. 适用范围广：等同text文字格式适用于各种应用场景，包括但不限于文本标签、按钮文本、文本框内容等。

它可以满足不同控件和组件对文字格式的需求，为开发者提供了广泛的选择空间。

二、等同text文字格式的用法在VB中，使用等同text文字格式主要依靠TextAlign属性和Font属性两个方面。

下面将分别介绍这两个方面的具体用法：1. TextAligh属性：TextAlign属性用于控制文字的对齐方式，包括水平对齐和垂直对齐。

对于水平对齐来说，通常的取值包括Left、Right 和Center，分别代表左对齐、右对齐和居中对齐。

而对于垂直对齐来说，通常的取值包括Top、Bottom和Middle，分别代表顶部对齐、底部对齐和居中对齐。

通过合理地设置TextAlign属性，可以实现文字的各种对齐方式，满足不同需求。

VB的TextBox⽂本框实现垂直居中显⽰的⽅法本⽂实例代码可以实现让VB的TextBox⽂本框垂直居中显⽰效果。

此处需要注意：Form_Load()窗体代码中的多⾏属性设置必须为真，即Text1.MultiLine = True，该属性为只读属性，请在设计时修改，换⾏会被之后的代码屏蔽，不想屏蔽可⾃⾏修改，调⽤此函数就好了。

具体的功能代码如下：'================================================================================'| 模块名 | TextBoxMiddle'| 说明 | ⽂本框居中显⽰'=================================================================================Option ExplicitPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePrivate Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const EM_GETRECT = &HB2Private Const EM_SETRECTNP = &HB4Private Const GWL_WNDPROC = (-4)Private Const WM_CHAR = &H102Private Const WM_PASTE As Long = &H302Private prevWndProc As LongPublic ClipText As StringPublic Sub DisableAbility(TargetTextBox As TextBox)prevWndProc = GetWindowLong(TargetTextBox.hwnd, GWL_WNDPROC)SetWindowLong TargetTextBox.hwnd, GWL_WNDPROC, AddressOf WndProcEnd SubPrivate Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongDim Temp As StringSelect Case MsgCase WM_CHARIf wParam <> 13 Then WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)Case WM_PASTEClipText = Clipboard.GetTextTemp = Replace(ClipText, Chr(10), "")Temp = Replace(Temp, Chr(13), "")Clipboard.ClearClipboard.SetText TempWndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)Clipboard.ClearClipboard.SetText ClipTextCase ElseWndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)End SelectEnd FunctionSub VerMiddleText(mForm As form, mText As TextBox)If mText.MultiLine = False Then Exit SubDim rc As RECT, tmpTop As Long, tmpBot As LongSendMessage mText.hwnd, EM_GETRECT, 0, rcWith mForm.Font.Name = .Size = mText.Font.Size.Bold = mText.Font.BoldEnd WithtmpTop = ((rc.Bottom - rc.Top) - _(mText.Parent.TextHeight("H ") \ Screen.TwipsPerPixelY)) \ 2 + 2tmpBot = ((rc.Bottom - rc.Top) + _(mText.Parent.TextHeight("H ") \ Screen.TwipsPerPixelY)) \ 2 + 2rc.Top = tmpToprc.Bottom = tmpBotmText.Alignment = vbCenterSendMessage mText.hwnd, EM_SETRECTNP, 0&, rcmText.RefreshDisableAbility mTextEnd Sub'///////////////////////////////////////////////////////'以下为窗体代码'///////////////////////////////////////////////////////Private Sub Form_Load()'================注意================='多⾏属性必须为真，暨Text1.MultiLine = True'该属性为只读属性，请在设计时修改'换⾏会被之后的代码屏蔽，不想屏蔽可⾃⾏修改'==========================================='调⽤此函数就好了VerMiddleText Me, Text1Caption = Len(Text1)End Sub。

vb全选文本框内容VB全选文本框内容是一个常见的操作，针对大量文本内容的快速全选和复制可以提高代码编写效率。

下面将分步骤为大家介绍如何使用VB全选文本框内容。

1. 创建文本框控件首先需要创建一个文本框控件，可以通过拖拽方式在VB窗体设计界面直接创建，也可以在VB代码中通过文本框控件的类创建对象实现。

具体代码如下：Private Sub Form_Load()Set TextBox1 = Me.Controls.Add("VB.TextBox", "TextBox1") TextBox1.Move 60, 60, 1800, 1200End Sub在视觉效果上，可以根据需要调整文本框的位置和大小，也可以在属性面板中设置文本框控件的相关属性，如背景色、字体等。

2. 添加文本内容在创建好文本框控件后，可以通过以下代码为文本框添加一些内容：TextBox1.Text = "Hello World!"如果需要从外部文件中导入文本内容，可以使用以下代码实现：Open "D:\test.txt" For Input As #1TextBox1.Text = Input(LOF(1), 1)Close #13. 实现文本框内容全选为实现VB全选文本框内容，需要使用文本框控件的SelStart和SelLength属性，代码如下：TextBox1.SelStart = 0TextBox1.SelLength = Len(TextBox1.Text)在该代码中，SelStart属性表示当前光标位置，这里设置为0，即文本框内容开头。

SelLength属性表示选中内容的长度，这里设置为文本框中的所有内容长度。

4. 复制选中内容VB全选文本框内容完成后，可以使用以下代码实现复制选中的内容：Clipboard.ClearClipboard.SetText TextBox1.SelText其中Clipboard.Clear表示清空剪贴板，以免复制的内容与之前的内容混淆。

通过VB中的加密算法和函数，实 现对文件的加密和解密功能，保 护文件内容的安全性和隐私性。
2024/1/28
17
05
数据库应用与集成
2024/1/28
18
数据库概述及连接方式
2024/1/28
数据库基本概念 数据库是长期存储在计算机内、有组织的、可共享的数据 集合，具有数据结构化、数据独立性、数据冗余度小等特 点。
数据计算
利用VB中的算术运算符和函数，对数据进行各种计算，如加、减、乘、 除、求余等运算，以及使用数学函数进行复杂的数学计算。
2024/1/28
03
数据排序与查找
通过VB中的数组、列表等数据结构，实现对数据的排序和查找功能，
如冒泡排序、选择排序等排序算法，以及线性查找、二分查找等查找算
法。
15
图形图像处理功能
使用Command对象执行 SQL命令，如查询、插入、 更新、删除等，可以通过 参数化查询来防止SQL注 入攻击。
使用DataReader对象读 取查询结果，可以通过循 环遍历逐行读取数据，也 可以使用DataSet对象将 数据加载到内存中进行处 理。
2024/1/28
使用Transaction对象对 数据库操作进行事务管理， 确保数据的完整性和一致 性。
03
7
VB编程环境
2024/1/28
01
VB编程环境包括集成开发环境（IDE）和运行时环境。
02
IDE提供代码编辑器、窗体设计器、调试器等开发工 具，方便程序员进行应用程序开发。
03
运行时环境提供VB程序运行所需的库文件和解释器， 确保程序能够正确执行。
8
VB基本语法
VB基本语法包括变量、数据类型、 运算符、控制结构等。