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

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

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

3、(ch03練習(xí)7a.vbp)如何在對象上作圖1）用pset方法畫點格式：對象名.pset (x,y) ,顏色其中顏色可以用RGB函數(shù)指定或符號常量(vbred vbgreen vbblue）rgb(red,green,blue)其中：red,green,blue取值0255的整數(shù)。點的大小由對象的drawWidth屬性決定。功能：返回一個顏色值。例：在窗體中隨機(jī)地顯示若干彩色的點。窗體上有兩個命令按鈕：“畫點”和“退出”。單擊“畫點”按鈕，則在窗體上隨機(jī)畫上若干點。單擊“退出”按鈕，結(jié)束程序的運行。(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è)計一個窗體使用鼠標(biāo)在其上任意繪制圖形。（ch03ex8.vbp)Dim mouse As Boolean mouse變量用來標(biāo)志畫圖的開始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方法對象.line step(x1,y1) - step(x2,y2),顏色,BF功能：用來畫直線和矩形框等。Step:設(shè)置坐標(biāo)值是絕對坐標(biāo)還是相對坐標(biāo)。(有step 是相對坐標(biāo)）缺省step(x1,y1)時：從上一次畫圖點到當(dāng)前點畫直線。選擇B：利用對角坐標(biāo)畫出矩形。選擇F：矩形以矩形邊框填充。直線的寬度由對象的drawWidth指定，直線的樣式由對象的drawStyle屬性指定。（P145）3）circle方法對象.circle step(x,y),r,c,sang,eang,mod(x

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

8、ex10.vbp)例： 1）在picture1（300，300）上畫一點，(ch03畫圖方法.vbp) 2）在picture1上畫從（600，600）（1000，1000）兩點直 線，顏色紅色。 3）在picture1上畫以點（1200，1000）到點（2000，2500） 對角點矩形，顏色為綠色。 4）在picture1上畫以（1500，600）為園心半徑200，顏色為 藍(lán)色的園。 5）在picture1上畫園弧，以（4500，600）為園弧園心，半徑 400，起始角900，終止角2700。 6）在picture1上畫橢圓，橢園園心為（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