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