你在第一個(gè)窗口里寫 Form2.ShowDialog()
站在用戶的角度思考問題,與客戶深入溝通,找到集賢網(wǎng)站設(shè)計(jì)與集賢網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品,建站類型包括:成都網(wǎng)站制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、國(guó)際域名空間、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋集賢地區(qū)。
這樣就可以了,關(guān)掉form2的時(shí)候form1的代碼就會(huì)繼續(xù)執(zhí)行
首先要添加兩個(gè)窗體,假設(shè)第一個(gè)窗體名為Form1,第二個(gè)窗體名為Form2。在Form1窗體中添加個(gè)按鈕Command1。按鈕單擊事件的代碼為:
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個(gè)參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省??勺孕羞\(yùn)行驗(yàn)證
Public Class Form1
Private WithEvents _Notyfy As NotifyIcon
Protected Overrides Sub OnLoad(e As System.EventArgs)
MyBase.OnLoad(e)
_Notyfy = New NotifyIcon '創(chuàng)建NotifyIcon
_Notyfy.Visible = True '顯示NotifyIcon
_Notyfy.Icon = SystemIcons.Information '選擇NotifyIcon圖標(biāo)
End Sub
Private Sub NotyfyClick(sender As Object, e As EventArgs) _
Handles _Notyfy.Click '單擊NotifyIcon事件
Dim f As New Form '創(chuàng)建窗體(改成你自己的窗體)
f.Show() '顯示窗體
End Sub
End Class
可以利用msgbox 實(shí)現(xiàn),也可以通過另外的窗體上畫出表格實(shí)現(xiàn)
方法一,利用msgbox:
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二,利用窗體實(shí)現(xiàn):
’新建form2窗體‘將以下代碼復(fù)制到form2窗體中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘將以下代碼復(fù)制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub
選擇文件夾??在工具箱?-?對(duì)話框?里選擇?FolderBrowserDialog?添加?到設(shè)計(jì)器中
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對(duì)話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點(diǎn)擊按鈕會(huì)彈出?通用對(duì)話框??選擇好路徑后?確定?,編輯框里就會(huì)顯示選擇的路徑
Vb不是人機(jī)對(duì)話窗口,而是編程工具,可以編寫代碼進(jìn)行調(diào)試執(zhí)行或者生成可執(zhí)行文件。
用Visual Studio .Net開發(fā)"Hello World!"程序:
我們知道"Hello World"一般是命令行程序,而這種程序在Visual Studio .Net中被稱為"控制臺(tái)程序"。下面是Visual Studio .Net編寫控制臺(tái)"Hello World!"程序的具體步驟:
(1)、啟動(dòng)Visual Studio .Net。
(2)、選擇菜單【文件】|【新建】|【項(xiàng)目】后,彈出【新建項(xiàng)目】對(duì)話框。
(3)、將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。
(4)、將【模板】設(shè)置為【控制臺(tái)應(yīng)用程序】。
(5)、在【名稱】文本框中輸入【Hello World】。
(6)、在【位置】的文本框中輸入【E:VS.NET項(xiàng)目】,然后單擊【確定】按鈕,則Visual Studio .Net會(huì)按照上面設(shè)定的參數(shù)創(chuàng)建一個(gè)控制臺(tái)應(yīng)用程序項(xiàng)目,具體如圖01所示。
圖01:"Hello World"控制臺(tái)程序的【新建項(xiàng)目】界面
(7)、在【解決方案資源管理器】窗口中,雙擊Module1.vb文件,進(jìn)入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)、此時(shí)單擊快捷鍵Ctrl+F5運(yùn)行程序就可以得到圖02所示運(yùn)行界面: