VB程序中的文本处理

合集下载

vb的功能

vb的功能

vb的功能VB(Visual Basic)是一种编程语言,它可以用于开发各种应用程序,从简单的计算器到复杂的企业级应用。

以下是VB的一些常见功能:1. 用户界面设计:VB提供了丰富的用户界面设计工具,可以通过拖放控件来创建窗体、按钮、文本框、标签等各种控件,并添加事件处理程序来实现交互功能。

2. 数据库连接和操作:VB提供了方便的数据库连接和操作功能,可以轻松地连接到各种数据库(如Microsoft SQL Server、Oracle、MySQL等),进行数据的查询、修改、删除等操作。

3. 文件读写:VB提供了读写文件的功能,可以通过简单的代码来读取文本文件、CSV文件、Excel文件等,并进行数据处理和分析。

4. 图形绘制和处理:VB可以用于绘制各种图形,包括直线、圆形、矩形等,并提供了丰富的图形处理函数,如旋转、缩放、剪切等。

5. 网络通信:VB可以进行网络通信,包括基于TCP/IP的Socket通信、HTTP请求、FTP文件传输等。

6. 多线程编程:VB可以创建多个线程来实现并发处理,提高程序的性能和响应能力。

7. 错误处理和调试:VB提供了丰富的错误处理机制,可以捕获和处理异常,避免程序崩溃,并提供了调试工具,帮助开发者快速定位和修复错误。

8. 应用程序集成:VB可以与其他应用程序集成,如Microsoft Office、Adobe Reader等,可以自动化操作这些应用程序,进行数据导入、导出等操作。

9. Web开发:VB可以用于开发Web应用程序,包括 Web Forms和 MVC等,可以创建动态网页、表单验证、用户注册等功能。

10. 移动应用开发:VB可以用于开发移动应用程序,如Android、iOS等,可以创建交互式界面、处理用户输入、访问设备功能等。

综上所述,VB具有丰富的功能,可以用于开发各种类型的应用程序,无论是桌面应用、Web应用还是移动应用,都可以通过VB来实现。

其简单易学的语法和强大的功能,使得VB 成为很多开发人员的首选语言之一。

VB课程设计-文本编辑器

VB课程设计-文本编辑器

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程序设计。

VB中操作文本文件的处理实例

VB中操作文本文件的处理实例

VB中操作文本文件的处理实例VB操作文本文件的方法很多,下面的例子很有代表性,希望能够给各位朋友一些启发.'功能:删除、替换文本中一行,或者插入内容到文本中某一行'作者: soho_andy (冰)'参数:'strSourceFile 原始文件完整名'strTargetFile 生成新文件的完整名'intRow 操作的行数Sub 操作文件中一行(strSourceFile As String, strTargetFile As String, intRow As Long) Dim filenum As IntegerDim fileContents As StringDim fileInfo() As StringDim i As IntegerDim j As Integerfilenum = FreeFileOpen strSourceFile For Binary As #filenumfileContents = Space(LOF(filenum))Get #filenum, , fileContentsClose filenumfileInfo = Split(fileContents, vbCrLf)'取出源文件行数,按照回车换行来分隔成数组filenum = FreeFileIf Dir(strTargetFile, vbNormal) <> "" ThenKill strTargetFileEnd IfDim Filestr() As String'删除一行代码块Open strTargetFile For Append As #filenum'循环每一行For i = 0 To UBound(fileInfo) - 1If i <> intRow - 1 ThenPrint #filenum, fileInfo(i)End IfNextClose #filenum'替换一行代码块Open strTargetFile For Append As #filenum'循环每一行For i = 0 To UBound(fileInfo) - 1If i = intRow - 1 ThenPrint #filenum, "你要替换进去的内容"End IfNextClose #filenum'插入一行代码块Open strTargetFile For Append As #filenum'循环每一行For i = 0 To UBound(fileInfo) - 1If i = intRow - 1 ThenPrint #filenum, "你要插入到这行的内容"Print #filenum, fileInfo(i) '保留原来的行,位置后移一位End IfNextClose #filenumMsgBox "完毕"End Sub'另外一个解决实际问题的例子''网友的要求'设有文件a.txt,其中存放了两行数据,数据用逗号分隔,现在要读取第一行的奇数位置的数据写入到另一个文本文件(b.txt)的第一行,类似地,把第二行的奇数位置的数据写入到第二行。

VB 6编程中的汉字处理

