Vb不是人機對話窗口,而是編程工具,可以編寫代碼進行調(diào)試執(zhí)行或者生成可執(zhí)行文件。
和政網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)!從網(wǎng)頁設計、網(wǎng)站建設、微信開發(fā)、APP開發(fā)、響應式網(wǎng)站建設等網(wǎng)站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)成立于2013年到現(xiàn)在10年的時間,我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗,來保證我們的工作的順利進行。專注于網(wǎng)站建設就選創(chuàng)新互聯(lián)。
用Visual Studio .Net開發(fā)"Hello World!"程序:
我們知道"Hello World"一般是命令行程序,而這種程序在Visual Studio .Net中被稱為"控制臺程序"。下面是Visual Studio .Net編寫控制臺"Hello World!"程序的具體步驟:
(1)、啟動Visual Studio .Net。
(2)、選擇菜單【文件】|【新建】|【項目】后,彈出【新建項目】對話框。
(3)、將【項目類型】設置為【Visual Basic項目】。
(4)、將【模板】設置為【控制臺應用程序】。
(5)、在【名稱】文本框中輸入【Hello World】。
(6)、在【位置】的文本框中輸入【E:VS.NET項目】,然后單擊【確定】按鈕,則Visual Studio .Net會按照上面設定的參數(shù)創(chuàng)建一個控制臺應用程序項目,具體如圖01所示。
圖01:"Hello World"控制臺程序的【新建項目】界面
(7)、在【解決方案資源管理器】窗口中,雙擊Module1.vb文件,進入Module1.vb文件的編輯界面。
(8)、Visual Studio .Net已經(jīng)為產(chǎn)生Main()函數(shù)。在系統(tǒng)創(chuàng)建的Main()函數(shù)中加入下面一行代碼就可以了:
Console.WriteLine ("Hello World!")
(9)、選擇【文件】|【保存Module1.vb】菜單或者按快捷鍵Ctrl+S,保存所做的修改。
(10)、此時單擊快捷鍵Ctrl+F5運行程序就可以得到圖02所示運行界面:
這樣寫,每次點擊按鈕事件都會創(chuàng)建一個新的form。
你想要的效果是主窗口生命周期內(nèi),子form是一個。
根據(jù)這個你再考慮下怎么實現(xiàn)。比如主form加載時創(chuàng)建子form。點擊事件中去獲取子form的焦點。
首先聲明一下API
在你窗口最頂?shù)奈恢蒙蠈懮?/p>
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定義成 取窗口句柄 這個了
'在窗體中添加一個按鈕里面放進下面代碼就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '聲明窗口句柄變量存儲
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文檔.txt - 記事本") '取窗口標題的句柄 把得到窗口標題句柄賦予給剛才 窗口句柄 這變量里
If 窗口句柄 = 0 Then '判斷窗口句柄是否等于0 如果等于0表示無法找到窗口句柄
MsgBox "無法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄數(shù)為:" 窗口句柄
End If
End Sub
VB.NET即時窗口用于在設計時調(diào)試和計算表達式、執(zhí)行語句、輸出變量值等
快捷鍵是:CTRL+G 或者按 CTRL+ALT+I
首先要添加兩個窗體,假設第一個窗體名為Form1,第二個窗體名為Form2。在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為:
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省??勺孕羞\行驗證
將NewForm設置為全局變量就可以了,如果新建窗口比較多,就設置為數(shù)組,例如:
Public Class Form1
Dim NewForm(10) As Form
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
NewForm(0) = New Form
NewForm(0).Show()
End Sub
End Class