vb 如何禁止在text1裡貼上東西？
1樓：網友
private sub text1_mousedown(button as integer, shift as integer, x as single, y as single)
if button = vbrightbutton then 如果按下右鍵。
false清空剪貼簿。
trueend if
end sub
vb,如何實現在在text1中貼上時，msgbox "禁止貼上"？
2樓：網友
可以從另乙個角度考慮。既然最終目的是禁止貼上，那麼當該操作進行前(最理想的事件是textbox得到焦點)剪貼簿中內容已被清空，那麼也就沒可能貼上出東西了。
**如下：在textbox_getfocus()事件下寫""
這樣就可以防止右鍵貼上及鍵盤貼上可了，但是如果使用者用控制代碼傳送資料來貼上，以上做法就xx了，也許用截獲api呼叫可以防止，但那個我不懂…太高深了…就這樣。
如果一定要彈出msgbox的話，可以考慮在formload裡 ""
然後在輸入操作前 str1 如果str1長度不再是零，那麼彈出msgbox
vb 怎樣禁止text1中輸入特殊字元
3樓：網友
private sub text1_change()dim s as string, ss as long, l as long
s = "\/:*?""<>｜" '需要禁止的字元都放這裡吧ss =
for i = 1 to len(s)
l = len(
replace(, mid(s, i, 1), "")if l <>len( and ss > 0 then ss = ss - 1
next ss
end sub
vb求助，我想將text1裡面的東西按列取用
4樓：瑞安阿芳
把redim rx(0 to ubound(zb)),ry(0 to ubound(zb))這條語句移到for i的前面。
造成你那情況的原因是：每一次迴圈都重新定義了一下陣列，這樣會使陣列內容被清空。
而實際上你僅需要定義一次該陣列就可以了。
另外print rx(i),ry(i)'這裡就沒有了，這裡要寫成：
print rx(j),ry(j)'這裡就沒有了。
即把i改成j ，這可能是你輸入不注意。
5樓：夢裡尋你我他
for j=0 to ubound(zb)print rx(i),ry(i)'這裡就沒有了。
next j
你在變數j 的迴圈裡，顯示變數為i的陣列，你說能顯示啥？
改一下 for j=0 to ubound(zb)print rx(j),ry(j)
next j
在vb中怎樣把文字text1的內容進行復制，貼上到word中
6樓：網友
執行後直接去word裡面貼上就行了。
在vb中怎樣把文字text1的內容進行復制，貼上，剪下到t文字ext2中？？？？？急~~~~~~~~
7樓：追風憶戀
如果是text1全部內容。
複製：s$=
貼上：剪下： s$=
如果是選定內容運用。s$=
vb 複製貼上
8樓：網友
clipboard，剪貼簿，可以對某項進行剪下、複製或貼上操作。
方法。with clipboard
clear '清除剪貼簿裡的所有內容。建議執行以下方法時先執行這個語句。
settext 《要複製的內容》,《複製方式》 '將字串按指定格式存入clipboard物件中（如果《複製方法》不寫，將按預設值進行）。例如，將text1中的選定內容複製到剪貼簿中，**是。
gettext (《貼上方式》) 從剪貼簿返回的乙個字串。（《貼上方式》可以不寫，但是括號不能刪掉）例如，將該字串貼上到text1的游標處或選定部分（會把原來選定部分刪除），方法是 =
setdata 《存入圖形》, 方式》 '與settext相似，只不過是將圖形資料按指定格式存入clipboard，**也相似。如果《方式》為空，則由系統自動判定。
getdata (《貼上方式》) 與gettext相似，只不過是將圖形資料貼上至某處，但不允許刪除括號。**也相似。如果《方式》為空，則由系統自動判定。
getformat '一般用於檢查剪貼簿某項中是否存在一些東西。有則返回true，否則為false。可同時包含文字和圖形，互不干擾。
end with
settext 和 gettext 的複製/貼上取值。
內部常數| 值 | 含義。
vbcftext| 1 | 預設值）文字。
vbcfrtf | hbf01| rtf 格式。
vbcflink| &hbf00| dde 對話資訊。
setdata 和 getdata 的複製/貼上取值。
內部常數 值 | 含義。
vbcfbitmap | 2 | 點陣圖 (*bmp)
vbcfmetafile| 3 | 元檔案 (*wmf)
vbcfdib | 8 | 與裝置無關的點陣圖(dib)
vbcfpalette | 9 | 調色盤。
9樓：
剪貼簿就是clipboard 啊。
將剪貼簿裡放入字元"2008"
vb複製貼上**
10樓：網友
樓上的思路是正確的，不過複製操作應該是複製當前選區而不是整個文字框內容，貼上應該是將剪帖板內容插入到當前游標所在位置，而不是將文字框原有內容徹底覆蓋，另外，通常當text1沒選中文字時，要使複製按鈕command1不可用。
private sub command1_click()
end sub
private sub command2_click()
if len( then
end if
end sub
private sub form_load()
falseend sub
private sub text1_keyup(keycode as integer, shift as integer)
end sub
private sub text1_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then
end if
end sub
比如text1的內容為abc，而當前只選中了第乙個字元"a"
那麼表示文字框的全部內容，即"abc"
而表示文字框中當前選中的內容，即a--seltext是select text（選中文字）的縮寫。
11樓：sql的藝術
語法：filecopy source, destinationsource:必要引數。
字串表示式，用來表示要被複制的檔名。source 可以包含目錄或資料夾、以及驅動器。
destination:必要引數。字串表示式，用來指定要複製的目地檔名。destination 可以包含目錄或資料夾、以及驅動器。
將c盤的複製到d盤。
filecopy "c:\", "d:\"
12樓：襲鸞彭頡
private
subcommand1_click()
dimaasstringa=
aendsub你要用乙個變數來存字串，然後settext之前清空clipboard，這樣就行了，上面的**你可以試一試。
13樓：帥幻邇
'利用系統剪貼簿。
private sub command1_click()'複製text1的文字內容到剪貼簿。
end sub
private sub command2_click()= '將剪貼簿的文字內容複製到text1end sub
private sub form_load()'清除剪貼簿的內容。
end sub
vb6 如何讓form1中的text1控制元件讀取form2中t
首先先新增一個form2窗體.接著分別在form1中新增text1文字框控制元件和在form2中新增text1文字框控制元件,先別更改它們的任何屬性值.然後雙擊第一個form1窗體,在裡面輸入如下 這段 只有在你關閉form1窗體時,才被執行.private sub form unload canc...
在窗體中引入文字框Text1，在文字框下引入列表框List1，單擊新增按鈕，將文字框中內
如 第一個窗體1即 form1的 private sub 窗體2 click form1.hide form2.show end sub 第二個窗體2即 form2的 private sub 還回 click form2.hide form1.show end sub 退出 private sub ...
vb怎樣才能讓Print輸出是在Text1裡邊
不用 print 的！設定 text 控制元件 的 multiline true 多行文字框 scrollbars 2 垂直滾動條 然後 用 text1.text text1.text 新增的內容 vbcrlf vbcrlf 是 回車換行 符號 常數 祝你順利 先在屬性設定視窗將text1的mult...