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

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

下面有几个较为典型的VB问题的解答，希望能对广大VB爱好者有所帮助。

　　问题：如何编程使文本框中文本的某一特定字符或字符串同时高亮显示?

　　答：由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。单击工程(Project)选单项，在弹出的下拉选单中单击组件(Components)选单项，从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框，确定加载RichTextBox控件。

　　新建(New)一个工程，在窗体(Form)上添加一个RichTextBox控件和两个Command(按钮)控件，都采用系统默认的Name属性值;设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为“输入文本”和“选择字符串”。最后，添加如下VB代码：

以下是引用片段：
　　Private Sub Command1—Click()
　　Dim str As String
　　Dim Text As String
　　str=″输入文本″
　　Text=InputBox(str)
　　RichTextBox1.Text=Text
　　End Sub
　　Private Sub Command2—Click()
　　Dim str As String
　　Dim Text As String
　　Dim Position As Integer
　　Dim Lenth As Integer
　　str=″输入要高亮显示的字符串″
　　Text=InputBox(str)
　　If Text 〈〉 ″″ Then
　　Position=InStr(RichTextBox1.Text, Text)-1
　　Lenth=Len(Text)
　　RichTextBox1.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.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.SelStart=Position
　　RichTextBox1.SelLength=Lenth
　　RichTextBox1.SelColor=RGB(255,0,0)
　　Loop
　　End If
　　End Sub

　　按F5执行程序，单击“输入文本”按钮，在弹出的对话框中输入一些文本，确定后，刚刚输入的文本将显示在RichTextBox中;再单击“选择字符串”按钮，在弹出的对话框中输入你希望高亮显示的字符串，确定后，RichTextBox中相应的字符串将以红色高亮显示。

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

　　答：要利用程序实现系统的重新启动，可以在你的程序中调用API函数来实现。建一个子函数：(以VB为例)

以下是引用片段：
　　Declare Function SystemParametersInfo Lib ″user32″ Alias —
　　″SystemParametersInfo″ (ByVal uAction As Long, ByVal uParam As Long,
　　ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
　　Sub DisableCtrlAltDelete(bDisabled As Boolean)
　　Dim X As Long
　　X=SystemParametersInfo(97, bDisabled, CStr(1), 0)
　　End Sub

　　Call DisableCtrlAltDelete(true)　　′禁止热启

　　Call DisableCtrlAltDelete(false) ′允许热启

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。