【正文】 ? 事件可以由用戶操作觸發(fā) ,也可以由系統(tǒng)自動觸發(fā) (例如 ,出錯 ).當(dāng)事件發(fā)生之后 ,需要觸發(fā)一些操作 ,這就需要 用戶編寫相應(yīng)的代碼對此進行響應(yīng)。 .1 26 ? 事件驅(qū)動程序設(shè)計方法。 .1 對象、事件和事件過程之間的關(guān)系如下圖。對象創(chuàng)建時，系統(tǒng)自動給它默認(rèn)名，如 form textbox1等，但用戶可修改。 （可以用 left和 top表示） 例如： =new point(88,48) 注： New表示創(chuàng)建一個新的 point類的對象。 （可以用 width和 height表示） 例如： =new Size(80,32) 等價于： =80 =32 窗體和常用控件 80 32 Point, size, color都是結(jié)構(gòu) 30 (5) font(字體 )： 設(shè)置對象顯示文字的字體。 =new Cursor(“光標(biāo)文件名 ” ) 窗體和常用控件 31 (8) Enabled:設(shè)置對象是否可操作 true或 false。 (10) TabIndex:決定程序運行時，按 Tab鍵，焦點在控件移動的順序。 1. 主要屬性： ? ControlBox(窗體控制框 true或 false)、 ? BackgroundImage(背景圖片 ) 窗體 ? WindowsState：設(shè)置程序運行時 , 窗體是正 常 (Normal)、最大化、最小化 ? MaximizeBox(最大化按鈕要否？默認(rèn) true) ? MinimizeBox (最小化按鈕要否？默認(rèn) true) 33 2. 常用事件： ? Load事件 :當(dāng)窗體被裝入工作區(qū)時觸發(fā)。 ? Click(單擊鼠標(biāo)事件 )、 ? DblClick(雙擊鼠標(biāo)事件 )、 ? Activated(窗口被激活時觸發(fā) ) 窗體和常用控件 34 例 ： 見 P172。去掉背景圖片 End Sub 36 Private Sub form1_Click(…) … = 單擊窗體 = _ (“) = _ End Sub 窗體和常用控件 37 Private Sub form1_DoubleClick(…) … = “雙擊窗體” = _ = New Size(264, 256) = (“) End Sub 窗體和常用控件 38 3. 常用方法 Show(顯示 )、 Hide(隱藏 )、 ShowDialog (以對話框模式顯示窗體，即控制用戶只能對該窗體操作，對窗體之外的東西無法操作，直到用戶關(guān)閉該窗體 )。在多重窗體中，每個窗體可以有自己的界面和程序代碼，完成各自的功能。 40 ? 添加窗體 選擇“項目 /添加 Windows窗體”命令 .在對話框中選擇“ Windows窗體”即可 . ? 啟動窗體的設(shè)置 系統(tǒng)默認(rèn) form1為程序運行時的啟動窗體，可以修改設(shè)置，將其他窗體（如 form2）設(shè)置為啟動窗體。在其中定義公共變量： Public x as Imteger 窗體和常用控件 例 (P175)： 多重窗體應(yīng)用示例。 1. label（標(biāo)簽控件） (1) 主要屬性 Name、 text、 location、 forecolor、 size 、 backcolor 、 visible 、 Font(字體 )、 BorderStyle(邊框風(fēng)格 ) 、 常用控件 46 (2) 主要事件 Click、 DoubleClick、 Change（ 改變 ） Contextmenu(快捷菜單 ), TextAlign(文字在標(biāo)簽中的對齊方式 )、 image(背景圖片 )、 AutoSize(自動大小 ) 常用控件 47 ? 文本框是一個文本編輯框 ， 用戶可以在該框中輸入 、 編輯 、 修改和顯示文本內(nèi)容 。 LostFocus：當(dāng)文本框失去焦點時觸發(fā) . Gotfocus: 當(dāng)文本框得到焦點時觸發(fā) . (3) 主要方法 Focus: 將光標(biāo)移到文本框上 . 例如 : () 常用控件 50 窗體和常用控件 例如 : Sub textbox1_keypress(… ,ByVal e … )… If asc()=13 then … endif End Sub 或 If =chr(13) then …. 51 3. Button（命令按鈕） (1) 主要屬性 Name、 text、 location、 forecolor、 size 、 backcolor 、 visible 、 Font(字體 )、 Enabled、 BorderStyle(邊框風(fēng)格 )、 TextAlign image(圖片 , 建圖形按鈕時用 )、 常用控件 52 例 按鈕應(yīng)用。 = New Font(隸書 , 16, ) 窗體和常用控件 演示 收集 3個圖片，存放在項目的bin文件夾下。 見下頁圖所示 。 (2) 主要事件 Click、 CheckedChanged(對象值改變時觸發(fā) ) 常用控件 56 Panel(面板 )與 GroupBox(分組框 ) 都是用于將相同性質(zhì)的對象歸類 。 ?分組框的主要屬性 ： text, BackgroundImage , font ?面板的主要屬性 : BorderStyle , BackColor, BackgroundImage 常用控件 57 5. 列表框和組合框 ? 列表框 (ListBox)：在框中提供若干選項供用戶選擇。 ? 組合框 (ComboBox)：由文本框和下拉列表框組合而成。 常用控件 列表框 組合框 58 (1) 主要屬性 Items: 集合。 SelectedIndex: 整型。第 1項的序號為 0。被選定的項的內(nèi)容。 : 整型。 Sorted:邏輯。 當(dāng) = ComboBoxStyle. DropDownList時 組合框只能通過選擇得到文本。 ? 組合框?qū)Ｓ袑傩裕? 常用控件 60 當(dāng) = ComboBoxStyle. Simple時 組合框即可輸入也可選擇得到文本。下拉列表將不折起。 常用控件 Simple 61 (2) 常用方法 : 把一個選項加入到列表框或組合框。 (“puter”) (Index):刪除列表框或組合框中指定位置上的選項。 常用控件 62 (3) 常用事件 Click、 DoubleClick、 SelectedIndexChanged(SelectedIndex屬性值改變后觸發(fā) ) 例 列表框控件程序 。 常用控件 63 6. 滾動條和進度條 ? 滾動條 (ScrollBar)：通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可用來作為數(shù)據(jù)的輸入工具。 ? 進度條 (ProgressBar)：通常指示事務(wù)處理的進度。 Minimun、 Maximun :滾動條可以調(diào)整的最小值和最大值。(相當(dāng)于步長 ) LargeChange:按下中間快卷區(qū)域時的移動量。 例 —滾 動條程序 。 Minimun=0, maximun=255, largechange=10, SmallChange=1 . 見下圖。 ? Interval: 兩次觸發(fā) tick事件的時間間隔。即 1000為 1秒。 常用控件 68 例 ：用定時器控制蝴蝶在窗體內(nèi)飛舞。設(shè)計時，只有 PictureBox1的 visible=true。 窗體和常用控件 69 窗體和常用控件 事先收集 2個不同蝴蝶圖片，存放在項目的 bin文件夾下。 常用控件 71 (1) 主要屬性： ? Value: 對象的當(dāng)前值。 Long(2022年 2月 25日 ) \ short(2022/2/25) \ time(僅顯示時間 ) \ custom(用戶所給格式 ) ? ShowUpDown：控制顯示的樣式 Flase/true Flase True 常用控件 72 例 程序界面如圖所示。 控件除了做 TextBox 控件所做的每件事外 ， 還可以顯示字體 、 顏色和鏈接 ， 從文件加載文本和加載嵌入的圖像 ， 以及查找指定的字符 (find方法 )。 常用控件 9. RichTextBox控件 74 RichTextBox沒有 PasswordChar屬性 ， 但比 TextBox功能強大 ， 主要有： (1) 文本的長度沒有 64k限制； (2) 可對選中的文本設(shè)置格式 ， 如 SelectionBackColor、 SelectionColor、 SelectionFont等 (3) 可方便用 LoadFile和 SaveFile直接讀寫文件 。 76 常用控件 If () = Then (, ) End If If () = Then (, ) End If 路徑和文件名 77 １ . 菜單設(shè)計 ? 有２種形式的菜單： MainMenu（主菜單）和ContextMenu（彈出式菜單，或稱快捷菜單）。 見下圖。 ? Text：菜單顯示的文本。 ? ShortCut：快捷鍵。 (3) 菜單項事件 : 主要是 Click事件 80 菜單和對話框 (4) 彈出菜單 設(shè)計方法類似 Mainmenu。當(dāng)鼠標(biāo)移到對象上，按鼠標(biāo)右鍵打開此菜單。 (1) InputBox輸入函數(shù) ： InputBox(提示 [,標(biāo)題 ][,默認(rèn)值 ][,Xpos][,Ypos] ) 函數(shù)返回用戶輸入的值，函數(shù)值類型是字符串。函數(shù)返回值是一個整數(shù)，不同整數(shù)代表用戶按了不同按鈕。 格式： MsgBox(“提示”，按鈕，“標(biāo)題” ) (“提示” , “標(biāo)題” , 按鈕 ) 菜單和對話框 85 MsgBox(“提示”，按鈕，“標(biāo)題” ) 例 ： MsgBox(“真的要刪除嗎 ?”, + , “信息提示” ) 或 MsgBox(“真的要刪除嗎 ?”, 4+32 , “信息提示” ) 菜單和對話框 86 分組 枚舉值 按鈕值 對話框中心是的按鈕 按鈕 個數(shù) OkOnly 0 “確定” OkCancel 1 “確定”、“取消” AbortRetryIgnore 2 “終止”、“重試”、“忽略” YesNoCancel 3 “是”、“否”、“取消” YesNo 4 “是”、“否” RetryCancel 5 “重試”、 “取消” 圖標(biāo) 類型 Critical 16 關(guān)鍵信息圖標(biāo) Question 32 問號圖標(biāo) Exclamation 48 警告圖標(biāo) Information 64 信息圖標(biāo) 按鈕設(shè)置值及其意義 菜單和對話框 87 枚舉值 內(nèi)部常數(shù) 返回值 被單擊的按鈕按鈕 Ok vbOk 1 “確定” Cancel vbCancel 2 “取消” Abort vbAbort 3 “終止” Retry vbRetry 4 “重試” Ignore vbIgnore 5 “忽略” Yes vbYes 6 “是” No vbNo 7 “否” 函數(shù)返回與所選按鈕的關(guān)系 菜單和對話框 88 例 編寫一個賬號和密碼輸入檢查程序。 菜單和對話框 90 假設(shè)窗體加入控件 OpenFileDialog1，在程序中執(zhí)行下面語句就會彈出“打開文件”對話框。界面如圖所示。 ) 。 ( ) = 例 打開保存對話框。 ( ) = 例 打開保存對話框。 ( )