築夢學園

MS VB 參考文件

基礎入門(上)

基礎入門(下)

流程控制(上)

流程控制(下)

圖形輸出

事件處理

多重表單

MDI 表單(上)

MDI表單(下)

檔案系統(上)

檔案系統(下)

圖形 API (上)

圖形 API (下)

檔案 API

功能表圖示

作品介紹

免費下載

廠商軟體

基本程式設計入門(上)

VB的工作模式：『設計』、『執行』、『暫停』

『設計』：請注意VB視窗的抬頭後端出現設計的字眼。

『執行』：在設計模式下按下開始命令鈕，即進入執行模式，VB視窗的抬頭後端出現執行的字眼，同時工具箱及屬性視窗會隱藏不見，同時表單視窗的格點也不見了。在執行模式下按下停止按鈕，又會回到設計模式下。

『暫停』：在執行模式下按下暫停按鈕，即進入暫停模式，VB視窗的抬頭後端出現暫停的字眼，在暫停模式下按下停止按鈕，又會回到執行模式下。

啟動程式的開關＞＞命令按鈕
計算圓面積
R = 10 �t 半徑
A = 2*R*3.14159 �t 圓週公式
Print "圓週 =";A �t 印出圓週
圓面積 =62.8318

步驟：1.建立COMMAND命令鈕
2.改變標題為"計算圓週"
3.雙擊命令鈕寫入程式
注意：A：務必將程式寫在Private Sub與End Sub之間
B：Private Sub Command1_Click（）中的Command1會隨著被雙按的命令鈕名稱而改變

可輸入資料的程式InputBox敘述

變數=Intput("提示訊息")
計算圓面積
R = IntputBox("請輸入圓半徑") �t 自行輸入半徑
A = 2*R*3.14159 �t 圓週公式
Print "圓週 =";A �t 印出圓週

注意：A：加入Cls敘述，改進表單印滿時的困境
B：利用AutoRedraw屬性改善表單被其他視窗蓋住再移開後，表單被覆蓋部分文字消失的問題

設定物件屬性的敘述
物件名。屬性名= 屬性值
例：Label1.Caption="練習"
物件名。屬性名。副屬性名 = 屬性值
以字型設定為例

交談窗之功能	副屬性名	意義	說明（設定值）
字型	Name	名稱	細明體、新細明體等
大小	Size	大小	8，9，10等
字型樣式	Bold Italic	粗體斜體	True表示設定為粗體 True表示設定為斜體
效果	Underline Strikethrough	底線刪除線	True表示設定為底線 True表示設定為刪除線

練習實作:

Private Sub Command1_Click(Index As Integer)
Label1.Font.Size = 16
Label1.Font.Italic = True
Label1.Font.Bold = True
End Sub

Private Sub Command2_Click()Label1.Font.Size = 14
Label1.Font.Italic = True
Label1.Font.Bold = False
Label1.Font.Underline = True
End Sub

Private Sub Command3_Click()
Label1.Font.Size = 14
Label1.Font.Italic = True
Label1.Font.Bold = False
Label1.Font.Underline = False
End Sub

物件的Picture屬性敘述

Picture的屬性設定必須利用VB的LoadPicture函數，其設定格式如下
Set 物件名。Picture = LoadPicture（圖檔檔名）
例如：Set Form1。Picture = LoadPicture（c:\windows\setup.bmp）
LoadPicture函數可讀取的檔案類型有：bmp、dib、wmf、ico、cur、gif、jpg等類型

實作學習：

Private Sub Command1_Click()
Set Picture1.Picture = LoadPicture("c:\windows\plus!.bmp")
End Sub

Private Sub Command2_Click()
Set Form1.Picture = Picture1.Picture
End Sub

Private Sub Command3_Click()
Set Picture1.Picture = LoadPicture("")
End Sub

Private Sub Command4_Click()
Set Form1.Picture = LoadPicture("")
End Sub