第3-4講用戶界面設(shè)計1

第7章用戶界面設(shè)計7.1單選鈕和檢查框—屬性、事件OptionButton—成組出現(xiàn)時，最多只能選擇一項。CheckBox—根據(jù)需要選定其中的一項或多項。7.2框架(Frame)—屬性7.3滾動條(HScrollBar,VScrollBar)

—屬性、事件?如何輸入數(shù)據(jù)并使?jié)L動條內(nèi)滑塊相應(yīng)移動。？如何使?jié)L動條滑塊在最下端和最右端代表最小值，

而在最上端和最左端代表最大值。?如何控制點擊滾動條箭頭和空白處使滑塊移動增量。7.4列表框(ListBox)—屬性、方法只能在程序中設(shè)置或引用的屬性ListIndex

其值為執(zhí)行時選中的列表項序號。ListCount

表示列表框中項目的數(shù)量，從0開始算。Selected

是一個邏輯數(shù)組，元素對應(yīng)列表框中相應(yīng)的項，True表示選中。Text

表示被選中列表項的文本內(nèi)容。方法1：對象.AddItemitem[,index]‘item必須是字符串表達(dá)式方法2：對象.RemoveItemindex‘

刪除index對應(yīng)的項目方法3：對象.Clear‘清除列表框中所有內(nèi)容？

如何在選中下一個學(xué)生還未按顯示藉貫鈕時不顯示上一人藉貫？如何在點中學(xué)生姓名后直接顯示其藉貫？如何設(shè)置滾動條方向及列數(shù)？如何設(shè)置復(fù)選框風(fēng)格？如何在運行時修改原項目(學(xué)生姓名)？注意Array函數(shù)只能用于Variant數(shù)組賦值7.5組合框(ComboBox)組合框有三種不同的風(fēng)格：*

下拉式組合框

(屬性Style=0）*

簡單組合框（屬性Style=1）*

下拉式列表框

(屬性Style=2）如何利用控件數(shù)組表示三種組合框的風(fēng)格?

如何使簡單組合框列出列表框?

如何表示被選中的項?

如何增加列表框中沒有的項?7.6驅(qū)動器列表框、目錄列表框和文件列表框DriveListBox

DirectoryListBox

FileListBoxPrivateSubDrive1_Change()

Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()

File1.Path=Dir1.PathText2=Dir1.PathEndSubPrivateSubFile1_Click()

Text1=File1.FileNameEndSub7.7通用對話框（CommonDialog）通用對話框可以在窗體上創(chuàng)建六種標(biāo)準(zhǔn)對話框：打開（Open）、另存為（SaveAs）、顏色（Color）、字體（Font）、打印機（Printer）和幫助（Help）添加非標(biāo)準(zhǔn)控件——通用對話框的方法選

“工程”

“部件”

“MicrosoftCommDialogControl6.0”

“確定”Action功能屬性0—None：無對話框顯示1—Open：打開文件對話框2—SaveAs:另存為對話框3—Color：顏色對話框4—Font：字體對話框5—Printer：打印機對話框6—Help：

幫助對話框通用對話框的方法ShowOpen：打開文件對話框ShowSave:另存為對話框ShowColor：顏色對話框ShowFont：字體對話框ShowPrinter：打印機對話框ShowHelp：

幫助對話框?qū)ο?/p>

.Action=1表示打開文件對話框?qū)ο?ShowOpen表示打開文件對話框注意對話框有Flags屬性，而字體對話框必須要設(shè)置此屬性！上機作業(yè)題：按如下圖示設(shè)計部分課程成績統(tǒng)計與RGB三色調(diào)色板。7.8菜單設(shè)計7.8.1菜單的設(shè)計方法：

“工具”

“菜單編輯器”逐一填寫菜單項7.8.2彈出菜單方法：[對象.]PopupMenu

菜單名，標(biāo)志，x,y標(biāo)志為2時，表示鼠標(biāo)左右鍵都有響應(yīng)7.9多重窗體語句：Load

窗體名稱

Unload

窗體名稱Load

把窗體裝入內(nèi)存，可引用窗體中的控件及各種屬性，但此時窗體并沒顯示出來。Unload

從內(nèi)存中刪除指定的窗體。方法：

[窗體名稱].Show[窗體名稱].HideShow

兼有裝入和顯示窗體兩功能。Hide

將窗體暫時隱轉(zhuǎn)藏起來，但并

非從內(nèi)存中刪除。7.10鼠標(biāo)/鍵盤的事件*

鼠標(biāo)器事件SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)*鍵盤事件

KeyPress,KeyUp,KeyDown

事件Button—1表示左鍵按下或釋放，2表示右鍵按下或釋放，3表示中鍵按下或釋放。Shift——1表示Shift鍵按下，2表示Ctrl鍵按下,4表示Alt鍵按下。X,Y——對應(yīng)鼠標(biāo)當(dāng)前位置。7.11對象拖放與OLE拖放1.拖放方式屬性DragMode設(shè)置為1（自動）或2（手動）2.拖動圖標(biāo)屬性可在設(shè)計時設(shè)置，也可在程序中使用如下形式設(shè)置： 控件名．DragIcon=圖象（或圖形）控件．Picture

控件名．DragIcon=LoadPicture(“C:\Icons\Mail.ico”)3.拖放事件

SubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

Source.MoveX,Y EndSub用鼠標(biāo)器將對象從一個地方拖放到另一個地方再放下。*對象拖放*

OLE拖放將數(shù)據(jù)從一個控件或應(yīng)用程序中移動到另一個控件或應(yīng)用程序。OLEDragMode屬性—決定是自動還是手動實現(xiàn)“拖”操作OLEDropMode屬性—決定是自動還是手動實現(xiàn)“放”操作注：并不是所有的控件都有此二屬性，有的只有其一。