等级考试二级VB常见问题和技巧解答[1]

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

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

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

下面是加引号的片段:
private子命令1—click()
dimstr as string
dim text as string
str = " input text "
text = input box(str)
rich textbox 1。Text = Text
End Sub
Private Sub command 2—Click()
Dim str As String
Dim Text As String
Dim Position As integer
dimlenth As integer
str = "输入要突出显示的字符串"
text =输入框(str)
if Text < > " " then
Position = InStr(rich textbox 1 .Text，Text)-1
Lenth = Len(Text)
rich textbox 1。sel start = Position
rich textbox 1。SelLength = Lenth
rich textbox 1。SelColor=RGB(255，0，0)
Do While InStr(Position+Lenth+1，RichTextBox1。Text，Text)〉0
Position = InStr(Position+Lenth+1，RichTextBox1。Text，Text)-1
RichTextBox1。sel start = Position
rich textbox 1。SelLength = Lenth
rich textbox 1。SelColor=RGB(255，0，0)
Loop
End If
End Sub

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

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

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

下面是引用的片段:
声明函数system parameters info lib " user 32 " alias—
" system parameters info "(ByVal u action As Long，ByVal uParam As Long，
ByVal lpvParam As Any，ByVal fuWinIni As Long)Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = system parameters info(97，bDisabled，CStr

调用disablectrlaltdelete (true)'禁止热启动。

Disablectrlaltdelete (false)'允许热启动