【正文】 的圖形樣式，這個屬性的所有可能取值都有對應(yīng)的形狀樣式。 BorderWidth屬性設(shè)置圖形邊界寬度。 BorderColor屬性設(shè)置圖形邊界顏色。 FillColor屬性設(shè)置圖形的前景顏色。 形狀控件 Shape ２．形狀控件 Shape的特有屬性 Shape屬性：該屬性用來設(shè)置圖形的形狀，如圖 97所示， Shape 屬性的參數(shù)值如表 96所示。 0—— Transparent(透明 ) 1—— Opaque(不透明 ) FillStyle屬性：該屬性用來設(shè)置圖形填充的線形 (風(fēng)格或樣式 )。它沒有自己的特殊方法，也不產(chǎn)生任何事件。 ２．直線控件的特有屬性 x1， x2， y1， y2屬性指定起點(diǎn)和終點(diǎn)的 x坐標(biāo)及 y坐標(biāo)。 ３．說明 直線控件沒有 Left、 Top、 Width和 Height屬性，運(yùn)行時(shí)也不能用 Move方法決定直線的位置和長短。 BorderWidth屬性設(shè)置直線的粗細(xì)。有 0～ 6種類型， 1— 實(shí)線， 6—內(nèi)實(shí)線。 Pset方法 功能： PSet方法可以在窗體或圖片框的指定位置用給定的色彩畫一個“點(diǎn)”。 格式： ［對象 .］ PSet［ Step］ (x， y)［ ,顏色］ 說明： (x， y) 是欲畫點(diǎn)的坐標(biāo)，可以是整數(shù)，也可以是小數(shù)。 ［顏色］用來指定繪制點(diǎn)的顏色，數(shù)據(jù)類型為 Long。該參數(shù)還可用 QBColor()，RGB()函數(shù)指定。 例如： 在圖片框 Picture1中的 (150,100)處畫一個綠色的點(diǎn)。在繪制直線時(shí)，應(yīng)給出起點(diǎn)和終點(diǎn)坐標(biāo)。 (x2,y2) 為終點(diǎn)坐標(biāo)。 [color] 指定要畫直線的顏色。省略時(shí)用對象的 ForeColor屬性指定的顏色繪制直線。 例如， 在 (500,300)與 (3000,2500)之間繪制一條藍(lán)色的斜線。 Line (1000, 1000)(3000, 3000), vbBlue, BF Circle方法 Circle方法可用于在窗體 、 圖片框或打印機(jī)上繪制圓 、 橢圓 、弧等圖形 。 1．圓 格式： [Step](x,y),Radius[,color] (x1,y1) 指定圓心的位置。省略 Step關(guān)鍵字， (x,y)為相對于坐標(biāo)原點(diǎn)的 絕對坐標(biāo)值。 [color] 用于指定繪制圓的顏色，省略時(shí)以對象的 ForeColor屬性設(shè)置的顏色畫圓。 Circle方法 2．橢圓 繪制橢圓仍使用 Circle方法，與畫圓相比多一個縱橫比參數(shù)，當(dāng)縱橫比為 1:1時(shí)，即是圓。比值大于 1時(shí)，繪制扁形橢圓 (垂直方向大于水平方向 )；小于 1時(shí)繪制橢圓；等于 1時(shí)繪制圓。 其他幾個參數(shù)與畫圓時(shí)相同。弧可以視為由圓或橢圓的邊線中截取的一部分，而扇形還要在弧的基礎(chǔ)上，從弧的兩端再分別畫一條到圓心的直線，且它是封閉的圖形。畫弧時(shí)， start， end都用正值。 畫扇形時(shí)， start， end都取負(fù)值，也是從 start開始，逆時(shí)針繪制，到 end結(jié)束。如 0～ π /2畫一段弧，而0～ π /2僅表示畫 0～ π /2的扇形，不表示數(shù)學(xué)上的 0～ π /2即 3π /2～ 0。在窗體上創(chuàng)建為 Picture1的圖片控件。 代碼如下： Private Sub Form_Load() = 2 ’ 設(shè)置線的寬度 = 0 ’ 設(shè)置實(shí)線 End Sub Circle方法 畫圓 Private Sub Command1_Click() For i = 400 To 1500 Step 500 = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) (2500, i), i ’ 畫圓 Next i End Sub 畫橢圓 Private Sub Command2_Click() For i = 100 To 2022 Step 200 = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) (2500, i), i, , , , ’畫橢圓 Next i End Sub Circle方法 畫弧 Private Sub Command3_Click() = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) For i = 100 To 2022 Step 600 (2 * i, i), i, , / 4, ’ 畫弧 Next i End Sub 清除 Private Sub Command4_Click() End Sub 繪圖屬性與事件 要想制作出各式各樣的圖形，以及給這些圖形加上色彩和動畫等，繪圖屬性與事件起到了至關(guān)重要的角色。 下面介紹具體的操作步驟。 它們分別是：Shape1(0),Shape1(1),Shape1(2),Shape1(3),Shape1(4)，分別設(shè)置其 Backcolor顏色為藍(lán)色，黑色，紅色，橙黃色，綠色。 步驟 3： 在窗體上分別創(chuàng)建 Timer1， Timer2 ，分別設(shè)置它們的interval值為 900， 500 步驟 4 具體代碼如下： Private Sub Timer1_Timer() For i = 0 To 4 Shape1(i).Visible = False = False Next i End Sub Private Sub Timer2_Timer() For j = 0 To 4 Shape1(j).Visible = True = RGB(Rnd * 255, Rnd * 255, Rnd * 255) = True Next j End Sub 思考 1．怎樣建立用戶坐標(biāo)系？ 2．窗體的 ScaleHeight、 ScaleWidth屬性和 Height、 Width屬性有什么區(qū)別？ 3．怎樣設(shè)置 Line控件對象的線寬？當(dāng)用 Line方法畫線之后，CurrentX與 CurrentY在何處？ 4．當(dāng)用 Circle方法畫圓弧和扇形時(shí)，若起始角的絕對值大于終止角的絕對值，則圓弧角度在何范圍 第 10章 鍵盤與鼠標(biāo)事件 鼠標(biāo)事件 鍵盤事件 鼠標(biāo)事件 鼠標(biāo)事件過程可用來處理與鼠標(biāo)指針的移動和位置有關(guān)的操作。實(shí)際上，在 Visual Basic中，還可以識別按下或放開某個鼠標(biāo)按鈕而觸發(fā)的事件。 鼠標(biāo)事件過程 按下鼠標(biāo)按鈕事件過程 Private Sub Form_MouseDown(Button As Integer , Shift As Integer,_ X As Single, Y As Single) … End Sub 鼠標(biāo)事件過程 松開鼠標(biāo)按鈕事件過程 Private Sub Form_MouseUp(Button As Integer , Shift As Integer,_ X As Single, Y As Single) … End Sub 鼠標(biāo)事件過程 移動鼠標(biāo)指針事件過程 Private Sub Form_MouseMove(Button As Integer , Shift As Integer,_ X As Single, Y As Single) … End Sub 鼠標(biāo)事件過程 【 例 101】 用鼠標(biāo)在窗體上畫圖。在Windows中會經(jīng)常使用過這一操作。 拖放的一般過程是，把鼠標(biāo)指針移到一個控件對象上，按下鼠標(biāo)按鈕不要松開，然后移動鼠標(biāo)，對象將隨鼠標(biāo)的移動而在屏幕上拖動，松開鼠標(biāo)按鈕后，對象即被放下。在拖動的過程中，被拖動的對象變?yōu)榛疑? 按圖 101所示設(shè)計(jì)界面，窗體標(biāo)題設(shè)置為“拖放的演示”，各控件除表 101中指定的屬性外，均采用默認(rèn)值。但是，當(dāng)松開鼠標(biāo)按鈕時(shí)，被拖動的控件又回到原來的位置。 對象 屬性 設(shè)置 Form1 Caption 拖放的演示 Picture1 DragMode 1Automatic 拖放 在上例的基礎(chǔ)上，做少許修改。 經(jīng)過以上修改，就可以拖動控件了。按照拖放的一般要求，拖動過程中應(yīng)把控件變成圖標(biāo)，放下時(shí)再恢復(fù)為控件。 拖放 在設(shè)計(jì)階段，不要用 Picture屬性裝入圖像，而是用DragIcon屬性裝入圖像，其操作與用 Picture屬性裝入類似。不過，這樣裝入后，圖片框看上去仍是空白，只有在拖動時(shí)才能顯示出來。一般有以下三種形式： =LoadPicture(C:\WINDOWS\) = = OLE拖放 語法格式： Private Sub 對象 _OLEGiveFeedback(Effect As Long, Defaultcursors As Boolean) … End Sub 其中參數(shù)含義如下。 Defaultcursors：表示是否使用默認(rèn)的鼠標(biāo)圖標(biāo)。 鼠標(biāo)事件過程可用來處理與鼠標(biāo)指針的移動和位置有關(guān)的操作 鍵盤事件 當(dāng)用戶按下鍵盤上的某個健時(shí)，將發(fā)生 KeyPress事件。嚴(yán)格地說，當(dāng)按下某個鍵時(shí)，所觸發(fā)的是擁有輸入焦點(diǎn)（ Focus）的那個控件的 KeyPress事件。當(dāng)一個控件或窗體擁有輸入焦點(diǎn)時(shí)，該控件或窗體將接收從鍵盤上輸入的信息。 KeyPress事件 KeyPress事件 在窗體上畫一個控件（指上面所講的可以發(fā)生 KeyPress事件的控件），并雙擊該控件，進(jìn)入程序代碼窗口后，從“過程”框中選取 KeyPress，即可定義 KeyPress事件過程。第一種形式是： Index As Integer，只用于控件數(shù)組；第二種形式是： KeyAscii As Integer，用于單個控件。 KeyPress事件用來識別按鍵的 ASCII碼。例如，按下 A鍵， KeyAscii的值為 65，如按下 a鍵，則 KeyPress的值為 97，等等。假定在窗體少建立了一個文本框（ Text1）然后雙擊該文本框進(jìn)入程序代碼窗口，并從“過程”框中選擇 KeyPress，編寫如下事件過程： Private Sub Text1_KeyPress(keyascii As Integer) If Keyascii 48 Or keyascii 57 Then Beep keyascii= 0 End If … End Sub KeyPress事件 該過程用來控制輸入值，它只允許輸入 0（ ASCII碼 48）到 9（ ASCII碼 57）的阿拉伯?dāng)?shù)字。 用 KeyPress可以捕捉擊鍵動作。 KeyPress事件 在 KeyPress過程中可以修改 KeyAscii變量的值。例如： Private Sub Text1_KeyPress(KeyAscii AS Integer) If Keyascii =65 And keyascii =122 Then Keyasscii =42 End If End Sub 上述過程對輸入的字符進(jìn)行判斷，如果 ASCII碼大于等于 65（字母 A），并小于等于 122（小寫字母 z），則用星號（ ASCII碼為 42）代替。利用類似的操作，可以編寫口令程序。 KeyPress事件 【 例 103】 編寫一個口令程序，界面如圖 102所示。如果口令不正確，則要求重新輸入，三次輸入的口令都不正確，則停止輸入，并結(jié)束程序。 步驟 1 設(shè)計(jì)界面 窗體標(biāo)題設(shè)置為“鍵盤事件演示”，各控件除表 102中指定的屬性外，均采用默認(rèn)值。 Counter = 0 ElseIf Counter = 4 Then = Password = Counter = 0 MsgBox 口令不正確，請重新輸入 End If Numberoftries = Numberoftries + 1 If Numberoftries = 12 Then End End Sub KeyDown事件 KeyDown是當(dāng)一個鍵被按下時(shí)所產(chǎn)生的事件。換言之，KeyDown事件返回的是“鍵”，而 KeyPress事件返回的是“字符”的 ASCII碼。 KeyDown事件的參數(shù)有兩種形式，其中 Index As Integer只用于控件數(shù)組，而 KeyCode As Integer， Shift As Integer用于單個控件。 步驟 1 設(shè)計(jì)界面 在工程中添加一個空白窗體即可。 。 。 。 。這里的 Shift是KeyDown事件的第二個參數(shù)。例如： Private Sub Text1_KeyDown（ KeyCode As Integer， Shift As Integer） Const Alt = 4