重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
首先要添加兩個窗體,假設第一個窗體名為Form1,第二個窗體名為Form2。在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為:
成都創新互聯專注于西平網站建設服務及定制,我們擁有豐富的企業做網站經驗。 熱誠為您提供西平營銷型網站建設,西平網站制作、西平網頁設計、西平網站官網定制、微信小程序開發服務,打造西平網絡公司原創品牌,更為您提供西平網站排名全網營銷落地服務。
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個參數即Form2.Show 0或Form2.Show 1此參數可缺省。可自行運行驗證
可以利用msgbox 實現,也可以通過另外的窗體上畫出表格實現
方法一,利用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
方法二,利用窗體實現:
’新建form2窗體‘將以下代碼復制到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‘將以下代碼復制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub
首先要添加兩個窗體,假設第一個窗體名為Form1,第二個窗體名為Form2。
在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為:
Private Sub Command1_Click()
Form2.Show//用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個參數即Form2.Show 0或Form2.Show 1此參數可缺省。
擴展資料
VB窗體的三個基本概念:
編VB程序首先要創建一個良好的可視化界面。每個程序界面是由窗體(Form) 和一些必要的控件元素(Control) 構成的。由于VB屬于面向對象編程,所以一般將窗體與控件都稱為對象。
需要先了解一下三個基本概念:對象的屬性、方法和事件。
屬性:指對象(窗體,控件)的大小、顏色、方位等一系列外觀或內部構造的特征。
方法:指對象(窗體,控件)所進行的操作。
事件:指對象(窗體,控件)對外部條件的響應。
現今的Windows視窗操作系統,與以前Dos最顯著的區別就是其擁有一個為用戶所能接受的圖形界面。在這個可視化的圖形界面中,戶能方便地使用多個程序,而這一切就象在針對一個個窗口進行操作。
你可以這樣做,設置窗體的TopMost 屬性為真!
Me.TopMost = True
Form.TopMost 屬性
獲取或設置一個值,指示該窗體是否應顯示為最頂層窗體。