Page 21 - eFC10810_程式語言與設計(下)_課本PDF

表單設計

5

重複結構

解碼動態
6
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
陣列
用 CreateGraphics() 方法建立
Dim i, y As Integer, s As String
Graphics 物件，將表單轉換成
Dim g As Graphics = Me.CreateGraphics() 畫布，可在表單上繪圖

Dim p As New Pen(Color.Red, 3) 建立畫筆 Pen( 色彩，寬度 )

s = " 中華隊加油！ " & vbNewLine
Label1.Text = "" 色彩設定方式：

Label1.ForeColor = Color.Red 1. 常用色彩名稱：Color.Red、Color.
顯示 4 次加油字串
Green、Color.Blue…
For i = 1 To 4 7
2. RGB 三原色：Color.FromArgb(R,G,B)， 函式
Label1.Text += s RGB 值為 0~255 與副程式
3. QBColor ： ColorT ranslator .
Next
顯示 5 種不同寬度及顏色的線條
FromOle(QBColor( 色彩值 ))，色彩
For y = 1 To 15 Step 3
設定顏色 值為 0~15
p.Color = ColorTranslator.FromOle(QBColor(y))
設定寬度
p.Width = y

g.DrawLine (p, 0, y * 10, 300, y * 10)

Next y 8
DrawLine(Pen,X1,y1,x2,y2)，
綜合應用
End Sub 用 Pen 畫筆 繪製一 條座標
(x1,y1) 到 (x2,y2) 的直線

11

'$ $) JOEE