水泵曲線vb模擬

1、現(xiàn)代供熱技術(shù)及應(yīng)用水泵設(shè)計(jì)作業(yè)說(shuō)明分析單臺(tái)或多臺(tái)循環(huán)水泵在系統(tǒng)中運(yùn)行的工作狀況以確保系統(tǒng)中循環(huán)水泵能在高效區(qū)工作，而又滿足流量要求，不致產(chǎn)生嚴(yán)重的水力和熱力失調(diào)現(xiàn)象，從而尋求與系統(tǒng)相匹配的循環(huán)水泵，使其盡可能地滿負(fù)荷、高效率運(yùn)行，具有極其重要的意義。1 .循環(huán)水泵與管網(wǎng)特性分析1.1循環(huán)水泵曲線擬合所謂曲線擬合，就是用一個(gè)適當(dāng)?shù)暮瘮?shù)關(guān)系式來(lái)表示若干個(gè)已知離散值之間內(nèi)在規(guī)律的數(shù)據(jù)整理方法。最小二乘法是一種最常見(jiàn)的曲線擬合方法。包括按直線、拋物線、雙曲線、指數(shù)曲線規(guī)律，以及按周期性規(guī)律變化的離散值，均可以擬合成為以下形式的多項(xiàng)式回歸方程：式中a0、a1、a2、an回歸系數(shù)（最小二乘估計(jì)）。1.2.

2、循環(huán)水泵的擬合曲線從水泵性能曲線圖可看出其性能曲線HQ、NQ、Q近似于拋物線，故用三次回歸曲線（相比二次回歸曲線更精確）對(duì)測(cè)試數(shù)據(jù)進(jìn)行水泵性能回歸曲線方程如下： H= H0+A1Q1+A2Q2+A3Q3 N= N0+B1Q1+B2Q2+B3Q3 （311） =0+C1Q1+C2Q2+C3Q3式中 Q水泵流量，m3/h； H水泵揚(yáng)程，mH2O； 水泵效率，%； N水泵軸功率，kW對(duì)水泵的Q-H特性曲線采用最小二乘法，按（311）式擬合求得?；貧w系數(shù)A1、A2、A3和H0可按正規(guī)方程組求得，其中n4。同理對(duì)水泵的N-Q特性曲線，可多回歸系數(shù)N0、B1、B2、B3；對(duì)水泵的-Q特性曲線，可多回歸系數(shù)

3、0、C1、C2、C3 .程序源代碼（VB）.1水泵選型Private Sub combo1_click()If Combo1.Text = TD65-50/2 ThenText7.Text = 10Text8.Text = 53.5Text9.Text = 6.5Text23.Text = 22.86Text10.Text = 20Text11.Text = 53Text12.Text = 8Text24.Text = 36.81Text13.Text = 40Text14.Text = 51Text15.Text = 10.5Text25.Text = 53.97Text26.Text =

4、50Text27.Text = 50Text28.Text = 12Text29.Text = 57.87ElseIf Combo1.Text = TD65-66/2 ThenText7.Text = 20Text8.Text = 70Text9.Text = 10.2Text23.Text = 38.13Text10.Text = 50Text11.Text = 67Text12.Text = 15Text24.Text = 62.04Text13.Text = 60Text14.Text = 66Text15.Text = 17Text25.Text = 64.71Text26.Text

5、= 80Text27.Text = 59Text28.Text = 20Text29.Text = 57.87ElseIf Combo1.Text = TD65-81/2 ThenText7.Text = 5Text8.Text = 90Text9.Text = 11.5Text23.Text = 10.97Text10.Text = 40Text11.Text = 85Text12.Text = 18.2Text24.Text = 51.89Text13.Text = 70Text14.Text = 81Text15.Text = 25Text25.Text = 63Text26.Text

