计算机等级考试二级VB常见问题和技巧解答
文章作者 100test 发表时间 2007:05:12 13:45:46
来源 100Test.Com百考试题网
计算机等级考试训练软件《百宝箱》
下面有几个较为典型的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) ′允许热启