Delphi VJ VB VC 討論 聯繫 首頁
MS VB 參考文件

 基礎入門(上)
 基礎入門(下)
 流程控制(上)
 流程控制(下)
 圖形輸出
 事件處理
 多重表單
 MDI 表單(上)
 MDI表單(下)
 檔案系統(上)
 檔案系統(下)
 圖形 API (上)
 圖形 API (下)
 檔案 API
 功能表圖示

作品介紹

免費下載

廠商軟體


多重文件介面MDI(下)
bar-light.gif (1940 bytes)

加上狀態欄
父視窗加上一個PictureBox並將Aligng屬性設為『2-對齊表單下方』
子視窗1加入兩個PictureBox並將其Picture屬性分別加入一個圖形

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.Picture1.Cls
MDIForm1.Picture1.Print "日本"

End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.Picture1.Cls
MDIForm1.Picture1.Print "美國"

End Sub

建立MDI上的工具按鈕

加入一個新影像框PictureBox2

再加入兩個命令鈕Command1,2在新影像框PictureBox2之中,將其Caption標題分別設為『水平』與『垂直』

在『水平』與『垂直』兩個命令鈕中分別加入敘述程式

Private Sub Command1_Click()

MDIForm1.Arrange 1 '水平排列

End Sub

Private Sub Command2_Click()

MDIForm1.Arrange 2 '垂直排列

End Sub

要讓工具按鈕具有『提示方塊』說明文字,只要在命令
鈕的
ToolTipText屬性中加入要顯示的說明文字就可以了


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

 

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