三　文本框使用技巧

1、控制文本框中输入的内容

　　例如我们只要求在文本框中输入数字，而不允许出现其它字符，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），下面是一个例子：

　　　Private Sub Text_KeyPress(KeyAscii As Integer)
　　　if KeyAscii < Asc("0") Or KeyAscii > Asc("9") then
　　　　　KeyAscii=0
　　　end if
　　　end sub

　　2、从外部文本文件读入和从文本框中写出内容到文件内容：

　　有时我们需要从外部的文本文件中读入到文本框中，或是把输入到文本框中的内容保存到文件中，这时可以通过对文件操作的几个语句来实现，其中 Open 语句能够对文件输入/输出，LOF函数返回一个 Long型值，表示用 Open 语句打开的文件的大小，该大小以字节为单位。Input函数从文件中读入数据，而Print函数则把数据写到文件中。具体的代码如下面的实例，需要注意的是文本框只能打开大小在32K以下的文本文件，否则会出现错误。

　　　filename="c:\myext.txt"
　　　Open filename For Input As #1
　　　Text.Text=Input$(Lof(1),#1)
　　　Close #1

　　　filename="c:\myext.txt"
　　　on error resume next
　　　open "c:\file.txt" for output as #1
　　　print #1,text1.text
　　　close #1

　　3、怎样把文本框中的文本全部选中

　　这需要使用文本框的属性SelStart和SelLength属性，SelStart表示选择文本的开始，SelLength表示要选中文本的长度，采用以下两句代码就行了。

　　　Text1.SelStart = 0
　　　Text1.SelLength = Len(Text1.Text)

　　另外顺便提一下SelText属性，它可以得到已经选中的文本。

　　4、如何在已经存在的文本的textbox添加新的一行

　　Dim strNewText As String
　　Text1.strNewText = "Updated: " & Date
　　Text1.SelStart = Len(Text1.Text)
　　Text1.SelText = vbNewLine & strNewText

　　实现的关键是vbNewLine常数，它的意义是插入一个换行符。

　　四　组合框使用技巧

1、组合框的三种形式

　　组合框是用来显示一个文本框及一个下拉列表的控件，你可能认为只有一种组合框，但其实有三种，可以通过设置组合框的STYLE属性来选择其一，下面是设置组合框的STYLE属性时用的值：

　　　VBCOMBODROPDOWN　　　--0 ：包括一个下拉列表和一个文本框，可以选择也可输入文字；
　　　VBCOMBOSIMPLE　　　　--1 ：简单组合框，包括一个文本框和一个不会下拉的列表；
　　　VBCOMBODROPDOWNLIST　--2 ：只选组合框。

　　2、在组合框中添加图象

　　这需要使用IMAGE组合框ImageCombo和ImageList，我们先在“添加组件”中选中“Ms Common Control 6.0”然后添加ImageCombo和ImageList，并在ImageList中添加图片，然后可以用以下语句为下拉框添加图片。

　　　ImageCombo1.ComboItems.Add 1,"key1","item1",1
　　　ImageCombo1.ComboItems.Add 2,"key2","item2",2

　　　五　文件操作的技巧

1、建立和删除目录

　　你可以用 MKDIR语句建立一个新目录，可以用RMDIR语句删除一个目录。下面是一个例子：

　　　mkdir "c:\data"
　　　rmdir "c:\data"

　　2、改变当前目录：

　　可用CHDIR改变当前目录为指定目录，例如：

　　　CHDIR "C:\WINDOWS"

　　如果想改变当前目录为应用程序所在的目录，可以使用APP.PATH实现，例如：

　　　chdir app.path

　　3、拷贝、移动文件

　　可以用filesystemobject拷贝文件，该对象提供计算机文件系统的访问权限和类似copyfile的拷贝文件的方法。该方法使用的语法为：

　　filesystemobject.copyfile source,destination[,overwrite]