【正文】 使用 Pset(畫點 )、 Line(畫線 )、 Circle(畫圓 )等圖形方法，可以方便地在窗體和圖片框上繪制簡單的圖形 1. Pset(畫點 )方法 格式： [對象名 .] Pset [Step](x,y)[,顏色 ] 功能：在對象的指定位置 (x,y)上按選定的顏色畫點 參數(shù) Step指定 (x,y)是相對于當前坐標點的坐標 示例： 下列語句能在坐標位置 (500， 900)處畫一個紅點： Pset (500,900)， RGB(255,0,0) CurrentX=100 : CurrentY=100 Pset Step(400,800)， RGB(255， 0， 0) 圖形方法 格式： [對象名 .] Line [(x1,y1)](x2,y2)[,顏色 ] Line (600,600)(2022,3000) 2. Line(畫線 )方法 格式： [對象名 .] Circle [Step](x,y)，半徑 [，顏色，起點，終點，縱橫比 ] 功能： 在對象上畫圓、橢圓或圓弧 說明： (1)(x,y)是圓、橢圓或圓弧的中心坐標，“半徑”是圓、橢圓或圓弧的半徑。 2. 常用屬性 Name屬性和 Caption屬性 3. 可以響應 Click和 Dblclick 在應用程序中一般不需要編寫有關框架的事件過程 框架 (Frame) 例 控制文本的字體、字號及顏色 (1)創(chuàng)建應用程序的用戶界面和設置對象屬性 在窗體上設置 3個框架 Frame Frame2和 Frame3 (2)編寫程序代碼 功能要求： 在三個框架中分別選擇字體、字號和顏色，單擊“確定”按鈕后，文本框中的文本相應屬性會發(fā)生變化 Private Sub Form_Load() = True = True = True = 宋體 = 16 = RGB(0, 0, 255) End Sub Private Sub Command1_Click() If Then = 宋體 Else = 幼圓 End If If Then = 16 Else = 20 End If If Then = RGB(0, 0, 255) Else = RGB(255, 0, 0) End If End Sub 滾動條 為不能自動支持滾動的應用程序和控件提供滾動功能，也可 水平滾動條 (HScrollBar)和 垂直滾動條 (VScrollBar) 最小值 (Min)，最大值 (Max) ；移動滾動塊時，代表的值隨之改變 2. 常用屬性 (1)Min、 Max屬性： Min屬性的默認值為 0， Max屬性的默認值為 32767 (2)Value屬性：設置滾動塊在滾動條中的位置值 (3)SmallChange最小變動值屬性 (4)LargeChange最大變動值屬性 3. 事件 滾動條控件可以識別 10個事件，其中最常用的是 Scroll和Change (1)Scroll事件：當用鼠標拖動滾動塊時，即觸發(fā) Scroll事件 (2)Change事件：當改變 Value屬性值時，即觸發(fā) Change事件 當釋放滾動塊、單擊滾動條內(nèi)空白處或滾動箭頭時，Change事件就會發(fā)生。 由于加入 DoEvents函數(shù)，則可以在執(zhí)行閑置循環(huán)過程中執(zhí)行其他操作，如重設窗體的大小及最大化 /最小化，還能響應命令按鈕 Command1和 Command2的單擊事件等。把控制權交給系統(tǒng)去處理所發(fā)生的事件 39。將文本放到 Printer對象中 ?打印結束 End Sub 打印機輸出 2. 窗體輸出 先把要輸出的信息送到窗體上，再用 PrintForm方法把窗體上的內(nèi)容打印出來 格式： [窗體名 .]PrintForm 功能：把窗體上的信息輸出到打印機 VB只有在發(fā)生事件時才執(zhí)行相應的事件過程，如果沒有事件發(fā)生，則應用程序處于“閑置”狀態(tài) 所謂閑置循環(huán)，就是當程序處于閑置狀態(tài)時，用一個循環(huán)來執(zhí)行某些操作 為使在閑置循環(huán)中也能響應其他操作和事件， VB提供了一個 DoEvents [窗體號 =]DoEvents[()] 功能：在閑置循環(huán)中，通過 DoEvents語句可以把控制權交給系統(tǒng)去處理所發(fā)生的事件 閑置循環(huán)與 DoEvents語句 (1) 建立一個文本框和二個命令按鈕，兩個事件過程： Private Sub Command1_Click() = + 1 End Sub Private Sub Command2_Click() End End Sub (2) 編寫 Sub Main過程 Private Sub MAIN() Do While True 39。 例如 On K GoTo Line1, Line2, Line3 執(zhí)行過程： 將 K四舍五入取整，如果其值為 1，則轉(zhuǎn)移到 Line1標號行；如果為 2，則轉(zhuǎn)移到 Line2標號行；如果為 3，則轉(zhuǎn)移到Line3標號行。輸入 0～ 6 If myday Sun Or myday Sat Then MsgBox 輸入的星期數(shù)錯誤 Else If myday = Sun Or myday = Sat Then MsgBox 休息日 Else MsgBox 工作日 End If End If End Sub 包括 GoTo語句和 On...GoTo語句 1. GoTo語句 語法格式： GoTo {行號 |標號 } 功能：改變程序的執(zhí)行順序，跳轉(zhuǎn)到程序中指定的行開始執(zhí)行 例 應用 GoTo語句示例 Private Sub Form_Load() Show Print 整型數(shù) GoTo Line1 39。定義 Weekdays為枚舉類型 Sun Mon Tue Wed Thu Fri Sat End Enum 例 應用枚舉類型示例 Private Sub Command1_Click() Dim myday As weekdays 39。 本章主要內(nèi)容 其他一些常用語句 框架 (Frame) 滾動條 (ScrollBar) 鍵盤與鼠標事件 通用對話框 (CommonDialog) 文件系統(tǒng)控件 第 10章 其他常用的語句及控件 強制顯式聲明變量語句 (Option Explicit) 避免因為寫錯變量名而導致錯誤 例如， 交換變量 a、 b的值 Temp=a a=b b=Tmp 39。把 Temp寫錯成 Tmp 運行結果是使 b的值為 0 Option Explicit ‘模塊級聲明 Dim a As Integer,b As Integer,Temp As Integer . . . Temp=a a=b b=Tmp 運行時 VB就會發(fā)出警告 “ Variable not defined”(變量未定義 )，只有把 Tmp改為 Temp后才恢復正常 其他常用語句 格式： Def類型標志 字母范圍 功能：在模塊級聲明段中定義變量 (相應數(shù)據(jù)類型 ) 示例： DefInt mP 自定義數(shù)據(jù)類型 用戶可以利用 Type [Private|Public] Type 元素名 1 As 類型名 1 [元素名 2 As 類型名 2] …… End Type 定義變量類型