【文章內(nèi)容簡介】 04_01】 設(shè)計一程式，利用 vbNewLine是用來作強迫換行。 【 題目說明 】 當按「執(zhí)行」按鈕時，結(jié)果如下圖所示。 【 學習目的 】 學習如何在同一列顯示與強迫換新行。 【 使用物件與命名 】 35 座標 ? 電腦螢?zāi)凰@示的影像，實際上都是由不連續(xù)的像素 (Pixel)所組合而成的。像素的明暗與色彩的配合，可以構(gòu)成千變?nèi)f化的圖形與文字。螢?zāi)坏乃交虼怪毕袼氐臄?shù)目愈多，則表示螢?zāi)坏慕馕龆扔摺? ? 若要知道表單上物件所在的位置，就必須由物件的 Location屬性值來判斷物件安放位置的座標。 (0,0) 大 大 351 Location屬性 在 Form上有兩個屬性欄，記錄著輸出的縱橫座標，如 Form的座標系統(tǒng)是以左上角為原點(0,0)，越往右邊則 ，而越往下方 ，如圖所示。 如果要在表單物件上，於某個座標點開始顯示標籤、文字方塊 … 便可設(shè)定 Location X與Location Y的屬性值，所以 Location X及Location Y可設(shè)定所指物件目前的垂直或水平座標值。其語法如下： 【 語法 】 [物件名稱 ]． Location． X [物件名稱 ]． Location． Y 【 說明 】 所設(shè)定的座標為相對於該物件工作區(qū)左上角位置，而非相對於螢?zāi)蛔笊辖堑淖鶚恕? 【 實例 03_00_01】 設(shè)計一程式，表單上有一標籤 (label1)其屬性Image(影像 )是一部汽車，當在按鈕「上」按一下時，汽車向上移動 20，當在按鈕「下」按一下時，汽車向下移動 20，當按「左」或按「右」同樣依方向移動 20。 【 題目說明 】 1. 程式執(zhí)行時，如圖所示。 2. 當在按鈕「上」按一下時，汽車向上移動 20， 如圖所示。 【 學習目的 】 1. 學習標籤內(nèi)放入影像。 2. 物件命名使用中文名稱命名。 3. 標籤位置 (Location)與新位置 (New Point) 在按鈕上按一下（ Click）產(chǎn)生的事件。 36 字型 361 字型設(shè)定 在本章 312節(jié)已經(jīng)介紹過如何在設(shè)計階段透過 Font屬性來設(shè)定表單上或控制項上面的文字大小、樣式等效果。但是如何在程式執(zhí)行中來改變上述的文字大小、顏色其語法如下： 【 語法 】 物件名稱 .]Font = New Font(FontName, FontSize, FontStyle) 【 功能 】 設(shè)定指定物件上字體的字型、大小、樣式。 【 說明 】 1. 只要在物件中含 Text屬性，皆可在程式中使用此方法 2. 若上述語法省略物件名稱時，適用表單。 3. FontStyle：有 Bold(粗體 )、 Italic(斜體 )、 Regular (標準 )、 Strikeout (刪除線 )和 Underline(底線 )。 【 實例 03_00_01】 設(shè)計一程式，執(zhí)行時表單上標籤顯示「知福惜福」為預(yù)設(shè)值，當按「字型變化」鈕時標籤內(nèi)字型顯示標楷體、大小為 字體為粗體字。 【 題目說明 】 1. 程式執(zhí)行時表單顯示如圖所示。 2. 當按「字型變化」鈕時顯示如圖所示。 【 學習目的 】 1. 學習字型各種屬性 。 2. 變數(shù)名稱使用中文定義 。 【 討論 】 程式可以只寫一行，其寫法如下： Private Sub Button1_Click(ByVal …) … = New Font(標楷體 , 20, ) End Sub 362 字型屬性 Font雖是其它控制項的屬性，但他本身包括文字的字型名稱、大小、樣式 … 等副屬性。 【 例 】 設(shè)有一標籤物件 (Label1)其屬性設(shè)定為「標楷體， 20pt，粗體」其副屬性如下表： 【 實例 03_06_02】 設(shè)計一程式，延伸實例 3_06_01，將其副屬性顯示於標籤內(nèi)。 【 題目說明 】 程式執(zhí)行時表單顯示如圖所示。 2. 當按「字型設(shè)定」鈕時顯示如圖所示。 【 學習目的 】 學習字型設(shè)定與字型的各種副屬性 。 【 程式內(nèi)容 】 Private Sub Button1_Click(By Val…) Handles = New Font(標楷體 , 20, Font ) End Sub Private Sub Button2_Click(By Val…) Handles amp。= 字型名稱： amp。 amp。 v b New Line amp。= 字型大小： amp。 amp。 v b New Line amp。= 粗 體 字： amp。 amp。 v b New Line amp。= 斜 體 字： amp。 amp。 v b New Line amp。= 加 底 線： amp。 amp。 v b New Line amp。= 刪 除 線： amp。 amp。 v b New Line End Sub Private Sub Button3_Click(By Val…) Handles End End Sub 37 顏色 371 Color 【 語法 】 【 功能 】 程式中用來設(shè)定顏色。 屬性值參數(shù)如下表所示： 【 例 】 將 Label1標籤控制項的背景色設(shè)為藍色。其寫法： 當在 Color後按「 ?」時即出現(xiàn)下拉選項從中選 Blue如圖所示： Color = 372 QBColor 函數(shù) QBColor函數(shù)是為了要繼承 DOS下的 Quick Basic是用來設(shè)定顏色。在 Visual Basic中設(shè)定顏色的方式很多，而最簡單的是 QBColor函數(shù)，可是它在設(shè)定時較無彈性。 【 語法 】 QBColor(color) 【 說明 】 color：為顏色代碼，顏色代碼為 0~15對照表如下 若要使用 QB Color自訂色彩，可使用 Color Ole()來指定色彩，如標籤 (Label1)背景顏色為黃色其寫法： Color = Color Ole(QB Color(14)) RGB函數(shù) RGB(Red, Green, Blue)函數(shù)有三個引數(shù)，分別代表紅、綠、藍三種顏色光的強度，每個顏色值分別從 0至255共分成 256個階段，而每一個 Byte可以表示數(shù)值0~255，紅、綠、藍三色各佔一個 Byte（每一個Byte=8Bits）因此每一個顏色可以用 24bits來表示，所以 RGB函數(shù)組出來的顏色可達 256*256*256=16,777,216種顏色，也就是所謂的「全彩」。例如 RGB(250， 0，0)為紅色、 RGB(0,255,0)為綠色、 RGB(0， 0， 255)為藍色、 RGB(255,0,255)為紫色（紅＋藍）。 若要使用 RGB自訂色彩，可使用 Argb()來指定色彩，如表單背景顏色為白色其寫法： Color = Argb(255, 255, 255) 【 實例 03_07_01】 設(shè)計一程式，執(zhí)行時表單上標籤顯示「知福惜?！篂轭A(yù)設(shè)值，當按「變化」鈕時，表單背景顏色變?yōu)榘咨?，標籤內(nèi)字型顯示標楷體、大小為 字體為粗體字，標籤前景變紅色、背景變淺綠色。 【 題目說明 】 1. 程式執(zhí)行時，顯示如圖所示。 【 學習目的 】 1. 在程式中設(shè)定 Font屬性。 2. 了解前景顏色與背景顏色。 3. 了解 Color、 QBColor與 RGB三種不同顏色敘述的用法。 38 字型與顏色對話框 381 字型對話框 在設(shè)定字型我們除了在屬性 Font設(shè)定或在程式中使用 New Font設(shè)定外，還可利用字型對話框 (FontDial