VB基本語(yǔ)法講座及相關(guān)函數(shù)介紹之

1、鍵盤(pán)類(lèi)事件 事件 發(fā)生時(shí)機(jī) keypress 用戶(hù)按下鍵盤(pán)并且放開(kāi)時(shí) keydown 用戶(hù)按下鍵盤(pán)時(shí) keyup 用戶(hù)放開(kāi)按鍵時(shí)例：（ch03/ex12.vbp)P85鼠標(biāo)類(lèi)事件 事件 發(fā)生時(shí)機(jī)click 用戶(hù)在對(duì)象上按下鼠標(biāo)左鍵并且放開(kāi)時(shí)dblclick 用戶(hù)在對(duì)象上面雙擊鼠標(biāo)時(shí)mousedown 用戶(hù)在對(duì)象上面按下鼠標(biāo)左鍵時(shí)mouseup 用戶(hù)在對(duì)象上面放開(kāi)鼠標(biāo)左鍵時(shí)mousemove 用戶(hù)在對(duì)象上面移動(dòng)鼠標(biāo)時(shí)mouseup和click事件有何區(qū)別1）如果用戶(hù)在對(duì)象上按下鼠標(biāo)左鍵，而鼠標(biāo)仍然在對(duì)象上時(shí)放開(kāi)鼠標(biāo)，會(huì)先發(fā)生mouseup事件再發(fā)生click事件。2）若用戶(hù)在對(duì)象上按下鼠標(biāo)左鍵，

2、然后將鼠標(biāo)移到對(duì)象之外再放開(kāi)鼠標(biāo)：只發(fā)生mouseup事件。3）若用戶(hù)在對(duì)象之外按下鼠標(biāo)左鍵，然后將鼠標(biāo)移到對(duì)象上再入開(kāi)鼠標(biāo)：只發(fā)生mouseup事件。Mouseup與click選擇在windows操作的慣例中，所謂“用鼠標(biāo)單擊”指的是“按下鼠標(biāo)左鍵，不要移開(kāi)鼠標(biāo)并放開(kāi)鼠標(biāo)左鍵”（也就是click意思）。因此，如果程序想要針對(duì)用戶(hù)“用鼠標(biāo)單擊”做反應(yīng)，就應(yīng)該 將程序編寫(xiě)在click事件程序中。至于mouseup事件通常與mousedown配對(duì)使用。例：寫(xiě)一個(gè)可供用戶(hù)畫(huà)線的程序，當(dāng)用戶(hù)按下鼠標(biāo)左鍵時(shí)，決定線段的第一點(diǎn)，然后用戶(hù)會(huì)移動(dòng)鼠標(biāo)，當(dāng)放開(kāi)鼠標(biāo)左鍵時(shí)，就由第一點(diǎn)畫(huà)一條線到鼠標(biāo)指針?biāo)诘奈恢谩?/p>

3、(ch03練習(xí)7a.vbp)如何在對(duì)象上作圖1）用pset方法畫(huà)點(diǎn)格式：對(duì)象名.pset (x,y) ,顏色其中顏色可以用RGB函數(shù)指定或符號(hào)常量(vbred vbgreen vbblue）rgb(red,green,blue)其中：red,green,blue取值0255的整數(shù)。點(diǎn)的大小由對(duì)象的drawWidth屬性決定。功能：返回一個(gè)顏色值。例：在窗體中隨機(jī)地顯示若干彩色的點(diǎn)。窗體上有兩個(gè)命令按鈕：“畫(huà)點(diǎn)”和“退出”。單擊“畫(huà)點(diǎn)”按鈕，則在窗體上隨機(jī)畫(huà)上若干點(diǎn)。單擊“退出”按鈕，結(jié)束程序的運(yùn)行。(ch03練習(xí)13.vbp)Private Sub Command1_Click()For i

4、= 1 To 3000 x = Rnd * Width y = Rnd * Height r = Int(256 * Rnd) g = Int(256 * Rnd) b = Int(256 * Rnd) PSet (x, y), RGB(r, g, b)Next iEnd Sub例：設(shè)計(jì)一個(gè)窗體使用鼠標(biāo)在其上任意繪制圖形。（ch03ex8.vbp)Dim mouse As Boolean mouse變量用來(lái)標(biāo)志畫(huà)圖的開(kāi)始Private Sub Form_Load()mouse = FalseMe.ForeColor = vbRedMe.DrawWidth = 2End SubPrivate S

5、ub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)mouse = TruePSet (X, Y) End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If mouse Then PSet (X, Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer,

6、X As Single, Y As Single)mouse = FalseEnd Sub 2）line方法對(duì)象.line step(x1,y1) - step(x2,y2),顏色,BF功能：用來(lái)畫(huà)直線和矩形框等。Step:設(shè)置坐標(biāo)值是絕對(duì)坐標(biāo)還是相對(duì)坐標(biāo)。(有step 是相對(duì)坐標(biāo)）缺省step(x1,y1)時(shí)：從上一次畫(huà)圖點(diǎn)到當(dāng)前點(diǎn)畫(huà)直線。選擇B：利用對(duì)角坐標(biāo)畫(huà)出矩形。選擇F：矩形以矩形邊框填充。直線的寬度由對(duì)象的drawWidth指定，直線的樣式由對(duì)象的drawStyle屬性指定。（P145）3）circle方法對(duì)象.circle step(x,y),r,c,sang,eang,mod(x

7、,y) 園、園弧或者橢圓的園心坐標(biāo)。r 園、園弧的半徑。 c 設(shè)置繪圖顏色。 sang 在畫(huà)園弧時(shí)設(shè)置園弧或橢圓弧的起始角度（0-2）。 eand 在畫(huà)園弧時(shí)設(shè)置園弧或橢圓弧的終止角度（0-2） 。Mod 在畫(huà)橢圓時(shí)設(shè)置橢圓的縱橫比值（大于1則橢圓細(xì)而高） 園的樣式：由對(duì)象的fillStyle屬性決定。P150。線的寬度由對(duì)象的drawWidth指定，線的樣式由對(duì)象的drawStyle屬性指定。畫(huà)扇形：則起始角及終止角都是取負(fù)值。（ch03ex10.vbp)例：設(shè)計(jì)一個(gè)窗體，單擊繪圖按鈕時(shí)，在窗體繪制如下圖形：（ch03ex9.vbp)例：設(shè)計(jì)一個(gè)窗體，在上面繪制如下圖所示的弧和扇形（ch03

8、ex10.vbp)例： 1）在picture1（300，300）上畫(huà)一點(diǎn)，(ch03畫(huà)圖方法.vbp) 2）在picture1上畫(huà)從（600，600）（1000，1000）兩點(diǎn)直 線，顏色紅色。 3）在picture1上畫(huà)以點(diǎn)（1200，1000）到點(diǎn)（2000，2500） 對(duì)角點(diǎn)矩形，顏色為綠色。 4）在picture1上畫(huà)以（1500，600）為園心半徑200，顏色為 藍(lán)色的園。 5）在picture1上畫(huà)園弧，以（4500，600）為園弧園心，半徑 400，起始角900，終止角2700。 6）在picture1上畫(huà)橢圓，橢園園心為（3500，1500），半徑 為500，橢園橫軸與縱軸比率0.5，線條顏色為黃色。 回到上一例(ch03練習(xí)7a.vbp)dim x0,y0 as integerprivate sub form_mousedown(button as integer,shift as integer, x as single, y as single)x0=xy0=ym