批量數(shù)據(jù)的處理ppt課件-閱讀頁(yè)
2025-05-14 01:45本頁(yè)面
【正文】 nteger, X As Single, Y As Single) End Sub Private Sub Object _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 鼠標(biāo)事件應(yīng)用舉例 點(diǎn)不中的命令按鈕 Private Sub Command1_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) = + = + End Sub ?思考：要讓命令按鈕隨機(jī)地上下左右躲避鼠標(biāo)，應(yīng)如何實(shí)現(xiàn)？ 隨鼠標(biāo)移動(dòng)的標(biāo)簽 Private Sub Form_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) = X = Y End Sub ?思考：要讓命令按鈕的中心對(duì)準(zhǔn)鼠標(biāo)，應(yīng)如何實(shí)現(xiàn)？ Button參數(shù)的取值 Shift參數(shù)的取值 鼠標(biāo)事件應(yīng)用：從天而降的小貓 小貓隨鼠標(biāo)移動(dòng) 小貓從天而降 兩種狀態(tài)的切換 鍵盤事件 Private Sub Textl_KeyPress(KeyAscii As Integer) End Sub Private Sub object_KeyDown(keycode As Integer, shift As Integer) End Sub Private Sub object_KeyUp(keycode As Integer, shift As Integer) End Sub 鍵盤事件應(yīng)用舉例 按下 Enter鍵時(shí)進(jìn)行數(shù)據(jù)檢查并執(zhí)行某些操作 在 KeyPress事件里檢查輸入數(shù)據(jù)的有效性；檢查通過(guò)后，自動(dòng)把焦點(diǎn)轉(zhuǎn)到下一個(gè)控件；若檢查不通過(guò)，則提示用戶，清空文本框，等待重新輸入。 KeyAscii = Asc(Ucase(KeyAscii)) KeyPress事件用于輸入檢查 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric() Then MsgBox 輸入的不是數(shù)字，請(qǐng)重新輸入！ = ElseIf Val() 0 Then MsgBox 輸入的邊長(zhǎng)小于 0，請(qǐng)重新輸入！ = Else End If End If End Sub KeyPress事件用于截獲輸入 Private Sub Textl_KeyPress(KeyAscii As Integer) KeyAscii=Asc(UCase(Chr(KeyAscii))) End Sub 多窗體 多窗體指一個(gè)應(yīng)用程序中有多個(gè)并列的普通窗體，每個(gè)窗體可以有自己的界面和程序代碼，完成不同的功能。 “ 新建 ” ：新建一個(gè)窗 體并添加到本工程中。 可以單擊 “ 工程 ” 菜單的 “ 工程 1 屬性 ” 命令，彈出工程屬性設(shè)置對(duì)話框。 多窗體有關(guān)語(yǔ)句、方法 （ 1） Load語(yǔ)句：將窗體裝入內(nèi)存。 （ 3） Show方法：加載并顯示窗體。 多窗體應(yīng)用舉例：測(cè)繪程序集 封面窗體 主窗體 不同窗體間的數(shù)據(jù)傳遞 控件的屬性： 另一個(gè)窗體名 .控件名 .屬性 變量的值： （ 變量的作用域 ） 在標(biāo)準(zhǔn)模塊（ .BAS）中聲明成全局變量 例子：不同窗體件數(shù)據(jù)傳遞的例子 變量的作用域 局部變量 在過(guò)程中聲明，作用域是該過(guò)程內(nèi)部。 全局變量 在標(biāo)準(zhǔn)模塊中用 Public聲明，作用域是整個(gè)工程。 建立菜單 把代碼連接到菜單上 動(dòng)態(tài)修改菜單狀態(tài) 彈出式菜單 菜單應(yīng)用舉例一：記事本 把代碼連接到菜單上 每個(gè)菜單項(xiàng)都是一個(gè)對(duì)象，都具有一些特定的事件過(guò)程。 動(dòng)態(tài)修改菜單的狀態(tài) 菜單編輯器中的 “ 有效 ” 、 “ 可見 ” 選項(xiàng)對(duì)應(yīng)菜單項(xiàng)的 Enabled和 Visible屬性。 例如： 在設(shè)計(jì)狀態(tài)把某些菜單項(xiàng)隱藏，等到執(zhí)行某種操作（如打開文件）后，再顯示。 使用 PopupMenu方法實(shí)現(xiàn)彈出式菜單。 彈出式菜單舉例 菜單應(yīng)用舉例二：控制網(wǎng)平差程序 通用對(duì)話框 通用對(duì)話框控件（ CommonDialog Control）：一組基于 Windows的標(biāo)準(zhǔn)對(duì)話框界面。 通用對(duì)話框只用于顯示，不能真正實(shí)現(xiàn)各項(xiàng)功能：需要用戶通過(guò)編程解決。 菜單設(shè)計(jì) 代碼編寫 Private Sub mnuOpen_Click() ?打開文件 =文本文件 (*.txt)| _ *.txt | 所有文件 (*.*)|*.* = 1 Shell c:\windows\ am
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1