你是不是用的Visual Studio來開發(fā)的？如果是，這樣操作：打開 項目 菜單 中的 XXX屬性，在彈出的屬性頁選擇最上面那個 應(yīng)用程序 標簽，里面有個啟動窗體，你選擇一下就可以了。
十載專注成都網(wǎng)站制作，成都企業(yè)網(wǎng)站定制，個人網(wǎng)站制作服務(wù)，為大家分享網(wǎng)站制作知識、方案，網(wǎng)站設(shè)計流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù),專注于成都企業(yè)網(wǎng)站定制,高端網(wǎng)頁制作,對成都辦公空間設(shè)計等多個行業(yè)，擁有豐富的網(wǎng)站制作經(jīng)驗。
如果你不是用的visual Studio來開發(fā)的，那么可以考慮把另外一個窗口的visible屬性先設(shè)置為false或者把你要顯示的窗口改為對話框的形式，大小比另外一個窗口大一點或者一樣（即 模態(tài)窗口，必須關(guān)閉才能繼續(xù)操作），這樣都可以實現(xiàn)你要的效果。
'vb全局快捷鍵是個大大滴難題，不好整。以下是個演示，辦法比較笨，本人自用的，你試試。
'窗體放上控件：Command1、Label1、Check1、Check2、Text1、Text2、Timer1
'加入以下代碼，運行，設(shè)置"確定"鍵的快捷鍵
'可選"CTRL+某鍵"或者"SHIFT+某鍵"
'"某鍵"自己設(shè)置，只能設(shè)置為字母或數(shù)字
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer 'API聲明
Dim i
'================================================================
'這部分是設(shè)置各控件的大小、位置和初始屬性，為了便于演示才加的，
'你可以自行設(shè)計好各控件的大小、位置和初始屬性，無需這些代碼。
Private Sub Form_Load()
Form1.Width = 2690: Form1.Height = 2100
Command1.Width = 1215: Command1.Height = 495
Command1.Top = 120: Command1.Left = 120
Command1.Caption = "確定"
Label1.Width = 2175: Label1.Height = 255
Label1.Top = 720: Label1.Left = 120
Label1.Caption = "設(shè)置 確定 鍵的快捷鍵："
Check1.Width = 975: Check1.Height = 255
Check1.Top = 960: Check1.Left = 120
Check1.Caption = "CTRL +"
Check2.Width = 975: Check2.Height = 255
Check2.Top = 1320: Check2.Left = 120
Check2.Caption = "SHIFT +"
Text1.Width = 255: Text1.Height = 270
Text1.Top = 960: Text1.Left = 1080
Text1.Text = ""
Text2.Width = 255: Text2.Height = 270
Text2.Top = 1320: Text2.Left = 1080
Text2.Text = ""
Timer1.Interval = 10 'Timer的屬性，必須設(shè)置
End Sub
'以上部分是設(shè)置各控件的大小、位置和初始屬性，為了便于演示才加的，
'你可以自行設(shè)計好各控件的大小、位置和初始屬性，無需這些代碼。
'================================================================
Private Sub Timer1_Timer()
If Text1 "" Then
If Len(Text1) 1 Then Text1 = Left(Text1, 1)
If Asc("a") = Asc(Text1) And Asc(Text1) = Asc("z") _
Then Text1 = Chr(Asc(Text1) - 32)
If Check1.Value = 1 And GetAsyncKeyState(vbKeyControl) 0 _
And GetAsyncKeyState(Asc(Text1)) 0 Then
i = i + 1
If i = 1 Then Call Command1_Click
Else
i = 0
End If
End If
If Text2 "" Then
If Len(Text2) 1 Then Text2 = Left(Text2, 1)
If Asc("a") = Asc(Text2) And Asc(Text2) = Asc("z") _
Then Text2 = Chr(Asc(Text2) - 32)
If Check2.Value = 1 And GetAsyncKeyState(vbKeyShift) 0 _
And GetAsyncKeyState(Asc(Text2)) 0 Then
i = i + 1
If i = 1 Then Call Command1_Click
Else
i = 0
End If
End If
End Sub
Private Sub Command1_Click()
print "你好"
SendKeys "你好"
End Sub
1． F12：轉(zhuǎn)到定義；Shift+F12：轉(zhuǎn)到引用
2． F5：啟動；Ctrl+F5：開始執(zhí)行（不調(diào)試）；Shift+F5：停止調(diào)試
3． F7：查看代碼；Shift+F7：查看視圖設(shè)計器
4． Ctrl+Alt+L：解決方案資源管理器
5． Ctrl+Alt+J：對象瀏覽器
6． F4：顯示屬性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C類視圖
9． Alt+Enter：查看屬性
10．F10：逐過程調(diào)試
11．F11：逐語句調(diào)試
12．Ctrl+B：新斷點
13．Ctrl+Shift+F9：清除所有斷點
14．Ctrl+Shift+B生成解決方案
15．Shift+Alt+Enter：全屏
16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義
17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數(shù)信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞
VB6.0打開窗體：
'Form1
Option?Explicit
Private?Sub?Command1_Click()
Form2.Show
End?Sub
VB.net打開窗體：
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
Form2.Show()
End?Sub
VB.NET編寫托盤程序
托盤程序作為一類特殊的窗體，其快捷圖標顯示在
系統(tǒng)托盤
中，窗體本身則隱藏不可見。在.NET之前版本的VB中編寫托盤程序是十分困難的，但是VB.NET提供的新的NotifyIcon組件卻使VB初學者也能輕松編寫一個這樣的程序：
新建“Windows應(yīng)用程序”，設(shè)置主窗體Opacity屬性為0，F(xiàn)ormBorderStyle屬性為None，ShowInTaskbar屬性為
False，這樣窗體將在啟動后隱藏。在窗體上放置一個NotifyIcon組件NotifyIcon1，一個ContextMenu（彈出菜單）組件
ContextMenu1，并根據(jù)需要為ContextMenu1添加菜單項。
設(shè)置NotifyIcon1的ICON屬性，這個圖標就是應(yīng)用程序出現(xiàn)在系統(tǒng)托盤中的快捷圖標；設(shè)置NotifyIcon1的Text屬性為“VB.NET托盤程序”，這就是鼠標移動到托盤圖標時彈出的文字說明；設(shè)置NotifyIcon1的ContextMenu屬性為ContextMenu1，也就是右鍵單擊快捷圖標時的彈出菜單為
ContextMenu1。OK，按F5運行！
幾乎不用編寫代碼，一個托盤程序就這樣輕松實現(xiàn)了。
重慶分公司
重慶分公司
