快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱乐和记怡情下载: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 lpvPa和记娱乐和记怡情下载ram 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 DisableCtrlAl和记娱乐和记怡情下载tDelete(true)  ′禁止热启

Call Disable和记娱乐和记怡情下载CtrlAltDelete(false) ′容许热启

您可能还会对下面的文章感兴趣: