PowerPoint Presentation

Size: px

Start display at page:

Download "PowerPoint Presentation"

殷堰洛
4 years ago
Views:

1 Visual Basic 程式設計繪圖世界 II 吸取顏色 -Point 方法 Shape 控制項 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性

2 吸取顏色 -Point 方法 Point 語法如下 : 語法 :[ 物件.] Point (x,y) 功能 : 取得表單或圖片方塊物件中某個指定點的顏色值語法說明 : 使用 Point 方法可吸取特定點的顏色 (2) Point 方法所吸取的特定點顏色值為長整數實作 Try it!! : 設計一個繪圖軟體提供的吸取顏色功能 (1) 到指定點吸取顏色 (2) 將吸取的顏色指定到其他的區域 2

3 Try it 3

4 Visual Basic 程式設計繪圖世界 II 吸取顏色 -Point 方法 Shape 控制項 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性

5 形狀 (shape) 控制項形狀控制項一共可以製作 6 種不同形狀的圖形並且和直線控制項一樣, 形狀控制項沒有任何的事件, 僅僅能夠做為繪圖之用, 同樣也會隨母件移動建立形狀控制項 1: 選取形狀工具 2: 在表單上拉出形狀控制項大小 5

6 形狀 (shape) 控制項 (cont.) 形狀的屬性 Shape 屬性 DrawMode BackColor BackStyle BorderColor 設定形狀控制項的邊框顏色形狀控制項可設定的屬性比起直線控制項還多了許多, 因此可以產生更多變化說明 BorderStyle 設定形狀控制項的邊框樣式, 屬性值為 0~6( 預設值為 0) BorderWidth FillColor FillStyle 設定形狀控制項的形狀設定形狀控制項的顯示效果設定形狀控制項的背景顏色設定形狀控制項的背景形式 : 0- 透明 ( 預設值 ) 1- 不透明設定形狀控制項的邊框寬度設定形狀控制項內的填滿顏色設定形狀控制項內的填充條紋樣式 6

7 形狀 (shape) 控制項 (cont.) Shape 屬性是用來設定形狀控制項的形狀, 屬性值為 0~5, 各代表不同形狀 : Shape 屬性值 0 長方形 ( 預設值 ) 說明 1 2 正方形橢圓形 3 4 圓形圓角矩形 ( 類似流程圖之開始結束符號 ) 5 圓角正方形 7

8 形狀 (shape) 控制項 (cont.) DrawMode 屬性 DrawMode 屬性是用來決定畫筆與螢幕顏色的組合關係由於表單圖片方塊等物件都具有 DrawMode 屬性, 因此當執行 Pset Line 及 Circle 方法時, 不同的 DrawMode 屬性會產生不同組合效果而直線控制項和形狀控制項也有 DrawMode 屬性, 下表是常用的 DrawMode 屬性值及組合效果屬性值說明 1 黑色 2 Not( 背景顏色 Or 前景顏色 ) 3 背景顏色 And (Not 前景顏色 ) 4 Not ( 前景顏色 ) 5 (Not 前景顏色 )And 前景顏色 6 Not( 背景顏色 ) 7 前景顏色 Xor 背景顏色 8 Not ( 背景顏色 And 前景顏色 ) 屬性值說明 9 背景顏色 And 前景顏色 10 Not ( 背景顏色 Xor 前景顏色 ) 11 沒有動作 12 背景顏色 Or (Not 前景顏色 ) 13 前景顏色 ( 預設值 ) 14 (Not 背景顏色 ) Or 前景顏色 15 背景顏色 Or 前景顏色 16 白色 8

9 形狀 (shape) 控制項 (cont.) FillStyle 屬性可以設定圖形內部的填充樣式, 有多種花紋可供選擇如下表 : FillStyle 屬性值說明實心透明 ( 預設值 ) 水平線垂直線 4 左上到右下的斜線 5 左下到右上的斜線 6 垂直交叉線 7 對角交叉線 9

10 形狀 (shape) 控制項 (cont.) 形狀控制項的程式設計由於 DrawMode 的屬性值效果很難了解, 因此我們直接用範例來看看不同的 DrawMode 屬性值會造成什麼樣的效果 10

11 Visual Basic 程式設計繪圖世界 II 吸取顏色 -Point 方法 Shape 控制項 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性

