築夢學園

MS VB 參考文件

　

基礎入門(上)

　

基礎入門(下)

　

流程控制(上)

　

流程控制(下)

　

圖形輸出

　

事件處理

　

多重表單

　

MDI 表單(上)

　

MDI表單(下)

　

檔案系統(上)

　

檔案系統(下)

　

圖形 API (上)

　

圖形 API (下)

　

　

功能表圖示

多重文件介面MDI(上)

實作學習：開一父視窗表單及一子視窗表單，表單設計如下

	物件	屬性		屬性值
	MDIForm1	Caption		父視窗
	Form1	Caption		子視窗
		MDIChild		True

	新子視窗		NewChild
	視窗		Window
	重疊		Cascade
	水平		Horizontal
	垂直		Vertical
	排列圖示		Arrange

　

建立功能表上新子視窗敘述程式

Private Sub MDIForm_Load()

Form1.Show '開啟父視窗時同時開啟子視窗1

End Sub

Private Sub NewChild_Click()

Static Y As Integer '宣告Y為整數

Dim NewChild As New Form1 '宣告NewChild為新子表單

Dim Format$() '宣告不定陣列

If Y < 2 Then Y = 2

NewChild.Caption = "子視窗" + Format$(Y)

NewChild.Show '顯示新子表單

Y = Y + 1

End Sub

　

視窗管理Arrange敘述

參數值	常數	說明
0	vbCascade	重疊顯示
1	VbTileHorizoltal	非重疊顯示（水平）
2	VbTileVertical	非重疊顯示（垂直）
3	VbArrangeIcons	排列圖示

Private Sub Cascade_Click()

MDIForm1.Arrange 0 '重疊顯示

End Sub

Private Sub Horizontal_Click()

MDIForm1.Arrange 1 '水平排列

End Sub

Private Sub Vertical_Click()

MDIForm1.Arrange 2 '垂直排列

End Sub

Private Sub Arrange_Click()

MDIForm1.Arrange 3 '排列圖示

End Sub

本網頁由昱得資訊工作室製作(C) Copyright Valor-Studio since in 1993

　

本網站全部內容係屬【昱得資訊工作室】版權所有，轉載必究，
非經正式書面同意，不得將全部或部分內容，以任何方式轉載於其他網站或用於任何商業行為