您现在的位置: 中国男护士网 >> 考试频道 >> 计算机等级 >> 二级辅导 >> VB >> 辅导 >> 正文    
  等级考试二级VB常见问题和技巧解答[1] 【注册男护士专用博客】          

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

www.nanhushi.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) ′允许热启

 

文章录入:杜斌    责任编辑:杜斌 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
     

    联 系 信 息
    QQ:88236621
    电话:15853773350
    E-Mail:malenurse@163.com
    免费发布招聘信息
    做中国最专业男护士门户网站
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    专 题 栏 目

      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)                            【进男护士社区逛逛】
    姓 名:
    * 游客填写  ·注册用户 ·忘记密码
    主 页:

    评 分:
    1分 2分 3分 4分 5分
    评论内容:
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。