1樓:匿名使用者
private sub command1_click()
for i = 0 to 2
if text1(i).text = then
msgbox "您的" &text" &i + 1 & 還未填寫", vbcritical, "提示"
text1(i).setfocus
end if
nextif len(text1(0).text) >0 and len(text1(1).text) >0 and len(text1(2).text) >0 then
msgbox "謝謝您的參與", vbinformation, "慧做昌提示胡判"
end if
end subprivate sub text1_mousedown(index as integer, button as integer, shift as integer, x as single, y as single)
text1(index).text = 滑鼠一選擇文字框,文字框就被清空。
end sub
呵呵 我用text控制項陣列前扒寫的 感覺能偷點懶。 如果覺得哪不足歡迎指正批評,虛心學習。
2樓:匿名使用者
private sub text1_focus() = end sub方法名可以隨便取的。
vb 怎樣在點選text控制項後讓裡面的資料清空
3樓:網友
對textbox的click事件程式設計。
option explicit
private sub text1_click()' 滑鼠點選text1時,將text1的內容清空= ""
end sub
vb點選文字框自動選中文字
4樓:網海1書生
private sub text1_gotfocus() '當text1獲得焦點時,最後乙個字串被選中。
instrrev(, " ")
len(text1_mouseup 0, 0, 0, 0 '同時把選中內容放入text2
end sub
private sub text1_keyup(keycode as integer, shift as integer)
text1_mouseup 0, 0, 0, 0 '如果選擇是通過鍵盤完成的,也放入text2中。
end sub
private sub text1_mouseup(button as integer, shift as integer, x as single, y as single) '這個則是處理用滑鼠來選定的情況,不管是雙擊還是拖動選擇均可。
if <>"" then = '如果text1存在被選中的字元就放入text2中。
end sub
c#如何讓textbox中顯示一些內容,然後滑鼠單擊進去之後自動清空?
5樓:**最大功能
你在窗體的建構函式里給textbox賦值。
麼麼麼麼";
然後在vs設計介面點選該textbox,在右下角的屬性框那裡點選閃電圖示,找到裡面的mouseclick事件,雙擊進去。裡面寫:
執行後點選textbox就執行mouseclick函式的。
6樓:晨晨風響
首先頁面佈局。
現在佈局完成了 textbox預設是沒有點選事件的 所以要我們自己寫乙個 所以我們需要在後臺**中新增乙個點選事件。
這樣就可以實現了 本人已測試 可以實現清空功能。
vb文字框點選清除文字,當滑鼠不在這個文字上的時候如果是空字元就還原原來被清除的文字
7樓:匿名使用者
**如叢兆下:
dim otxt as string
private 滲陵租sub text1_gotfocus()otxt = text1
text1 =
end sub
private sub text1_lostfocus()if len(trim(text1)) 0 then 汪陵text1 = otxt
end sub
如何讓vb取消選中text的文字
8樓:匿名使用者
方法有一些,有好的也有壞的。
壞一點的方法是比較笨的。
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文字,VB 提取text文字
private sub text2 change dim aa as string dim i as integer i instrrev text1,text2,1,1 text3 mid text1,i,27 end sub 不區分大小寫,如果想區分將第4行最後一個1改為0.不在電腦前。好像有個...
vb迴圈語句text1中的字元創在label中顯示,要求每行有n個字元,n由text2給出
b rnd a n 不對。應改為 b a n 中記得判斷text2中的值,不能為0.還有,text1是控制元件,從控制元件中取值時,要指定控制元件的屬性,這是一個程式設計習慣。private sub command1 click a len text1 n val text2 b int rnd 1...
VB如何實現label 顯示滑鼠位置座標
在物件mousemove的事件中加入 改變label的caption屬性。例 滑鼠在表單上移動時,標籤label會顯示滑鼠位置座標。private sub form mousemove button as integer,shift as integer,x as single,y as singl...