UC知道vb文本和搜素
来源：百度知道 编辑：UC知道 时间：2024/06/19 18:30:30
Private Sub Command1_Click()
q = Text1.Text
w = Text2.Text
e = Text3.Text
r = Text4.Text
t = Text5.Text
y = Text6.Text
u = Text7.Text
i = Text8.Text
Text9 = Val(q) + Val(t)
If (Text9.Text) > 100 Then Text9.Text = Abs(Val(q) - Val(t))
Text10 = Val(w) + Val(y)
If (Text10.Text) > 99 Then Text10.Text = Abs(Val(w) - Val(y))
Text11 = Val(e) + Val(u)
If (Text11.Text) > 98 Then Text11.Text = Abs(Val(e) - Val(u))
Text12 = Val(r) + Val(i)
If (Text12.Text) > 97 Then Text12.Text = Abs(Val(r) - Val(i))
End Sub
计算器功能设想，
计算结果怎样自动分行保存成文本，最后还要有搜素动能，搜素文本相同的内容，用加深颜色突出表示。
最好能说一下操作软件哪个按钮，谢谢
还有代码
q = Text1.Text
w = Text2.Text
e = Text3.Text
r = Text4.Text
t = Text5.Text
y = Text6.Text
u = Text7.Text
i = Text8.Text
Text9 = Val(q) + Val(t)
If (Text9.Text) > 100 Then Text9.Text = Abs(Val(q) - Val(t))
Text10 = Val(w) + Val(y)
If (Text10.Text) > 99 Then Text10.Text = Abs(Val(w) - Val(y))
Text11 = Val(e) + Val(u)
If (Text11.Text) > 98 Then Text11.Text = Abs(Val(e) - Val(u))
Text12 = Val(r) + Val(i)
If (Text12.Text) > 97 Then Text12.Text = Abs(Val(r) - Val(i))
End Sub
计算器功能设想，
计算结果怎样自动分行保存成文本，最后还要有搜素动能，搜素文本相同的内容，用加深颜色突出表示。
最好能说一下操作软件哪个按钮，谢谢
还有代码
嗯，二楼正解，附议！！！
对了你是不是想保存到窗体的文本框中啊,那你最好用richtextbox控件，那个才能对选中文字高亮显示。至于搜索功能很简单啊：用按钮就行了（调用inputbox)。
private sub command1_click()
dim st as string
st=inputbox("请输入你要搜索的内容")
哎，好晚了，睡觉先。希望你能有所启发吧。
这用什么编的？
这是保存的
在目录下建一个新建 文本文档 ，在end sub前添加
Open App.Path & "\新建 文本文档.txt" For Append As #1
Print #1, q, w，e '…… '把需要保存的加这里
Close #1
后面的没明白你是什么意思 ……是保存的时候就搜索呢，还是手动？相同的内容在哪儿显示？