12 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性如果不是要開發繪圖軟體, 則可以使用別人開發的繪圖軟體製作所需要的精美圖片, 再將該圖片載入到我們所需要的程式中即可載入圖片使用的是 LoadPicture 函數, 而儲存圖片使用的則是 SavePicture 敘述當遇到與實體檔案 ( 例如圖檔 ) 有關的敘述時, 常常會希望在程式執行時動態得到該檔案的路徑, 此時則可以利用 App.Path 屬性取得檔案路徑 LoadPicture 函數語法 :[ 物件.] Picture = LoadPicture ([filename]) 功能 : 將圖形檔載入表單影像或圖片方塊物件中語法說明 : filename: 要載入圖形的檔名, 如果該圖檔位置與應用程式位處於不同資料夾, 則需要加上路徑名稱, 例如 : Form1.Picture = LoadPicture ("C:\VB6\PIC\TEST.bmp") LoadPicture 函數可以載入.bmp.wmf.ico 等格式的圖檔若省略 filename, 則會清除畫面例如 :Image1.Picture = LoadPicture ( ) 就會將 Image1 的圖形清除掉, 12

13 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性 (cont.) SavePicture 敘述語法 :App.Path 功能 : 取得目前執行中的程式的所在路徑語法說明 : 若未指定物件, 則 SavePicture 會將目前表單內的圖形存檔例如 :SavePicture Image, "C:\PIC\TEST2.bmp" 儲存圖形的控制項時,AutoRedraw 屬性為 True 必須選擇 Image 或 Picture, 若指定為 Image, 則儲存時會以 Bitmap(.bmp) 格式存檔 ; 若指定為 Picture, 則會以載入該物件時的格式當作存檔格式例如 :pictest1 圖片方塊的 Picture 屬性載入了一個 JPEG(*.jpg) 檔, 若執行 SavePicture pictest1.picture, "TEST2", 則 TEST1 會是一個 JPEG 圖檔 ; 若執行 SavePicture pica.image, "TEST3", 則 TEST3 會是一個點陣圖檔 13

14 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性 (cont.) App.Path 屬性語法 :App.Path 功能 : 取得目前執行中的程式的所在路徑語法說明 : 假設目前執行的程式位於 C:\VB6\aa\ 目錄, 則 App.Path 屬性值就是 " C:\VB6\aa" 字串, 所以若要使用 LoadPicture 來載入與執行程式同一目錄的 TEST.bmp 圖檔, 則可使用下列敘述加以完成 : pictest = LoadPicture(App.Path+"\TEST.bmp") 若 TEST.bmp 圖檔位於執行程式的父目錄, 則可使用 "/../" 取得上一層的路徑, 敘述如下 : pictest = LoadPicture(App.Path+"\..\TEST.bmp") 若 TEST.bmp 圖檔位於執行程式的兄弟目錄, 即 C:\VB6\bb\ 目錄, 則可使用下列敘述完成 : pictest = LoadPicture(App.Path+"\..\bb\TEST.bmp") 14

15 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性 (cont.) Try it! 在左邊圖片方塊中, 提供繪圖功能, 按下儲存檔案鈕, 會將圖片存檔, 按下開啟舊檔鈕, 則會將剛才存檔的圖片讀入右邊的圖片方塊中 15

16 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性 (cont.) 用滑鼠繪圖簡易版程式碼 : Private Sub picsource_mousedown(button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then picsource.pset (X, Y) End If End Sub Private Sub picsource_mousemove(button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then picsource.line -(X, Y) End If End Sub 16

17 LoadPicture 函數 SavePicture 敘述與 App.Path 屬性 (cont.) 17

壹前言解開 2048 的謎一研究動機最近我們都很熱衷於 2048 這款遊戲, 遊戲方法非常簡單, 但是想要達成 2048 卻很難, 每次只差臨門一腳就能達到 2048, 因此都沒有成功過於

壹前言解開 2048 的謎一研究動機最近我們都很熱衷於 2048 這款遊戲, 遊戲方法非常簡單, 但是想要達成 2048 卻很難, 每次只差臨門一腳就能達到 2048, 因此都沒有成功過於投稿類別 : 數學類篇名 : 解開 2048 的謎作者 : 陳思嘉新竹市立建功高中高二 7 班曹子涵新竹市立建功高中高二 7 班指導老師 : 詹佩珊老師壹前言解開 2048 的謎一研究動機最近我們都很熱衷於 2048 這款遊戲, 遊戲方法非常簡單, 但