计算机等级考试二级VB常见问题及解答

下面是一些VB问题的典型回答，希望对广大VB爱好者有所帮助。
问题:如何将文本框中的特定字符或文本字符串编程为同时突出显示？

回答:因为普通的TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。点击项目选择单项，点击组件在弹出的下拉菜单中选择单项，在弹出的对话框中选择Microsoft RichTextBox Control 5.0复选框确认加载RichTextBox控件。

新建一个项目，在窗体上添加一个RichTextBox控件和两个Command (button)控件，都采用系统Name属性的默认值；将RichTextBox的Text属性值设置为空，Command1和Command2的Caption属性值分别设置为“输入文本”和“选择字符串”。最后，添加以下VB代码:

私有子命令1—单击()

Dim字符串作为字符串

将文本作为字符串变暗

Str = "输入文本"

Text=InputBox(str)

RichTextBox1。文本=文本

末端接头

私有子命令2—单击()

Dim字符串作为字符串

将文本作为字符串变暗

整数形式的Dim位置

Dim Lenth为整数

Str = "输入要突出显示的字符串"

Text=InputBox(str)

如果文本\",则

Position=InStr(RichTextBox1。文字，文字)-1

Lenth=Len(文本)

RichTextBox1。SelStart =位置

RichTextBox1。SelLength =长度

RichTextBox1。SelColor=RGB(255，0，0)

Do While InStr(Position+Lenth+1，RichTextBox1。正文，正文)〉 0

Position = InStr(Position+Lenth+1，RichTextBox1。文字，文字)-1

RichTextBox1。SelStart =位置

RichTextBox1。SelLength =长度

RichTextBox1。SelColor=RGB(255，0，0)

环

如果…就会结束

末端接头

按F5执行程序，点击“输入文本”按钮，在弹出的对话框中输入一些文本。确认后，刚刚输入的文本将显示在RichTextBox中；然后点击“选择字符串”按钮，在弹出的对话框中输入要高亮显示的字符串。确认后，RichTextBox中相应的字符串将以红色突出显示。

问题:如何用VB编写程序实现Windows 95操作系统的热启动？

答:使用程序重启系统，可以在程序中调用API函数。建立一个子函数:(以VB为例)

声明函数system parameters info Lib“user 32”Alias—

″系统参数信息″( ByVal action为Long，ByVal uParam为Long，

ByVal lpvParam As Any，ByVal fuWinIni As Long)

sub DisableCtrlAltDelete(b禁用为布尔值)

Dim X As Long

X=SystemParametersInfo(97，bDisabled，CStr(1)，0)

末端接头

调用disable CTRL LTDELETE (true)'无热启动

DisableCTRLALTDELETE (false)'允许热启动
问题:如何将数据文件输出到文本控件？如果数据量很大，表单全屏不够大，怎么解决？

答:有一种简单的方法可以将数据放入文本框，并在其中添加水平和垂直滚动条。具体步骤如下:首先，在表单中添加一个文本框，采用默认名称Text1；然后，设置Text1的属性:Text属性设置为空，MultiLine属性设置为True，ScrollBars属性设置为3-both；然后添加以下VB代码:

私有子窗体—加载()

整数形式的Dim句柄

将文件名标注为字符串

出错时转到ErrExit

开始:

输入要显示的数据文件的名称。

FileName = InputBox $(″输入文件名″,

“打开文件”

出错时转到文件错误

Handle=FreeFile

以#Handle形式打开输入文件名

将数据文件中的数据输出到文本框。

文本1。Text=Input$(LOF(句柄)，句柄)

关闭#句柄

出口接头

文件错误:

Dim ErrNum为整数

如果错误。那么数字=53

ErrNum=MsgBox(文件不存在，vbOKCancel，错误信息)

如果ErrNum=1，则

转到开始

其他

出口接头

如果…就会结束

如果…就会结束

MsgBox错误。描述，，“文件打开失败”

ErrExit:

出口接头

末端接头

让文本框填充整个表单。

私有子窗体—调整大小()

文本1。左=0

文本1。Top=0

文本1。宽度=Form1。宽度-100

文本1。高度=Form1。身高-400

End
想做一个对话表单，包含驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作。怎么做？

答:在实际应用中，经常会遇到上述问题。在VB中解决这个问题很简单，通过改变Path属性引发Change事件就可以实现。例如:

子目录1—更改()

文件1。Path=Dir1。小路

末端接头

事件过程同步表单上的目录列表框Dir1和文件列表框File1。因为目录列表框的Path属性的改变会产生Change事件，在Dir1—Change事件的过程中，赋Dir1。文件1的路径。路径可以产生同步效果。

想做一个对话框，包括驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作，怎么做？

答:在实际应用中，经常会遇到上述问题。在VB中解决这个问题很简单，通过改变Path属性引发Change事件就可以实现。例如:

子目录1—更改()

文件1。Path=Dir1。小路

末端接头

事件过程同步表单上的目录列表框Dir1和文件列表框File1。因为目录列表框的Path属性的改变会产生Change事件，在Dir1—Change事件的过程中，赋Dir1。文件1的路径。路径可以产生同步效果。

想做一个对话框，包括驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作，怎么做？

答:在实际应用中，经常会遇到上述问题。在VB中解决这个问题很简单，通过改变Path属性引发Change事件就可以实现。例如:

子目录1—更改()

文件1。Path=Dir1。小路

末端接头

事件过程同步表单上的目录列表框Dir1和文件列表框File1。因为目录列表框的Path属性的改变会产生Change事件，在Dir1—Change事件的过程中，赋Dir1。文件1的路径。路径可以产生同步效果。

想做一个对话框，包括驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作，怎么做？

答:在实际应用中，经常会遇到上述问题。在VB中解决这个问题很简单，通过改变Path属性引发Change事件就可以实现。例如:

子目录1—更改()

文件1。Path=Dir1。小路

末端接头

事件过程同步表单上的目录列表框Dir1和文件列表框File1。因为目录列表框的Path属性的改变会产生Change事件，在Dir1—Change事件的过程中，赋Dir1。文件1的路径。路径可以产生同步效果。