【文章內(nèi)容簡介】 橢圓， Aspect1，表示在 y軸方向畫橢圓，默認為 1； 圖形控件 圖形方法 畫圓方法 例 [61_8]用 Circle方法畫圓。 Scale (0, 0)(100, 100) 39。自定義坐標系 Const pi = Circle (25, 50), 20 39。畫標準圓 Circle (25, 50), 20, vbGreen, , , 39。畫綠色橢圓，縱橫比 Circle (25, 50), 20, vbRed, , , 2 39。畫紅色橢圓，縱橫比 2 Circle (75, 50), 20, , * pi, * pi 39。畫扇形 Circle (75, 50), 20, , * pi, * pi 39。畫扇形 Circle (50, 70), 20, , * pi, * pi 39。畫扇形 選擇性控件 單選鈕、復(fù)選框 和框架 單選鈕和復(fù)選框 單選鈕 (OptionButton)和復(fù)選框 (CheckBox)常用來表示 “ 選中 ” 或 “ 不選 ”兩 種狀態(tài)，單選鈕用 ” ● ”表示被選中，復(fù)選框用 “ √ ” 表示被選中。 ⑴ 、主要屬性 ① Caption：單選鈕和復(fù)選框的文本標題 ② Value： 屬性名 屬性值 說明 單選鈕的 Value屬性 True 被選中 False 未被選中 復(fù)選框的 Value屬性 0 未被選中 1 被選中 2 被禁止操作，呈灰色，可被選中 注意事項： 同一組單選鈕中只能有一個被選中，即只能有一個單選鈕的 Value 屬性值為 True；而對于同一組復(fù)選框，則允許多個被選中，而且其 選中狀態(tài)為反復(fù)的。 選擇性控件 單選鈕、復(fù)選框和框架 例 [6_9]用復(fù)選框?qū)傩栽O(shè)置示例。 設(shè)置 4個復(fù)選框，狀態(tài)如下： 北京 選中 可用 上海 未選中 可用 廣州 選中 不可用 深圳 未選中 不可用 解題思路 ： “ 選中 ” 用屬性 value的 “ checked”值表示； “ 未選中 ” 用屬性 value的 “ unchecked”值表示； “ 可用 ” 用屬性 enabled的 “ true”值表示； “ 不可用 ” 用屬性 enabled的 “ false”值表示； 選擇性控件 單選鈕、復(fù)選框和框架 主要事件： 單選鈕和復(fù)選框都能相應(yīng) Click等事件，由于鼠標單擊即能改變其 Value屬 性值，故可根據(jù) Value屬性值決定執(zhí)行處理過程。 例 [6_10]用單選鈕和復(fù)選框設(shè)置文字的字體字形 。 解題思路 ：由于一組單選鈕只能有一個被選中，因此，在單選鈕的 click事件 中直接給文本框的文字賦相應(yīng)的值即可；復(fù)選框的選中狀態(tài)是反復(fù)的，因此 需要判斷復(fù)選框的 value值，而后再給文本框的文字賦相應(yīng)的值。 選擇性控件 單選鈕、復(fù)選框和框架 例 [61] 用單選鈕來設(shè)置文本框的背景顏色，即改變文本框的 BackColor。 解題思路 ：由于每點擊一次單選鈕，就表示單選鈕被選中；因此在單選鈕的click事件中，對文本框的背景色進行相應(yīng)的賦值。 ‘設(shè)置文本框背景色為紅色 = vbRed ‘設(shè)置文本框背景色為綠色 = vbGreen ‘設(shè)置文本框背景色為藍色 = vbBlue 選擇性控件 單選鈕、復(fù)選框和框架 例 [611] 在窗體上放置三個復(fù)選框，標題依次為 “ 旅游 ” 、 “ 體育 ” 、 “ 音樂 ” ，另有一個命令按鈕，標題為 “ 興趣 ” 。程序運行后，選中復(fù)選框，再點擊命令按鈕，則在窗體上顯示相應(yīng)的的信息。 解題思路 ：由于每點擊一次單選鈕，就表示單選鈕被選中；因此在單選鈕的click事件中，依次判斷各個單選鈕是否被選中，若選中，則將命令按鈕的標題和復(fù)選框的標題連接起來，最后將該字符串顯示出來 。 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 框架 (Frame)是用來對窗體上的對象進行分組。 比如有兩組不同類別的單選鈕，若不用框架分組，則這些單選鈕只能有一個的 Value屬性值為 True，用框架分組后，則每組單選鈕均可有一個 Value屬性值為 True。 主要屬性： Caption： 用于設(shè)置框架上的可見文字說明，若為空，則框架成為一個封閉 的矩形框； Enabled： 決定框架控件是否有效； Visible： 決定框架控件是否可見； 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 例 [62]用一組單選鈕來設(shè)置文本框的背景色，另一組單選鈕來設(shè)置文本框中文字的字體 。 解題思路 ：設(shè)置兩個框架 (Frame)，將兩組單選鈕各放其中，然后，編寫每個單選鈕的 click事件。 If = True Then = vbRed If = True Then = vbGreen If = True Then = vbBlue If = True Then = 楷體 _gb2312 If = True Then = 黑體 If = True Then = 宋體 選擇性控件 單選鈕、復(fù)選框和框架 框架 (Frame) 例 [62_12]用一組單選鈕來設(shè)置文本中字體，另一組單選鈕設(shè)置文本框中 的字體顏色。 解題思路 ：設(shè)置兩個框架 (Frame)，將兩組單選鈕各放其中，將具體的程序?qū)懭朊畎粹o的 click事件中。 Rem 字體為宋體，字體顏色為紅色 If = True And = True Then = 您選擇了宋體紅色 = 宋體 = vbRed End If … 選擇性控件 列表框和組合框 列表框 (ListBox) 列表框用于顯示一個項目列表，用戶可以選擇其中的一項或多項。 若列表框中的內(nèi)容超過可顯示的數(shù)目，則自動增加滾動條； 用戶只能從列表框中選擇內(nèi)容，而不能直接寫入和修改其中的內(nèi)容； 列表框 選擇性控件 列表框和組合框 列表框 (ListBox) ⑴ 主要屬性： 屬性名 屬性值 說明 Column 0(默認 ) 默認列表框只有一列 0 多列顯示 List 字符串?dāng)?shù)組 數(shù)組的每個元素存放一個項目的內(nèi)容 ,List(0),List(1)… ListCount 整型數(shù)據(jù) 返回列表框中的項目的數(shù)目 ListIndex 整型數(shù)據(jù) 返回當(dāng)前被選中的項目序號，即 List數(shù)組下標，無項目被選中 ,屬性值為－ 1 MultiSelect 0( 默認 ) 列表框只能單選，不允許多選 1 可以多選，后續(xù)的選擇不影響前面的選擇 2 擴展多選，可以選擇一組連續(xù)的項目，也可以選擇一組不連續(xù)的 Selected 邏輯型數(shù)組 Selected(0),Selected(1).若為 True，則對應(yīng)的項目被選中，否則未被選中 Sorted 邏輯型數(shù)值 True表示按字母數(shù)字升序排列，否則按實際先后排序 Style 數(shù)