vb如何做剪下 複製 貼上按鈕,請問VB中的剪下 複製 貼上怎麼寫啊。。

2022-02-11 22:02:46 字數 2496 閱讀 2499

1樓:匿名使用者

獲得文字直接用

clipboard.gettext

獲得**可以用

clipboard.getdata

設定文字直接用

clipboard.settext

設定**可以用

clipboard.setdata

清空 clipboard.clear

檢測剪貼簿中的內容

clipboard.getformat(1)返回true則文字

返回false則其他

不用剪下板可以這樣

dim s

private sub command1_click()s = text1.text

text1.text = ""

end sub

private sub command2_click()s = text1.text

end sub

private sub command3_click()text1.text = text1.text + send sub

private sub form_load()command1.caption = "剪下"

command2.caption = "複製"

command3.caption = "貼上"

end sub

2樓:匿名使用者

sendkey()用api函式模擬鍵盤輸入

3樓:匿名使用者

以文字框進行選中文字的複製\剪下為例進行說明在窗體上畫乙個文字框和三個按鈕.

剪下按鈕**:

clipboard.settext text1.seltexttext1.seltext = ""

複製按鈕**:

clipboard.settext text1.seltext貼上按鈕**

text1.seltext = clipboard.gettext

請問vb中的剪下、複製、貼上怎麼寫啊。。

4樓:微標科技

是要處理文字嗎?

'新增窗體form1,文字框text1,按鈕command1,command2,command3,然後新增如下**:

private sub form_load()command1.caption = "剪下"

command2.caption = "複製"

command3.caption = "貼上"

end sub

'剪下private sub command1_click()clipboard.clear

clipboard.settext text1.seltexttext1.seltext = ""

end sub

'複製private sub command2_click()clipboard.clear

clipboard.settext text1.seltextend sub

'貼上private sub command3_click()text1.seltext = clipboard.gettextend sub

5樓:匿名使用者

呵呵,一下是我自己的**。

新建乙個工程,textbox、picturebox、commandbutton控制項各乙個,預設屬性。

private sub command1_click()

text1.text = clipboard.gettext

picture1.picture = clipboard.getdata

end sub

private sub form_click()

' 定義位圖各種格式。

dim clpfmt, msg ' 宣告變數。

on error resume next ' 設定錯誤處理。

if clipboard.getformat(vbcftext) then clpfmt = clpfmt + 1

if clipboard.getformat(vbcfbitmap) then clpfmt = clpfmt + 2

if clipboard.getformat(vbcfdib) then clpfmt = clpfmt + 4

if clipboard.getformat(vbcfrtf) then clpfmt = clpfmt + 8

select case clpfmt

case 1

msg = "剪貼版上只有文字。"

case 2, 4, 6

msg = "剪貼版上只有位圖。"

case 3, 5, 7

msg = "剪貼版上有文字和點陣圖。"

case 8, 9

msg = "剪貼版上有富文字。"

case else

msg = "剪下版上無內容。"

end select

msgbox msg ' 顯示資訊。

end sub

如何做蛋糕,如何做蛋糕

雞蛋上戳洞倒出蛋液,加麵粉 白湯 檸檬汁攪拌均勻放入裱花袋擠進蛋殼裡 烤箱烤30分鐘後剝殼,加點綴。打發好的麵糊醒發三十分鐘 雞蛋 250 克 約五隻小蛋 糖 110 克 麵粉 80 克 冇糖朱古力粉 2 湯匙 鹽 1 8 茶 牛油 煮溶 40 克 白蘭地酒 1荼匙 裝飾用具 忌廉 250 亳公升 ...

如何做理財,新手如何做理財

理財產品都是根據自身的經濟來決定的,想要選擇好的產品,你可以根據以下幾點擊擇 一 產品本質,一些投資理財產品是固定收益類,風險較低,產品到期基本能實現預期收益率。還是浮動收益類,風險較高,預期收益率並不能實現。另外,一些網際網路金融理財產品,本質是 還是保險產品,這些都需要投資者看清楚。二 理財產品...

如何做分錄,請教如何做分錄

借 銀行存款1300 貸 庫存現金1300 借 材料採購 甲材料180000 應交稅費 應交增值稅進項稅額30600 貸 銀行存款210600 借 材料採購 乙材料176000 應交稅費 應交增值稅進項稅額29920 貸 應付賬款205920 甲材料承擔運費 840 2000 800 2000 60...