VB如何实现textbox文本包含内容,就执行另外的程序

Question

示例：有1个textbox控件，1个commandbutton控件，text1.caption=“我爱你，你是我的唯一。”，我要的结果就是，点击按钮控件，如果text1.caption的文字包含：我爱你，那么from1.caption=“是的，文本中有我爱你3个字”否则，关闭程序。

Answer 1

文本框TextBox是没有Caption属性的,所以,text1.caption=“我爱你，你是我的唯一。”是错误的.
只有,Text属性,即
text1.Text=“我爱你，你是我的唯一。”

Answer 2

你的想法，你，喜欢把程序中的一个10文本箱（当然，其他方面也有），所以你可以定义中，A公司的重点和然后使用的API在findwindow的顺序可以找到乙窗口产品以及文本框控制手柄，然后发送到文本框中，然后使用SendMessage WM_SETTEXT消息来设置的内容，程序B中国框中（例如，程序的文本发送到手柄上相应的程序B文本）

Answer 3

在commandbuttuon1的click事件里
if findILOVEU(text1.caption) then
from1.caption=“是的，文本中有我爱你3个字”

else
me.close

endif

我忘记了vb6里有没有直接字符串查询函数了。。。
新建立一个函数
function findILOVEU(text as string) as boolean
dim n as integer

for n=1 to len(test)-3

if mid(text,n,3)="我爱你" then

findILOVEU=true

end if
next

findILOVEU=false

end function

Answer 4

if instr(text1,"我爱你") then
from1.caption=“是的，文本中有我爱你3个字”
else
end
end if