1樓：匿名使用者
看了下,好像這樣才是樓主的意思:
共需一個text控制元件和一個button控制元件
dim i as integer
dim findstr as long '全域性變數 findstr為查詢到的位置 i為字串長度
private sub form_load()
text1.text = "比如查詢你好再點選按鈕找到下一個你好並選中"
command1.caption = "查詢下一個"
end sub
private sub command1_click()
i = len(text1.text)
if findstr = 0 then
findstr = instr(1, text1.text, "你好", 1)
if findstr <> 0 then
text1.setfocus
text1.selstart = findstr - 1
text1.sellength = len("你好")
end if
else
findstr = instr(findstr + 1, text1.text, "你好", 1)
if findstr <> 0 then
text1.setfocus
text1.selstart = findstr - 1
text1.sellength = len("你好")
end if
end if
end sub
2008-11-1 下午 05:44:04在xp和vb6中通過測試
請教vb疑難！ 20，請教vb問題
呵呵，我試試。function maxlength s dim t i j t split s 以空格分割字串s到陣列tfor i 0 to ubound s 遍歷陣列t 如果當前單詞比原最長單詞長，記錄當前單詞的陣列元素的序號。if len t i len t j then j inextmaxl...
骨科問題想請教一下，請教骨科問題
一 隨著x線機器日趨普遍，臨床醫師往往忽視了病理學檢查的重要性，其實有許多骨折與骨症，只要仔細檢查往往可以得出正確的診斷，甚至還可彌補x線檢查的不足，例如下尺橈關節半脫位，由於投照角度關係，在x線片上往往顯示不出來，而理學檢查時卻不難診斷。二 在檢查不要將注意力集中在病人主訴部位，亦不要顯露出很侷限...
請教VB問題
tab n 從最左第1列開始算起定位於第n列，若當前列印位置已超過n列，則定位於下一行的第n列，這是常常定位不好出現的問題。在格式定位中，tab用得最多。spc n 從前一列印位置起空n個空格。例如，下面程式段顯示了tab與spc的區別，效果如圖所示。private sub commandl cli...