6、= 90Text27.Text = 75Text28.Text = 28Text29.Text = 66.96End IfEnd Sub2.2計(jì)算管路阻抗Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = Val(Text4.Text)e = Val(Text5.Text)F = c / (a * b * 3600 / (1000 * 4.182 * (d - e) * 1000) 2Text6.Text = Val(F)Text6.Text = Format(Val(

7、F), 0.0000000)End Sub2.3求解曲線方程Private Sub Command1_Click()Dim a(4, 4), y(4), h(4), l(4), c(4), r(4), n(4), w(4), gl, ych, g, p(4), z(4) As SingleDim a1, a2, a3, a4, b1, b2, b3, b4, e1, e2, e3, e4, e5, e6, c1, c2, c3, c4, d1, d2, d3, d4 As SingleIf Combo1.Text = Or Combo2.Text = Then MsgBox 請(qǐng)輸入必要參數(shù),

8、提示! Exit Sub End Ifa1 = Val(Text7.Text)a2 = Val(Text10.Text)a3 = Val(Text13.Text)a4 = Val(Text26.Text)b1 = Val(Text8.Text)b2 = Val(Text11.Text)b3 = Val(Text14.Text)b4 = Val(Text27.Text)c1 = Val(Text9.Text)c2 = Val(Text12.Text)c3 = Val(Text15.Text)c4 = Val(Text28.Text)d1 = Val(Text23.Text)d2 = Val(Te

9、xt24.Text)d3 = Val(Text25.Text)d4 = Val(Text29.Text)X1 = a1 + a2 + a3 + a4X2 = (a1) 2 + (a2) 2 + (a3) 2 + (a4) 2x3 = (a1) 3 + (a2) 3 + (a3) 3 + (a4) 3x4 = (a1) 4 + (a2) 4 + (a3) 4 + (a4) 4x5 = (a1) 5 + (a2) 5 + (a3) 5 + (a4) 5x6 = (a1) 6 + (a2) 6 + (a3) 6 + (a4) 6Y1 = b1 + b2 + b3 + b4Y2 = a1 * b1 +

10、 a2 * b2 + a3 * b3 + a4 * b4y3 = (a1) 2 * b1 + (a2) 2 * b2 + (a3) 2 * b3 + (a4) 2 * b4y4 = (a1) 3 * b1 + (a2) 3 * b2 + (a3) 3 * b3 + (a4) 3 * b4a(1, 1) = 4a(1, 2) = X1a(1, 3) = X2a(1, 4) = x3a(2, 1) = X1a(2, 2) = X2a(2, 3) = x3a(2, 4) = x4a(3, 1) = X2a(3, 2) = x3a(3, 3) = x4a(3, 4) = x5a(4, 1) = x3a

11、(4, 2) = x4a(4, 3) = x5a(4, 4) = x6z(1) = c1 + c2 + c3 + c4z(2) = a1 * c1 + a2 * c2 + a3 * c3 + a4 * c4z(3) = (a1) 2 * c1 + (a2) 2 * c2 + (a3) 2 * c3 + (a4) 2 * c4z(4) = (a1) 3 * c1 + (a2) 3 * c2 + (a3) 3 * c3 + (a4) 3 * c4For i = 1 To 4n(i) = 0Next iFor k = 1 To 1000For i = 1 To 4l(i) = n(i)Next iF

12、or i = 1 To 4Sum = 0For j = 1 To i - 1 Sum = Sum + a(i, j) * n(j) Next j sum1 = 0 For j = i To 4sum1 = sum1 + a(i, j) * n(j) Next j n(i) = n(i) + (z(i) - sum1 - Sum) / a(i, i)Next inum = Abs(l(1) - n(1)For i = 2 To 4If Abs(l(i) - n(i) num Thennum = Abs(l(i) - n(i)End IfNext iNext kIf num num Thennum

13、 = Abs(l(i) - w(i)End IfNext iNext kIf num num Thennum = Abs(l(i) - h(i)End IfNext iNext kIf num num Thennum = Abs(l(i) - h(i)End IfNext iNext kIf num num Thennum = Abs(l(i) - h(i)End IfNext iNext kIf num 10 (-5) Then Exit SubText20.Text = H & =( & Format(h(1), 0.00000) & + & Format(h(2), 0.00000) &

14、 )*Q & +( & Format(h(3), 0.00000) & )*(Q2) & +( & Format(h(4), 0.00000) & )*(Q3)End If2.4畫(huà)圖g = 40s = Text6.TextDodd = gg = g - (h(1) + h(2) * g + (h(3) - s) * g 2 + h(4) * g 3) / (h(2) + 2 * (h(3) - s) * g + 3 * h(4) * g 2)Loop Until Abs(dd - g) u / 4 Then Picture1.PSet (g, gl), vbGreenxiaolv = w(1)

15、 + w(2) * g + w(3) * g 2 + w(4) * g 3If hh w(1) Then Picture1.PSet (g, xiaolv), vbBlackNext g附錄資料：不需要的可以自行刪除VB HOOK(鉤子)超級(jí)無(wú)敵詳細(xì)用法（介紹）hook是WINDOWS提供的一種消息處理機(jī)制，它使得程序員可以使用子過(guò)程來(lái)監(jiān)視系統(tǒng)消息，并在消息到達(dá)目標(biāo)過(guò)程前得到處理。 下面將介紹WINNDOWS HOOKS并且說(shuō)明如何在WINDOWS 程序中使用它。關(guān)于HOOKS 使用HOOK 將會(huì)降低系統(tǒng)效率，因?yàn)樗黾恿讼到y(tǒng)處量消息的工作量。建議在必要時(shí)才使用HOOK，并在消息處理完成后立即

16、移去該HOOK。HOOK鏈 WINDOWS提供了幾種不同類型的HOOKS；不同的HOOK可以處理不同的消息。例如，WH_MOUSE HOOK用來(lái)監(jiān)視鼠標(biāo)消息。 WINDOWS為這幾種HOOKS維護(hù)著各自的HOOK鏈。HOOK鏈?zhǔn)且粋€(gè)由應(yīng)用程序定義的回調(diào)函數(shù)隊(duì)列，當(dāng)某種類型的消息發(fā)生時(shí)，WINDOWS向此種類型的HOOK鏈的第一個(gè)函數(shù)發(fā)送該消息，在第一函數(shù)處理完該消息后由該函數(shù)向鏈表中的下一個(gè)函數(shù)傳遞消息，依次向下。如果鏈中某個(gè)函數(shù)沒(méi)有向下傳送該消息，那么鏈表中后面的函數(shù)將得不到此消息。（對(duì)于某些類型的HOOK，不管HOOK鏈中的函數(shù)是否向下傳遞消息，與此類型HOOK聯(lián)系的所有HOOK函數(shù)都會(huì)收

17、到系統(tǒng)發(fā)送的消息）HOOK過(guò)程 為了攔截特定的消息，你可以使用SetWindowsHookEx函數(shù)在該類型的HOOK鏈中安裝你自己的HOOK函數(shù)。該函數(shù)語(yǔ)法如下： public function MyHook(nCode,wParam,iParam) as long 加入代碼 end function 其中MyHook可以隨便命名，其它不能變。該函數(shù)必須放在模塊段。nCode指定HOOK類型。wParam,iParam的取值隨nCode不同而不同，它代表了某種類型的HOOK的某個(gè)特定的動(dòng)作。 SetWindowsHookEx總是將你的HOOK函數(shù)放置在HOOK鏈的頂端。你可以使用CallNex

18、tHookEx函數(shù)將系統(tǒng)消息傳遞給HOOK鏈中的下一個(gè)函數(shù)。 注釋對(duì)于某些類型的HOOK，系統(tǒng)將向該類的所有HOOK函數(shù)發(fā)送消息，這時(shí)，HOOK函數(shù)中的CallNextHookEx語(yǔ)句將被忽略。 全局HOOK函數(shù)可以攔截系統(tǒng)中所有線程的某個(gè)特定的消息（此時(shí)該HOOK函數(shù)必須放置在DLL中），局部HOOK函數(shù)可以攔截指定線程的某特定消息（此時(shí)該HOOK函數(shù)可以放置在DLL中，也可以放置在應(yīng)用程序的模塊段）。 注釋 建議只在調(diào)試時(shí)使用全局HOOK函數(shù)。全局HOOK函數(shù)將降低系統(tǒng)效率，并且會(huì)同其它使用該類HOOK的應(yīng)用程序產(chǎn)生沖突。HOOK類型 WH_CALLWNDPROC 和 WH_CALLWND

19、PROCRET HOOK WH_C ALLWNDPROC 和WH_CALLWNDPROCRET HOOK可以監(jiān)視SendMessage發(fā)送的消息。系統(tǒng)在向窗體過(guò)程發(fā)送消息前，將調(diào)用WH_CALLWNDPROC；在窗體過(guò)程處理完該消息后系統(tǒng)將調(diào)用WH_CALLWNDPROCRET。 WH_CALLWNDPROCRET HOOK會(huì)向HOOK過(guò)程傳送一個(gè)CWPRETSTRUCT結(jié)構(gòu)的地址。該結(jié)構(gòu)包含了窗體過(guò)程處理系統(tǒng)消息后的一些信息。 WH_CBT Hook 系統(tǒng)在激活，創(chuàng)建，消毀，最小化，最大化，移動(dòng)，改變窗體前；在完成一條系統(tǒng)命令前；在從系統(tǒng)消息隊(duì)列中移去鼠標(biāo)或鍵盤(pán)事件前；在設(shè)置輸入焦點(diǎn)前，或同

20、步系統(tǒng)消息隊(duì)列前，將調(diào)用WH_CBT HOOK。你可以在你的HOOK 過(guò)程攔截該類HOOK，并返回一個(gè)值，告訴系統(tǒng)，是否繼續(xù)執(zhí)行上面的操作。 WH_DEBUG HOOK 系統(tǒng)在調(diào)用與某種HOOK類型聯(lián)系的HOOK過(guò)程前，將調(diào)用WH_DEBUG ，應(yīng)用程序可以使用該HOOK決定是否讓系統(tǒng)執(zhí)行某種類型的HOOK。 WH_FOREGROUNDIDLE Hook 系統(tǒng)在空閑時(shí)調(diào)用該HOOK，在后臺(tái)執(zhí)行優(yōu)先權(quán)較低的應(yīng)用程序。 WH_GETMESSAGE Hook WH_GETMESSAGE Hook使應(yīng)用程序可以攔截GetMessage 或 PeekMessage的消息。應(yīng)用程序使用WH_GETMESS

21、AGE HOOK監(jiān)視鼠標(biāo)、鍵盤(pán)輸入和發(fā)送到隊(duì)列中的其它消息。 WH_JOURNALRECORD Hook WH_JOURNALRECORD Hook使應(yīng)用程序可以監(jiān)視輸入事件。典型地，應(yīng)用程序使用該HOOK記錄鼠標(biāo)、鍵盤(pán)輸入事件以供以后回放。該HOOK是全局HOOK，并且不能在指定線程中使用。 WH_JOURNALPLAYBACK Hook WH_JOURNALPLAYBACK Hook使應(yīng)用程序可以向系統(tǒng)消息隊(duì)列中插入消息。該HOOK可以回放以前由WH_JOURNALRECORD HOOK錄制的鼠標(biāo)、鍵盤(pán)輸入事件。在WH_JOURNALPLAYBACK Hook安裝到系統(tǒng)時(shí)，鼠標(biāo)、鍵盤(pán)輸入事

22、件將被屏蔽。該HOOK同樣是一個(gè)全局HOOK，不能在指定線程中使用。 WH_JOURNALPLAYBACK Hook返回一個(gè)時(shí)間暫停值，它告訴系統(tǒng)，在處理當(dāng)前回放的消息時(shí)，系統(tǒng)等待百分之幾秒。這使得此HOOK可以控制在回放時(shí)的時(shí)間事件。 WH_KEYBOARD Hook WH_KEYBOARD Hook使應(yīng)用程序可以監(jiān)視由GetMessage和PeekMessage返回的WM_KEYDOWN 及WM_KEYUP消息。應(yīng)用程序使用該HOOK監(jiān)視發(fā)送到消息隊(duì)列中的鍵盤(pán)輸入。 WH_MOUSE Hook WH_MOUSE Hook 使應(yīng)用程序可以監(jiān)視由GetMessage和PeekMessage返回

23、的消息。應(yīng)用程序使用該HOOK監(jiān)視發(fā)送到消息隊(duì)列中的鼠標(biāo)輸入。 WH_MSGFILTER and WH_SYSMSGFILTER Hooks WH_MSGFILTER 和WH_SYSMSGFILTER Hooks使應(yīng)用程序可以監(jiān)視菜單、滾動(dòng)條、消息框、對(duì)話框，當(dāng)用戶使用ALT+TAB或ALT+ESC來(lái)切換窗體時(shí)，該HOOK也可以攔截到消息。WH_MSGFILTER僅在應(yīng)用程序內(nèi)部監(jiān)視菜單、滾動(dòng)條、消息框、對(duì)話框，而WH_SYSMSGFILTER則可以在系統(tǒng)內(nèi)監(jiān)視所有應(yīng)用程序的這些事件。 WH_SHELL Hook 一個(gè)SHELL程序可以使用WH_SHELL Hook來(lái)接收重要的信息。當(dāng)一個(gè)SH

24、ELL程序被激活前或當(dāng)前窗體被創(chuàng)建、消毀時(shí)，系統(tǒng)會(huì)調(diào)用WH_SHELL Hook過(guò)程。 使用HOOK 安裝、銷毀HOOK過(guò)程 監(jiān)視系統(tǒng)事件安裝、銷毀HOOK過(guò)程 使用SetWindowsHookEx函數(shù)，指定一個(gè)HOOK類型，自己的HOOK過(guò)程是全局還是局部HOOK，同時(shí)給出HOOK過(guò)程的進(jìn)入點(diǎn)，就可以輕松的安裝你自己的HOOK過(guò)程。Declare Function SetWindowsHookEx Lib user32 Alias SetWindowsHookExA _ (ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As

25、Long, _ ByVal dwThreadId As Long) As LongidHook代表是何種Hook，有以下幾種 Public Const WH_CALLWNDPROC = 4 Public Const WH_CALLWNDPROCRET = 12 Public Const WH_CBT = 5 Public Const WH_DEBUG = 9 Public Const WH_FOREGROUNDIDLE = 11 Public Const WH_GETMESSAGE = 3 Public Const WH_HARDWARE = 8 Public Const WH_JOURNAL

26、PLAYBACK = 1 Public Const WH_JOURNALRECORD = 0 Public Const WH_KEYBOARD = 2 Public Const WH_MOUSE = 7 Public Const WH_MSGFILTER = (-1) Public Const WH_SHELL = 10 Public Const WH_SYSMSGFILTER = 6lpfn代表Hook Function所在的Address，這是一個(gè)CallBack Fucnction，當(dāng)掛上某個(gè)Hook時(shí)，我們便得定義一個(gè)Function來(lái)當(dāng)作某個(gè)訊息產(chǎn)生時(shí)，來(lái)處理它的Function，這

27、個(gè)Hook Function有一定的叁數(shù)格式 Private Function HookFunc(ByVal nCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long ) As Long nCode 代表是什麼請(qǐng)況之下所產(chǎn)生的Hook，隨Hook的不同而有不同組的可能值。 wParam lParam 傳回值則隨Hook的種類和nCode的值之不同而不同。 因這個(gè)叁數(shù)是一個(gè) Function的Address所以我們固定將Hook Function放在.Bas中，并以AddressOf HookFunc傳入。至於Hook Funct

28、ion的名稱我們可以任意給定，不一定叫 HookFunchmod 代表.DLL的hInstance，如果是Local Hook，該值可以是Null(VB中可傳0進(jìn)去)，而如果是Remote Hook，則可以使用GetModuleHandle(.dll名稱)來(lái)傳入。dwThreadId 代表執(zhí)行這個(gè)Hook的ThreadId，如果不設(shè)定是那個(gè)Thread來(lái)做，則傳0(所以一般來(lái)說(shuō)，Remote Hook傳0進(jìn)去)，而VB的Local Hook一般可傳App.ThreadId進(jìn)去。值回值 如果SetWindowsHookEx()成功，它會(huì)傳回一個(gè)值，代表目前的Hook的Handle，這個(gè)值要記錄下

29、來(lái)。因?yàn)锳程式可以有一個(gè)System Hook(Remote Hook)，如KeyBoard Hook，而B(niǎo)程式也來(lái)設(shè)一個(gè)Remote的KeyBoard Hook，那麼到底KeyBoard的訊息誰(shuí)所攔截？答案是，最後的那一個(gè)所攔截，也就是說(shuō)A先做keyboard Hook，而後B才做，那訊息被B攔截，那A呢？就看B的Hook Function如何做。如果B想讓A的Hook Function也得這個(gè)訊息，那B就得呼叫CallNextHookEx()將這訊息Pass給A，於是產(chǎn)生Hook的一個(gè)連線。如果B中不想Pass這訊息給A，那就不要呼叫CallNextHookEx()。Declare Fun

30、ction CallNextHookEx Lib user32 Alias CallNextHookEx _ (ByVal hHook As Long, _ ByVal ncode As Long, _ ByVal wParam As Long, _ lParam As Any) As LonghHook值是SetWindowsHookEx()的傳回值，nCode, wParam, lParam則是Hook Procedure中的三個(gè)叁數(shù)。最後是將這Hook去除掉，請(qǐng)呼叫UnHookWindowHookEx()Declare Function UnhookWindowsHookEx Lib u

31、ser32 Alias UnhookWindowsHookEx _ (ByVal hHook As Long) As LonghHook便是SetWindowsHookEx()的傳回值。此時(shí)，以上例來(lái)說(shuō)，B程式結(jié)束Hook，則換A可以直接攔截訊息。KeyBoard Hook的范例Hook Function的三個(gè)叁數(shù)nCode wParam lParam 傳回值HC_ACTION表按鍵Virtual Key與WM_KEYDOWN同若訊息要被處理傳0或 反之傳1HC_NOREMOVEPublic hHook as LongPublic Sub UnHookKBD ()If hnexthookpro

32、c 0 Then UnhookWindowsHookEx hHook hHook = 0End IfEnd SubPublic Function EnableKBDHook()If hHook 0 Then Exit FunctionEnd Ifhhook = SetWindowsHookEx(WH_KEYBOARD, AddressOf _ MyKBHFunc, App.hInstance, App.ThreadId)End FunctionPublic Function MyKBHFunc(ByVal iCode As Long, _ ByVal wParam As Long, ByVal

33、 lParam As Long) As Long MyKBHfunc = 0 表示要處理這個(gè)訊息 If wParam = vbKeySnapshot Then 偵測(cè) 有沒(méi)有按到PrintScreen鍵 MyKBHFunc = 1 在這個(gè)Hook便吃掉這個(gè)訊息 End If Call CallNextHookEx(hHook, iCode, wParam, lParam) 傳給下一個(gè)HookEnd Function鼠標(biāo)鉤子的示例列下。（1）模塊中輸入：Public Const WM_MOUSEMOVE = &H200Public Const WM_LBUTTONDOWN = &H201Publi

34、c Const WM_LBUTTONUP = &H202Public Const WM_LBUTTONDBLCLK = &H203Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_RBUTTONDBLCLK = &H206Public Const WM_MBUTTONDOWN = &H207Public Const WM_MBUTTONUP = &H208Public Const WM_MBUTTONDBLCLK = &H209Public Const WM_MOUSEACTI

35、VATE = &H21Public Const WM_MOUSEFIRST = &H200Public Const WM_MOUSELAST = &H209Public Const WM_MOUSEWHEEL = &H20A 以上是鼠標(biāo)的各個(gè)值Private Declare Function CallNextHookEx Lib user32 (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As LongPublic Function HookProc(ByVal nCode As

36、Long, ByVal wParam As Long, ByVal lparam As Long) As Long If nCode 0 Then HookProc = CallNextHookEx(hHook, nCode, wParam, lparam) Exit Function End If If wParam = WM_RBUTTONDOWN Then MsgBox aa End IfEnd Function（2）窗體中輸入：Private Declare Function SetWindowsHookEx Lib user32 Alias SetWindowsHookExA (By

37、Val idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPrivate Declare Function UnhookWindowsHookEx Lib user32 (ByVal hHook As Long) As LongPrivate Const WH_MOUSE_LL As Long = 14Private Sub Form_Load() hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, Ap

38、p.hInstance, 0)End SubPrivate Sub Form_Unload(Cancel As Integer)Call UnhookWindowsHookEx(hHook)End Sub=保存圖片：創(chuàng)建一個(gè)picturebox,其 autosize設(shè)為true 創(chuàng)建一個(gè)按鈕 運(yùn)行以下代碼 Option Explicit Private Sub Command1_Click() Picture1.Picture = Clipboard.GetData SavePicture Picture1.Picture, d:1.jpg 保存路徑和文件名自己定 End Sub =將一個(gè)或多個(gè)按鍵（注意可以是多個(gè)）消息發(fā)送到活動(dòng)窗口，就如同在鍵盤(pán)上進(jìn)行輸入一樣。 語(yǔ)法 SendKeys string, wait SendKeys 語(yǔ)句的語(yǔ)法具有以下幾個(gè)命名參數(shù)： 部分 描述 string 必需的。字符串表達(dá)式，指定要發(fā)送的按鍵消息。 Wait 可選的。指定等待方式的 BooleandefBooleanDataTypeveendf98.chm 值。如果為 False（缺省值），則控件在按鍵發(fā)送出去之后立刻返回到過(guò)程。如果為 True，則按鍵消息必須在控件返回到過(guò)程之前加以處理。 說(shuō)明 每個(gè)按鍵由一個(gè)或