【正文】 n = 黑體 If = True Then = 宋體 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 例 [62_12]用一組單選鈕來設(shè)置文本中字體，另一組單選鈕設(shè)置文本框中 的字體顏色。 主要屬性： Caption： 用于設(shè)置框架上的可見文字說明，若為空，則框架成為一個封閉 的矩形框； Enabled： 決定框架控件是否有效； Visible： 決定框架控件是否可見； 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 例 [62]用一組單選鈕來設(shè)置文本框的背景色，另一組單選鈕來設(shè)置文本框中文字的字體 。 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 框架 (Frame)是用來對窗體上的對象進(jìn)行分組。程序運行后，選中復(fù)選框，再點擊命令按鈕，則在窗體上顯示相應(yīng)的的信息。 解題思路 ：由于每點擊一次單選鈕，就表示單選鈕被選中；因此在單選鈕的click事件中，對文本框的背景色進(jìn)行相應(yīng)的賦值。 解題思路 ：由于一組單選鈕只能有一個被選中，因此，在單選鈕的 click事件 中直接給文本框的文字賦相應(yīng)的值即可；復(fù)選框的選中狀態(tài)是反復(fù)的，因此 需要判斷復(fù)選框的 value值，而后再給文本框的文字賦相應(yīng)的值。 設(shè)置 4個復(fù)選框，狀態(tài)如下： 北京 選中 可用 上海 未選中 可用 廣州 選中 不可用 深圳 未選中 不可用 解題思路 ： “ 選中 ” 用屬性 value的 “ checked”值表示； “ 未選中 ” 用屬性 value的 “ unchecked”值表示； “ 可用 ” 用屬性 enabled的 “ true”值表示； “ 不可用 ” 用屬性 enabled的 “ false”值表示； 選擇性控件 單選鈕、復(fù)選框和框架 主要事件： 單選鈕和復(fù)選框都能相應(yīng) Click等事件，由于鼠標(biāo)單擊即能改變其 Value屬 性值，故可根據(jù) Value屬性值決定執(zhí)行處理過程。 ⑴ 、主要屬性 ① Caption：單選鈕和復(fù)選框的文本標(biāo)題 ② Value： 屬性名 屬性值 說明 單選鈕的 Value屬性 True 被選中 False 未被選中 復(fù)選框的 Value屬性 0 未被選中 1 被選中 2 被禁止操作，呈灰色，可被選中 注意事項： 同一組單選鈕中只能有一個被選中，即只能有一個單選鈕的 Value 屬性值為 True；而對于同一組復(fù)選框，則允許多個被選中，而且其 選中狀態(tài)為反復(fù)的。畫扇形 Circle (50, 70), 20, , * pi, * pi 39。畫紅色橢圓，縱橫比 2 Circle (75, 50), 20, , * pi, * pi 39。畫標(biāo)準(zhǔn)圓 Circle (25, 50), 20, vbGreen, , , 39。 Scale (0, 0)(100, 100) 39。(40,80)(10,30) rem 畫矩形 Line (50, 30)(80, 80), vbRed, BF 圖形控件 圖形方法 畫圓方法 Circle方法用于畫圓、橢圓、圓弧和扇形； 格式： [對象名 ].Circle[Step](x， y),radius,[color]， [start]， [end][， aspect] 其中： 對象名：窗體或圖片框； Step：可選項，有該參數(shù)時表示坐標(biāo)為相對于當(dāng)前點的坐標(biāo)，否則 為絕對坐標(biāo)。(10,30)(10,80) Line (40, 80), vbGreen 39。 解題思路 ：畫三角形：前一條直線的終點就是后一條直線的起點 ,依次畫完 三條線就構(gòu)成三角形 。畫點 圖形控件 圖形方法 例 [61_6]用 Pset方法繪制以下參數(shù)方程決定的曲線 x＝ sin2t*cost 0≤t ≤2 π y=sin2t*sint 0≤t ≤2 π 解題思路 ：根據(jù)方程： x、 y的值均在－ 1～ 1之間，所以自定義坐標(biāo)系： 將窗體的坐上角的坐標(biāo)設(shè)為（ 1， 1）；右下角的坐標(biāo)為（ 1， 1）； 即： scale（ 1， 1） （ 1， 1） (0,0) (1,0) x y (1,0) 窗體 Dim t, x, y As Single Scale (1, 1)(1, 1) ForeColor = vbRed For t = 0 To 2 * Step x = Sin(2 * t) * Cos(t) y = Sin(2 * t) * Sin(t) PSet (x, y), RGB(255, 0, 0) Next 圖形控件 圖形方法 畫直線、矩形方法 Line方法可用于畫直線和矩形； 格式： [對象名 ].Line[Step(x1， y1)]－ [Step](x2， y2)[，顏色 ][， B[F]] 其中： 對象名 ：窗體或圖片框（ picturebox）； Step：可選項，有該參數(shù)時，表示坐標(biāo)為相對于當(dāng)前點的坐標(biāo)，否 則為絕對坐標(biāo)。設(shè)置隨即坐標(biāo) m_x,m_y m_y = Rnd * 100 m_red = Rnd * 255 39。 自定義坐標(biāo) DrawWidth = 8 39。 如： Pset(70,70),RGB(255,255,0) ?設(shè)置點的顏色為 RGB顏色 Pset(70,70),BackColor ?設(shè)置點的顏色為背景色 圖形控件 圖形方法 例 [61_5]窗體上隨機(jī)畫帶顏色的點，實現(xiàn)滿天星效果 。 格式： [對象名 ].Pset [step] (x,y) [,顏色 ] 其中： 對象名 ：窗體或圖片框（ picturebox）的名稱； Step：可選項，有該參數(shù)，表明所畫的點坐標(biāo) (x， y)是相對坐標(biāo) （相對于當(dāng)前坐標(biāo)點 CurrentX， CurrentY），沒有該參數(shù)， 點坐標(biāo) (x， y)為絕對坐標(biāo)。 其中： Scale Height 和 Scale Width為窗體的實際可用的高度和寬度。 解題思路 ：首先畫出 x軸 (line1)和 y軸 (line2)，根據(jù)輸入的四個值； 首先確定四個標(biāo)簽（顯示輸入值）的位置； 用輸入的四個值來代替四個形狀的高度 (Height