计算机等级考试二级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的路径。路径可以产生同步效果。
位律师回复
0条评论