VB 6编程中的汉字处理
系统汉字字库中提取的汉字字模并不能直接在液晶上显示,通常都必须经过格式上的调整和转换。
1、图形点阵液晶的汉字字模
与在西文DOS中显示汉字不同的是,图形点阵液晶并不是简单地用画点的方式来描出汉字。以常用的
HD61202图形点阵液晶显示控制模块为例,它能控制64×64点阵液晶的显示,其显示RAM共64行,分8页,
每页8行,每一页的数据寄存器分别对应液晶屏幕上的8行点,对显示RAM的一个字节单位赋值就是对当前
列的8行(一页)的像素点是否显示进行控制。连续16列和相邻的2页的32字节显示RAM就可以控制一个汉字
的显示区域。对这些显示RAM赋以相应的值就可以显示出一个汉字。
HD61202图形点阵液晶显示控制模块的汉字字模的排列实际上是标准汉字字模排列形式旋转而成的。
1、方法1
VB6中提供了LenB函数用于字符串中的字节数据。如同在双字节字符集(DBCS)语言中一样,LenB返回
的是用于代表字符串的字节数,而不是返回字符串中字符的数量。如为用户自定义类型,LenB返回在内存
中的大小。
LenB(StrConv(Str1,vbFormUnicode))
IMEStatus函数返回一个整数,用来指定当前Windows的输入法(IME)方式。
下面是中文地区的返回值:
常数 值 描述
vbIMENoOP 0 不安装IME(缺省)
vbIMEOn 1 打开IME
ImeMode属性返回或者设置被选定的对象的 IME (Input Method Editor,输入方法编辑器)状态。
内码为ddff,其中dd表示区内码,ff表示位内码,则dd-&Ha1为该汉字的区码,ff-&Ha1为该汉字的位码。

(完整版)vb_字符串处理函数大全

(完整版)vb_字符串处理函数大全

