1樓：匿名使用者
方法有一些，有好的也有壞的。
壞一點的方法是比較笨的。
private sub text1_click()
0end sub
private sub text1_dblclick()
text1_click
end sub
private sub text1_gotfocus()
text1_click
end sub
private sub text1_keydown(keycode as integer, shift as integer)
text1_click
end sub
這樣對text的滑鼠和鍵盤操作就會使選取的文字長度變為0，有時候不好用，因為這個方法不好。
還有一種是用hook，這種方法比較好。
不過**比較長，這裡放不下，我先寫一下關鍵的部分，如旦好果你要全部模燃鉛**可以寫郵件，我發給你，這種方法很強大。
下面的**，也就是說除了把字和text文字框畫上去，其他的所有操作都不管。
public function wndproc(byval hwnd as long, byval umsg as long, byval wparam as long, byval lparam as long) as long
select case umsg
case wm_ncdestroy ' 如果收到元件被銷燬的訊息，恢復源視窗過程處理函式段頃。
call unsubclass(hwnd)
解除安裝子類化 " hex(hwnd); 警告"
case 133 '畫邊框。
wndproc = callwindowproc(getprop(hwnd, oldwndproc), hwnd, umsg, wparam, lparam)
exit function
case 15 '畫背景。
wndproc = callwindowproc(getprop(hwnd, oldwndproc), hwnd, umsg, wparam, lparam)
exit function
case else
end select
end function
vb中如何實現text中選定文字操作
2樓：網友
1）設定text控制項的selstart屬性，指定所要選擇文字起始位置；
2）設定text控制項的sellength屬性，設定選擇文字字元的數量；
3）通過ext控制項的seltext屬性，獲取所選定的文字舉例如下。
private sub command1_click()= 0 '起始位置為0，這是文字框最開始的位置= 4 '選定4個字元。
end sub
3樓：
private sub command1_click()dim where1 '獲取需要查詢的字串變數'文字框獲得焦點，以顯示所找到的內容。
search = '這裡的text1裡面放你要查詢的字串where1 = instr(, search) '在文字中查詢字串。
if where1 then
若找到則設定選定的起始位置並使找到的字串高亮= where1 - 1
len(search)
否則給出提示。
else: msgbox "未找到所要查詢的字元", vbinformation, "提示"
end if
end sub
4樓：網友
sellength、selstart、seltext 屬性例如：private sub command1_click()' 這個不能沒有，讓text1獲得焦點。
end sub
這樣，選中了前3個字元。
vb核取方塊裡,當打鉤核取方塊則在文字框輸出文字，當取消勾選則去掉之前輸出的文字。應該怎麼編寫？
5樓：網友
上面是選擇的情況。
上面是清除後的情況。
private sub check1_click(index as integer) '注意：這是陣列控制項。
dim ss as integer
ss = check1(index).indexif check1(ss).value = 1 then= & ", " & check1(ss).
caption'如果這裡不輸入控制項標題，可以將輸入的內容提前儲存在陣列變數中，在這裡呼叫陣列變數即可。下面清除一樣。
elseif check1(ss).value = 0 then= replace(, ", " & check1(ss).caption, "")
end if
end sub
private sub form_load()= "原先輸入的文字"
end sub
6樓：龔雲靜
勾選時文體框輸出文字且能正常輸入文字，不勾選時清空文字框且文字框不可輸入文字：
private sub check1_click()dim a as long
a =if a = 1 then
輸出文字"trueelse
falseend if
end sub
7樓：網海1書生
private sub check1_click()if = 1 then
輸出的文字"else
end if
end sub
或者private sub check1_click()= iif( = 1, "輸出的文字", "")end sub
vb怎樣使文字框的內容始終處於選中狀態？
8樓：網海1書生
private sub text1_gotfocus()= 0
len(end sub
另外，你要把text1的hideselection設為false。這是個唯讀屬性，無法在程式中更改。
9樓：激舞傳奇
1.通用過程：
public sub autoselmytext(obj as textbox)
with obj
setfocus
selstart = 0
sellength = len(.text)end with
end sub
2.呼叫示例：
call autoselmytext(text1)
vb中怎樣使文字框內的文字被選中後另外乙個按鈕可以用？
10樓：網友
根據文字框是否選擇文字，即 > 0，還能根據選中的文字啟用，**如下：
新增text1,command1,timer1三個控制項private sub form_load()= 200
falsetext1 = "特定的字元"
end sub
private sub timer1_timer()if > 0 then '文字框是否選擇文字if mid(text1, +1, = "特定" then '根據選中的檔案啟用。
trueend if
end if
end sub
執行時：選擇 特定 這兩個字元，啟用：
vb 怎樣在點選text控制項後讓裡面的資料清空
11樓：網友
對textbox的click事件程式設計。
option explicit
private sub text1_click()' 滑鼠點選text1時，將text1的內容清空= ""
end sub
vb 如何清除多個text的內容？
12樓：網友
這個是可以的。建控制項陣列的方法有二：一是選取你的text1，ctrl+c，ctrl+v，出來乙個對話方塊問你，你就確定，就生成了控制項陣列。
二是在右邊的屬性中，把index設定為0，然後在**中呼叫。方法是load text1(index)其中index是序列號。
你那個程式可以這樣寫。
private sub command1_click()for i = text1(lbound(text1)) to text1(ubound(text1))
text1(i).text = ""
nextend sub
13樓：網友
'新增窗體form1,按鈕command1,再隨便加幾個文字框，然後新增如下**：
private sub command1_click()on error resume next
dim txttemp as controlfor each txttemp in me= ""
nextend sub
14樓：棉花糖
建控制項陣列text1(index)
private sub command1_click()for i = 0 to n 'n是你文字框的個數text1(i).text = ""
nextend sub
15樓：網友
可以。但上面的說明可以改一下：
for i = 0 to n 'n是你文字框的個數 （文字框的個數不是n，而是n + 1個）。
建立text1陣列控制項可以這樣：
先建立乙個text1控制項，然後複製text1,貼上。直到夠您所要的數目即可。
記住，第乙個text1的index為0,而不是1
16樓：網友
首先建立乙個command按鈕command1然後選擇command1,再在操作介面右邊的屬性欄找到index項，把這一項改成0.
之後你再建立的command按鈕就會以command1(index)的形式出現。
如command1（0）、command1（1）……剩下的就可以用你的**完成啦。
17樓：網友
可以，複製貼上相同控制項就可以建立。
18樓：網友
建立乙個text1 複製 貼上·點是·迴圈。
還有就是index項改成0.
複製 貼上。
19樓：灰色的灰擦
n是文字框數量-1，因為是從0開始。
vb中如何設定text中預設的字
20樓：百
方法1.點選那個text控制項 在右下角有乙個屬性視窗裡面的 text屬性裡面打入你要輸入的字元，文字框就會顯示這個字元 至於背景，在屬性視窗的backcolor裡面設定成藍色，要像你那樣 還要把控制項的forecolor的屬性設定為白色。 如圖。
方法2.在**視窗裡面輸入。
private sub form_load()= "此電腦有人上機，請勿操作"
hff0000
h80000004
end sub
21樓：網友
這是文字選中的現象吧。
這個事件。private sub text1_gotfocus()= 0
len(end sub
VB對text操作，vb中如何使text1中輸入內容立即顯示在text2中
設定text控制項的selstart屬性，指定所要選擇文字起始位置 設定text控制項的sellength屬性，設定選擇文字字元的數量 通過ext控制項的seltext屬性，獲取所選定的文字。舉例如下。private sub command click 起始位置為，這是文字框最開始的位置。 選定個字元。e...
如何讓vbs檔案自動開機就執行，如何讓VBS檔案 自動開機就執行
不在msconfig中顯示,並且實現簡單.可以通過登錄檔或者批處理自動完成.登錄檔的 hkey local machine software microsoft windows currentversion runonce或者runonceex都可以呼叫vbs一般用call，如下 echo wscr...
vb如何獲取視窗的座標，vb 如何獲取一個視窗的座標
如下。private declare function findwindow lib user32 alias findwindowa byval lpclassname as string,byval lpwindowname as string as long private declare f...