關於自製熱鍵

悲傷

小弟最近又開始接觸VB ，又把高中的課本拿出來讀。但我想自製一個熱鍵程式（畢竟高中的課本資源有限），卻卡住了希望大大們可以幫我解決問題！！！！
還有請問執行後表單的框框怎麼設定



以下就是我的程式碼：

1. [/size][/font][/backcolor][/color]
   
2. Private Sub Combo1_Click()
   
3. Dim x
   
4. x = Clear
   
5. x = Combo1.ListIndex  '將所選到的項目存到i
   
6. Text1.Text = Combo1.List(x)
   
7. End Sub
   
8. 
   
9. Private Sub Combo2_Click()
   
10. Dim y
    
11. y = Clear
    
12. y = Combo2.ListIndex  '將所選到的項目存到i
    
13. End Sub
    
14. Private Sub Combo3_Click()
    
15. Dim z
    
16. z = Clear
    
17. z = Combo3.ListIndex  '將所選到的項目存到i
    
18. End Sub
    
19. Private Sub Command1_Click()
    
20. 
    
21. If Command1.Caption = "啟動" Then
    
22.     Command1.Caption = "停止"
    
23.    Timer1.Enabled = True
    
24.    ms = Val(Text4.Text)
    
25.       Else
    
26.     Command1.Caption = "啟動"
    
27.    Timer1.Enabled = False
    
28. 
    
29.   End If
    
30. 
    
31.       End Sub
    
32. Private Sub Timer1_Timer() '啟動10秒後執行第一次
    
33.   ms = ms - 1
    
34.   msLabel = ms
    
35.   Label1.Caption = msLabel
    
36. 
    
37.   If Combo1.List(x) = "F5" Then
    
38.      SendKeys "{F5}"
    
39.      DoEvents
    
40.      End If
    
41.      If Combo1.List(x) = F6 Then
    
42.      SendKeys "{F6}"
    
43.         End If
    
44.         If Combo1.List(x) = F7 Then
    
45.      SendKeys "{F7}"
    
46.            End If
    
47.            If Combo1.List(x) = F8 Then
    
48.      SendKeys "{F8}"
    
49.               End If
    
50.   DoEvents
    
51. End Sub
    
52. Private Sub Timer2_Timer() '啟動10秒後執行第一次
    
53.   SendKeys "{b}"
    
54.   DoEvents
    
55. End Sub
    
56. Private Sub Timer3_Timer() '啟動10秒後執行第一次
    
57.   SendKeys "{c}"
    
58.   DoEvents
    
59. End Sub
    
60. Private Sub Form_Load()
    
61.    Timer1.Interval = 1000
    
62. End Sub[color=#444444][backcolor=rgb(253, 253, 253)][font=Verdana, Helvetica, Arial, sans-serif][size=12px]

複製代碼

  


...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

如果不考慮 全域問題，你這種用法是正確的
表單設定？ 你是想一執行就縮小？還是？？？？

悲傷

darkjack 發表於 2012-7-26 07:27 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

如果不考慮 全域問題，你這種用法是正確的
表單設定？ 你是想一執行就縮小？還是？？？？ ...

是想執行變大一點,因為我只看到全視窗的選項!!!!...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

那你直接先調整好在執行不就好了？
且執行後還是可以修改（手動）

是想執行變大一點,因為我只看到全視窗的選項!!!!

看不太懂整句的文法耶...

1. Private Sub Form_Load()
   
2.   Me.Move 0, 0, Screen.Width, Screen.Height '視窗填滿螢幕
   
3. End Sub

複製代碼

這樣子可以改成你要的Size吧？...

瀏覽完整內容，請先 註冊 或 登入會員

悲傷

afaf9 發表於 2012-7-26 04:35 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

看不太懂整句的文法耶...這樣子可以改成你要的Size吧？

恩恩  謝謝大大!!!我上面的語法是用我目前所學的都打上去= ="
...

瀏覽完整內容，請先 註冊 或 登入會員

((⊙⊙))...

最簡單的方法，
Timer時間到執行combo單擊嚕...

1. Private Sub TimerX_Timer() 'Timer名稱(X)自己改
   
2.   Combo1_Click 'Combo單擊
   
3. End Sub

複製代碼

CheckBox基本操作就有73項，
該怎麼解釋？
只有請你自己去翻翻GOOGLE大神囉。...

瀏覽完整內容，請先 註冊 或 登入會員