mid(字符串,从第几个开始,长度)ByRef在[字符串]中[从第几个开始]取出[长度个字符串]例如 mid("坦然面对",1,3)则返回”坦然面”instr(从第几个开始,字符串1,字符串2) ByVal从规定的位置开始查找,返回字符串2在字符串1中的位置例如 instr(1,”坦然面对","坦") 则返回 1,instr(2,"坦然面对”,"坦”),则返回 0 。

0 表示未找到InStrRev(字符串1,字符串2,从第几个开始) ByVal从规定的位置开始,从后住前查找,返回字符串2在字符串1中的位置,此处注意,虽是从后住前查找,但是返回的值还是从前往后算的。

例如 instrRev("坦然面对","坦”,2)则返回 2 ; instrRev("坦然面对”,”然”,1)则返回 0 ,因为它从”坦然面对”的第1个字开始往前查找,所以找不到。

0 表示未找到left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符例如Left(”坦然面对",3)则返回 "坦然面"right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符例如Right(”坦然面对",3)则返回”然面对"ucase(字符串) ByVal 返回[字符串]的大写形式,只对英文字符有效例如 ucase(”tanRANmiAnDui”)则返回 "TANRANMIANDUI"lcase(字符串) ByVal 返回[字符串]的小写形式,只对英文字符有效例如lcase("tanRANmiAnDui”)则返回”tanranmiandui”asc(字符) Byval返回[字符]的ascii编码,若有多个字符,则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程例如 asc(”坦”) 则返回—13127; asc("坦然面对")也返回—13127chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符,和Chr()函数是一个可逆的过程例如 chr(—13127)则返回 "坦” ;chr(asc(”坦”)) 则返回”坦”(这里是为了说明asc和chr的可逆性,例用此特性可以加密文本)trim(字符串) Byval 返回去掉了前、后之后的[字符串]例如 trim(" 坦然面对 ")则返回 "坦然面对" ,中间的空格不受任何影响string(个数,字符) Byval 返回[个数]个[字符]例如 string(3,”坦")则返回 "坦坦坦" ,而 string(3,”坦然面对")也返回 "坦坦坦",只有首字符才有效space(个数) Byval 返回[个数]个空格例如 space(5)则返回 " ”strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。

浅谈VB6.0中的实用技巧

浅谈VB6.0中的实用技巧

浅谈VB6.0中的实用技巧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的FORMAT函数,也可以使用专业版的屏蔽控件(Masked Edit),通过设定屏蔽控件的Mask属性可以对文本框的输入格式作精确控制。

3、为TextBox 创建快捷键。

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

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

vb程序设计及应用

vb程序设计及应用

vb程序设计及应用
VB(Visual Basic)是一种常见的编程语言,常用于Windows系统的
程序设计。

以下是VB程序设计及应用的一些常见主题:
1. 数据库应用:VB可以连接数据库,实现数据的存储和管理。

常见
的数据库包括Access、SQL Server、MySQL等。

2.界面设计:VB提供了丰富的工具和控件,可以设计美观、实用的
界面。

这样的界面通常包括按钮、标签、文本框、列表等控件。

3.文件操作:VB可以处理各种文件,包括文本文件、图像文件、音
频文件等。

通过编写VB程序,可以实现对这些文件的读取、写入、修改
等操作。

4. 系统调用:VB可以与Windows操作系统进行交互,实现对系统资
源的使用和管理。

比如可以通过VB程序打开某个程序,调整系统设置等。

5.网络编程:VB可以用于编写客户端和服务器端程序,实现网络通信。

常见的应用包括聊天室、在线游戏等。

以上是VB程序设计及应用的一些常见主题,还有很多其他的应用领域。

有兴趣学习VB的读者可以从这些方面入手,逐步掌握这门语言。

VB 第八章 文件操作

VB 第八章 文件操作

代码总结
Private Sub File1_DblClick() Dim selfile As String, i As Double If Right(File1.Path, 1) = "\" Then selfile = File1.Path & File1.FileName Else selfile = File1.Path & "\" & File1.FileName End If Select Case LCase(Right(selfile, 3)) Case "txt" i = Shell("notepad.exe" & " " & selfile, vbNormalFocus) Case "doc" i = Shell("winword.exe" & " " & selfile, vbNormalFocus) Case "bmp", "jpg" i = Shell("mspaint.exe" & " " & selfile, vbNormalFocus) End Select End Sub
' 添加记录 Sub command1_click() With Student .ino=val(text1.text) .strname=text2.text .strsex=iif(option.value,”1”,”0”) .smark=val(text3.text) end with open “c:\stuent.dat” for random as #1 len=len(student) record_no=lof(1)/len(student)+1 label1.caption=record_no put #1,record_no,student close #1 end sub
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。





在Visual Basic的内部控件中,用于显示文本的内部控件主要有标签控件和文 本框控件。文本框控件主要用于文本的交互式输入输出。 在Visual Basic中,标签控件用来记录要显示的文本信息的属性是Caption。 对Caption属性赋不同的值,它就显示不同的内容。许多控件都具有Caption 属性,它的作用是显示控件的标题。窗体对象的Caption属性就代表了在窗 体的标题栏上显示的标题。 在Visual Basic的属性窗口中,把光标移到这个属性右边的框中,便可以输入 内容了。 要使程序界面更加专业,还必须要设置标签的其它属性,包括背景颜色、前 景颜色、背景类型、字体设置等。 单击属性窗口里的Back Color或Fore Color属性,会出现一个颜色列表,可 以从中选择需要的颜色。标签的背景颜色决定了控件背景的颜色,其前景颜 色决定了标签中文本的颜色。为了不让背景颜色遮盖了整个程序的背景,可 以把标签的Back Style属性由Opaque设置为Transparent。设置方法是在属性 窗口中单击这个属性右侧的箭头按钮,然后从列表中选择需要的类型。或者 双击这个属性框,Visual Basic可以在各个不同的属性值之间进行切换。 标签的另一个重要的属性是Font属性。设置这个属性可以改变标签显示的文 本的字体,它的设置非常简便,类似于许多常用软件中的字体格式的设置。 单击属性窗口中的Font属性右边的省略号,会出现字体设置对话框,在这个 对话框中,可以改变标签显示的文本的字体、字号、样式以及有无下划线等 其它一些属性。
使用提示条的方法十分简单。在Visual
Basic中, 几乎所有的控件都有Tool Tip Text属性。在默 认状态下,这个属性的内容是空的。当需要的 时候,就可以在这个属性中填入字符串,那么, 在程序运行的时候,把鼠标移动到对应的控件 上稍作停留,这个字符串就会显示出来。 虽然这种方法实现起来比较简单,但是在实际 编程时是非常有用的。如果在一个比较复杂的 应用程序中,不给出提示条,用户使用起来肯 定会比较费事,特别是如果程序定义了自己特 色的工具栏的话。记住在自己的应用程序中加 入提示条,让程序看起来更专业些。Fra bibliotek
在编写Visual Basic程序的过程中,经常会遇到要显示应用程 序当前状态的情况。有时还需要在程序的一定位置为程序的 操作提供说明,这些情况可以用状态栏控件来万趁。 但是,状态栏控件不是Visual Basic的标准内部控件,在工具 箱中是找不到这个控件的。所以需要你自己手动添加。 这个控件的载入需要用户手动完成。在工具箱上单击鼠标右 键,会出现一个快捷菜单,在这个菜单上,共有四个命令。 【隐藏】命令可以隐藏工具箱,选中【可连接的】命令可以 使工具箱固定在Visual Basic的左部,不选中时,工具箱可以 作为一个独立的窗口,在Visual Basic中移动。【添加选项卡】 命令可以为工具箱增加一个选项卡。 在快捷菜单中选择【部件】命令,可以为当前的选项卡添加 控件,选中列表中的对应的复选框,单击对话框上的【应用】 按钮,便可以把对应的控件加入到工具箱中。




单击工程资源管理器的【查看代码】按钮,便进入代码编辑 器。 代码编辑器的主要用途是编辑代码。它的功能十分强大,利 用它将大大有利于用户的编程工作。 在代码编辑器的顶部,有两个列表框,第一个叫【对象】框, 第二个为【过程】框。为Visual Basic工程里的控件添加事件 处理程序,打开【对象】列表从中选择要添加事件处理程序 的控件或窗体,打开【过程】列表框,在这个列表框中列出 了这个对象能提供的事件。 当用户输入了对象名称和句号的时候,代码编辑器中会出现 一个列表框,里面列出了句号前面的对象的属性和方法。你 可以从中选择一个需要的属性和方法,然后按空格或回车, 或用鼠标单击需要的属性或方法,就可以把这个属性或方法 输入到程序的代码中。输入方法时,后面还会显示这个方法 所需要的参数。 这是Visual Basic代码编辑器的又一个功能,可以从列表框中 选择对象的某个属性或方法,这样就省去你记忆对象的属性 的麻烦。这对于编程显然是非常方便的。
Elaborazione del testo del programma di VB

在Visual Basic编程过程中,经常遇到一些显示文 本的情况,处理文本是一项经常使用的技术。





单个的文本处理也许看起来有些简单,但是如果 能够有效地组合使用这个技术,可以取得特殊的 效果,使得程序界面变得相当专业,或者达到特 殊的用途。如何来使用这一技术的组合,是一个 编程经验的问题。只有在长期的程序设计实践中, 才会逐渐积累起这种经验。 在常用软件的启动过程中,经常会看到显示软件 的有关版权信息的启动界面。 在许多字处理应用程序中,经常要在窗口底部显 式系统当前的状态和应用程序当前的有关的处理 信息。这在常用字处理软件Word 2007中比较典型。 在应用程序中,有的时候,特别是在应用程序提 供的命令或选项比较复杂的时候,经常要在一些 地方为用户提供操作提示。这在专业的应用程序 中是十分必要的。可以使用两种方法,一个是使 用提示条,一个是使用状态栏。 虽然显示文本的技术比较简单,但是它在编程过 程中有着相当重要的意义。用这个技术,可以编 写出相当专业的应用程序界面。 显示一般文本信息,用Visual Basic的标准控件—— 标签。 显示应用程序的状态信息,用Visual Basic的状态 栏控件。 向用户发出操作提示,用Visual Basic提供的提示 条功能。


在窗体上放置一个状态栏控件,然后在属性窗口中单击 【自定义】属性右边的省略号,会出现【属性页】对话 框。在这个对话框中几乎可以设置状态栏中的所有属性, 包括添加窗格、设置字体等。窗格是状态栏控件中用来 显示不同内容的区域,从外形上看来有点类似于一个按 钮。把状态栏分割成几个窗格,有利于在编程中对状态 栏进行很好的控制,而且易于理解各个窗格所代表的内 容的含义。当然,状态栏控件也可以只包含一个窗格。 这个对话框有四个选项卡: 【通用】选项卡:包括状态栏的类型样式设置、鼠标指 针的样式设置、简单文本设置和OLE放置模式设置。 【窗格】选项卡:包括增加和删除窗格,改变窗格的尺 寸,还包括许多其它非常有用的属性设置。事实上, Visual Basic中的状态栏控件不仅可以显示文本,还可以 用来显示许多当前的系统信息,如:系统的时间和日期、 键盘上的各个功能键的状态等。 【字体】选项卡:状态栏控件的字体属性的设置。
相关文档
最新文档