770 likes | 947 Views
新觀念的 VB6 教本. 第 4 章 開始撰寫程式. 4-1 VB 的三種工作模式 -- 設計、執行、中斷. 開始、中斷、結束三個命令鈕. 設計模式. VB 在 設計模式 之下,可以進行表單及程式的設計. 執行模式. 在執行模式之下,按下 結束 命令鈕 ,又會恢復成 設計模式 。. 進入執行模式. 進入執行模式, 工具箱 及 屬性視窗 會被隱藏起來,而 表單視窗 的格點不見了。 在執行模式之下,按下 結束 命令鈕 ,又會恢復成 設計模式 。. 中斷模式.
E N D
新觀念的 VB6 教本 第 4 章 開始撰寫程式
設計模式 VB在設計模式之下,可以進行表單及程式的設計
執行模式 在執行模式之下,按下結束命令鈕 ,又會恢復成設計模式。
進入執行模式 • 進入執行模式,工具箱及屬性視窗會被隱藏起來,而表單視窗的格點不見了。 • 在執行模式之下,按下結束命令鈕 ,又會恢復成設計模式。
中斷模式 在中斷模式下,原來的 命令鈕代表的是繼續的意思,按下這個命令鈕將回到執行模式,按下結束命令鈕則恢復成設計模式。
計算標準體重 • 要計算某一身高下的標準體重,如果利用即時運算視窗,以下是程式輸入及執行的過程 : • H = 175 ' 身高W = H - 105 ' 計算公式Print "標準體重 ="; W ' 印出標準體重標準體重 = 70
把程式放到命令鈕裡(1) • 在表單上佈置一個命令鈕。 • 雙按表單上的命令鈕
把程式放到命令鈕裡(2) 3 .在Private Sub Command1_Click() 及End Sub之間輸入計算標準體重的程式
執行命令鈕裡面的程式 • 按下工具列的開始命令鈕 ,先啟動VB應用程式的執行。 • 此時可以看到我們在表單上佈置的命令鈕,按下命令鈕方可啟動程式的執行。
輸入程式的注意事項 • 把程式寫在Private Sub及End Sub之間。 • Private Sub Command1_Click() 中的Command1會隨著被雙按的命令鈕名稱來改變。 • 不要改變物件盒中的選擇。 • 不要改變程序盒中的選擇。
設計的觀念 • 在表單上佈置命令鈕,用的是表單的設計觀念。 • 在命令鈕裡面撰寫程式,用的是程式的設計觀念。 • 利用即時運算視窗來執行VB的敘述,雖然不具有設計的觀念 ,卻是一個很好的試驗場。
表單輸出的注意事項 -- CLS 敘述 在原表單上再佈置另一個命令鈕,然後在命令鈕裡面寫入CLS敘述,如下: Private Sub Command2_Click() Cls ' 清除表單End Sub Cls 雖然會把表單清除乾淨,但仍會保留表單上的控制元件,所以執行 Cls 敘述之後,計算標準體重命令鈕還是可以繼續操作。
AutoRedraw(自動重繪) 屬性 把這個屬性設定為True時,將來即使表單曾經被覆蓋住,只要它回到螢幕的最前端,先前Print敘述所輸出的文字,都一律會在原來的位置重新輸出一遍,以恢復原有的風貌。
設定物件屬性的敘述 物件屬性的設定是表單設計中最重要的工作,VB提供了設定物件屬性的敘述,讓我們在執行階段能夠設定物件的屬性,其效用也跟設計階段利用屬性視窗來設定物件的屬性一樣。
初試「設定物件屬性的敘述」 右邊的標籤2(Label2)利用屬性視窗設定以上屬性
初試「設定物件屬性的敘述」 如何利用程式把左邊的 Label1 設定成與右邊的標籤相同的樣子呢?
設定物件屬性的敘述 –Step 1 • 在原表單上再佈置三個命令鈕。
設定物件屬性的敘述 –Step 2 • 雙按第一個命令鈕(Command1),調出程式視窗,然後在Private Sub Command1_Click與End Sub之間輸入以下程式: Private Sub Command1_Click()Label1.Caption = "Visual Basic 6.0"End Sub
設定物件屬性的敘述 –Step 3 • 仿照步驟2的方法,分別在Command2及Command3命令鈕之中輸入以下程式: Private Sub Command2_Click()Label1.BorderStyle = 1End SubPrivate Sub Command3_Click()Label1.AutoSize = TrueEnd Sub
設定物件屬性的敘述 –Step 4 • 按開始命令鈕執行程式,然後依序按下Command1、Command2、Command3命令鈕,結果變化如下:
物件名‧屬性名=屬性值 設定物件屬性的敘述: Label1.Caption = "Visual Basic 6.0"
設定物件屬性的敘述 -- 鍵盤輸入型 • 輸入文字型在取得屬性值之後,必須在屬性值的前後加上雙引號。 • 輸入數字型則直接取下屬性值即可 。
設定物件屬性的敘述 -- 直接選取型(1) 1.在屬性視窗中拉下屬性值列表,並選取欲設定的屬性值。 2.去掉屬性值中的備註文字,即是程式所要的屬性值。
設定物件屬性的敘述 -- 直接選取型(2) 如果屬性值中並未含有備註文字則直接取下即可
設定物件屬性的敘述 -- 直接選取型(3) • 檢查您的屬性視窗是否縮得太小了,如果您把屬性視窗縮得太小了,從屬性視窗取下屬性值時,可能會漏取了後面的幾位數 .
設定物件屬性的敘述 -- 交談窗型Font(字型)的設定(1) Font是一個特殊的屬性,它還含有「副屬性」,交談窗中所看到的字型樣式、大小、及效果都是它的副屬性。
設定物件屬性的敘述 -- 交談窗型Font(字型)的設定(2) Font 的副屬性名稱一覽表
設定物件屬性的敘述 -- 交談窗型Font(字型)的設定(3) • 字型大小的設定 • 字型名稱的設定 Label1.Font.Size = 12 Label1.Font = "Arial" Label1.Font.Name = "Arial"
設定物件屬性的敘述 -- 交談窗型Font(字型)的設定(4) • 粗體 Label1.Font.Bold = True • 斜體Label1.Font.Italic = True • 標準 Label1.Font.Bold = False ' False 表示不要加粗Label1.Font.Italic = False ' False 表示不要斜體 • 粗斜體 Label1.Font.Bold = True ' 加粗Label1.Font.Italic = True ' 斜體 • 取消線Label1.Font.Strikethrough = True '加刪除線 • 底線 Label1.Font.Underline = True '加底線
設定物件屬性的敘述 -- 交談窗型Picture(圖片)的設定(1) • 藉助VB所提供的 LoadPicture 函數。 • 設定格式:Set 物件名.Picture = LoadPicture( 圖片檔名 ) • 例如:Set Form1.Picture = LoadPicture( "C:\windows\setup.bmp" ) • LoadPicture 函數可讀取的圖片檔有 .bmp、.dib、.wmf、.ico、.cur、.gif、.jpg 等多種。
設定物件屬性的敘述 -- 交談窗型Picture(圖片)的設定(2) 除了 LoadPicture 函數之外,我們也可以利用以下格式的敘述來設定圖片: Set 物件名1.Picture = 物件名2.Picture 作用是把物件2的圖片設定給物件1。
Picture 屬性實例(p.110) • 我們要在表單上佈置一個影像框及兩個命令鈕,而程式執行之後,若按下第一個命令鈕,則載入圖片設定給影像框,若按下第二個命令鈕,則將影像框的圖片設定給表單。
Picture 屬性實例 – Step 1 • 在表單上佈置好影像框及命令鈕,如下圖:
Picture 屬性實例 – Step 2 • 在Command1命令鈕之中撰寫以下程式: Private Sub Command1_Click() Set Image1.Picture = LoadPicture("c:\vb6book\ch04\USA.wmf")End Sub
Picture 屬性實例 – Step 3 • 在Command2命令鈕之中撰寫以下程式: Private Sub Command2_Click() Set Form1.Picture = Image1.PictureEnd Sub
Picture 屬性實例 – Step 4 • 最後執行程式,按下Command1命令鈕之後,可看到Image1影像框中顯示出美國國旗圖片,再按下Command2命令鈕,可看到表單上也顯示出美國國旗圖片,如下圖:
訊息窗(MsgBox)(2) • 抬 頭:通常用來顯示程式名稱,也就是告訴使用者這個訊息窗是哪一個程式顯示出來的。 • 訊息內容:程式想告訴使用者的訊息。 • 圖 示:提醒使用者注意的示意圖。 • 回覆按鈕:使用者回覆這個訊息的按鈕,如果使用者不按下按鈕,則訊息窗會一直保留在螢幕上。