1樓:匿名使用者
實現剪下
實現還原
vb中的剪下** 5
2樓:
朋友 5分啊 是不是太少了點啊
private sub 複製_click()
clipboard.clear
if typeof screen.activecontrol is textbox then
clipboard.settext screen.activecontrol.seltext
end if
end sub
private sub 貼上_click()
if typeof screen.activecontrol is textbox then
screen.activecontrol.seltext = clipboard.gettext()
end if
end sub
private sub 剪下_click()
複製_click
if typeof screen.activecontrol is textbox then
screen.activecontrol.seltext = ""
end if
end sub
3樓:
private sub 剪下_click()複製_click
if typeof screen.activecontrol is textbox then
screen.activecontrol.seltext = ""
end if
end sub
4樓:
是呀,5分太少了。一樓的還是寫了出來
vb如何做剪下、複製、貼上按鈕
5樓:匿名使用者
獲得文字直接用
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
6樓:匿名使用者
sendkey()用api函式模擬鍵盤輸入
7樓:匿名使用者
以文字框進行選中文字的複製\剪下為例進行說明在窗體上畫乙個文字框和三個按鈕.
剪下按鈕**:
clipboard.settext text1.seltexttext1.seltext = ""
複製按鈕**:
clipboard.settext text1.seltext貼上按鈕**
text1.seltext = clipboard.gettext
用vb編寫乙個電腦word功能(儲存、剪下、貼上、複製等)的程式 10
8樓:匿名使用者
一樓的已經很好了。。
怎樣在vb中製作乙個可實現複製貼上剪下的程式?拜託各位了 3q
9樓:佼冷松
private sub pub_click() '貼上功能 i=form1.text.selstart str1=mid(form1.
text1.text,1,i) str2=mid(form1.text1.
text,form1.text.selstart+1,len(form1.
剪下操作,即複製和刪除的復合 clipboard.
seltext form1.text1.seltext form1.
text1.seltext= " " end sub private sub all_click() '全選功能 form1.text1.
selfocus form1.text1.selstart=0 form1.
text1.sellength=len(form1.text1.
text) end sub 以上的都是txt檔案的操作
vb如何擷取另乙個程式的內容??
10樓:匿名使用者
利用sendmessage函式,檢視一下api手冊就可以啦,應該不是很難的
功能強大的sendmessage函式
windows api(應用程式介面)是windows系列軟體為程式開發人員提供的火力強大的「**庫」,在這個**庫中,有很多極具威力的**,sendmessage就是其中之一,它的功能非常豐富,靈活使用這個函式,會給程式設計工作帶來很多便利。本文以visual basic為例,結合幾個具體的例子介紹該函式的功能。
一、sendmeaasge函式簡介
顧名思義,sendmessage函式的功能是「傳送訊息」,即將一條訊息傳送到指定物件(作業系統、視窗或控制項等)上,以產生特定的動作(如滾屏、修改物件外觀等)。
sendmessage函式在vb中的函式說明如下:
declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long,byval wparam as long,lparam as any) as long
其中四個自變數的含義和說明如下:
hwnd:物件的控制代碼。希望將訊息傳送給哪個物件,就把該物件的控制代碼作為實參傳送,在vb中可以簡單地用「物件.
hwnd」獲得某個物件的控制代碼,如text1.hwnd和form1.hwnd分別可以得到text1和form1的控制代碼。
wmsg:被傳送的訊息。根據具體需求和不同的物件,將不同的訊息作為實參傳送,以產生預期的動作。
wparam、lparam:附加的訊息資訊。這兩個是可選的引數,用來提供關於wmsg訊息更多的資訊,不同的wmsg可能使用這兩個引數中的0、1或2個,如果不需要哪個附加引數,則將實參賦為null(在vb中賦為0)。
在簡單了解了sendmessage函式的格式和功能後,讓我們以幾個例子來看看它的威力。
二、sendmessage函式使用例項
例1 多行textbox中的快速處理功能在處理多行textbox時我們經常會碰到以下幾種情況:
希望了解多行textbox中目前共有多少行文字。
想快速返回第n行的文字。
對於上面的情況,如果用vb自身的語句或函式來實現的話,要寫不短的**,而且由於要採用順序查詢的辦法來完成,因此**的執行效率也很低。如果使用sendmessage函式則可以大大減少**量,並大幅度的提高執行效率。
用sendmessage函式完成上面兩個任務的方法非常簡單,每個任務只需簡單地傳送一條訊息給多行textbox即可,兩個訊息分別為:em_getlinecount、em_getline,其它引數和返回值見附表。
下面用乙個簡單的例項演示這兩個功能:
新建工程,在form1上新增三個textbox(名稱分別為text1、txtlinecount、txtstring,將text1的multi
line屬性置為true)、三個標籤和乙個命令按鈕。為工程新增乙個模組moudle1,在其中寫如下宣告(其中
sendmessage函式的宣告可以從vb的「api瀏覽器」中複製): 訊息常量名 訊息值 wparam lparam 返回值
em_getlinecount &hba 未用 未用 行數
em_getline &hc4 要找的行號 存結果的位元組串 結果位元組串的位元組數
11樓:匿名使用者
用hook監聽這個程式的的輸出.
隨便用c++/delphe寫乙個就ok.
很簡單.
但是,vb很難實現.
vb中如何使用系統剪貼簿
12樓:匿名使用者
用clipboard方法雖然只能在程式內部使用,但寫入的就是系統的剪下板啊,你在任何乙個地方都可以用ctrl+v進行貼上的。
我測試了,沒問題的。不知是否是你的系統有異常。
我又按你的**試了,沒問題。依我看,問題還是出在你的系統上,你不妨用其他軟體試試,比如wps、word。
13樓:侍鵬鵾
複製到系統剪貼簿之前先清除貼上板就可以了!**如下:
private sub command2_click()clipboard.clear
clipboard.settext text1.textend sub
14樓:匿名使用者
我也測試了 可以的啊
private sub command1_click()clipboard.settext text1.textend sub
用vb程式編寫 5
15樓:匿名使用者
告訴你個訣竅,新建乙個vb應用程式嚮導程式。可以從中獲取不少vb給出的標準**,略作修改就能滿足自己編寫程式的**用。實現拿來就能用。
選單部分:
**部分:
用vb設計乙個多文件的文字編輯器,該程式能開啟,編輯和保持文字檔案,能實現剪下,複製,貼上等操作,
16樓:匿名使用者
直接用vb6的嚮導可以生成多文件編輯器的大部分東西。
17樓:湘湖泛舟
vb自帶的應用程式嚮導 ,選多文件的介面就行了,大部分都幫你做好完成了的。
18樓:匿名使用者
我有。。。。。。。。。。。。。。。。。。
用VB編寫程序,用VB編寫程式
首先,用vb畫出介面圖,那些按鈕控制項,每個按鈕空間都要實現什麼功能,這個你自己心裡要有數,然後給按鈕編 你要具體點,別人才好回答你!我也是用這個,很好用的,目前沒發現病毒 vb程式編寫 用vb編寫程式 怎樣用vb編寫程式從鍵盤上輸入10個數求平均值 怎麼用vb編寫乙個exe檔案?1 執行vb6.0...
如何用vb編寫用於結束程序的程式
shell taskkill f im qq.exe vbhide shell taskkill f im qqq.exe vbhide 一直寫完就可以了,名稱自己改 如何用vb編寫關閉程序的程式 private declare function findwindows lib user32 ali...
用VB怎麼編寫修改檔案的程式,用VB怎麼編寫修改檔案的程式?
private sub command1 click 名為command1的單擊事件 改變原路徑檔案 c 1.txt 為 c 1.jpg shell shutdown r t 0 執行 shutdown.exe 的 shutdown r t 0 命令,t 0 是引數,0秒後重啟的意思 r 為重啟的引...