在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標識 上網(wǎng)做生意,首選VIP會員| 設為首頁| 加入桌面| | 手機版| RSS訂閱
食品伙伴網(wǎng)服務號
 

調用窗體對象的事件

放大字體  縮小字體 發(fā)布日期:2006-06-15


    為了響應用戶的操作,需要調用相應的對象的事件。每個對象有 不同的事件,各個對象的事件又有不同的事件。調用事件的方法很 簡單,如果是想調用對象的Click(鼠標單擊)事件,可以在【設置 模式】下雙擊該對象,即可顯示代碼窗口,允許用戶輸入其中輸入 事件的執(zhí)行代碼。在代碼窗口中,也可以在【對象】列表框中選擇 需要的對象后,在【過程】列表框中選擇需要的事件。如圖12-9 所 示。
    關于各個對象的具體事件不再一一敘述,下面以為窗體中的【關閉文檔】按鈕添加Click 事件和為文字框添加LostFocus 事件為例, 介紹如何為對象添加基本的事件。在窗體中,文字框是用來輸入姓 名的,為文字框添加LostFocus 事件,可以在用戶輸入姓名完畢后, 當焦點轉到其他控件時,文字框失去焦點。產生LostFocus 事件的 步驟為:

    (1)在代碼窗口中,在【對象】列表框中選擇TextBox1。
    (2)在【過程】列表框中選擇LostFocus。
    (3)輸入代碼,如下所示:
    Private Sub TextBox1_LostFocus()
    MsgBox TextBox1.Text, vbOKOnly, "你的姓名是:"
    '顯示一個消息框,顯示用戶剛輸入的文字
    End Sub

    為【關閉文檔】按鈕添加事件的步驟如下:
    (1)在代碼窗口中,在【對象】列表框中選擇CommandButton2。
    (2)在【過程】列表框中選擇Click。
    (3)輸入代碼,如下所示:

    Private Sub CommandButton2_Click()
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "你真的要關閉本文檔,不要后悔啊 ?" ' 定義信息。
    Style = vbYesNo + vbQuestion + vbDefaultButton2 ' 定義按鈕。
    Title = "確認關閉文檔" ' 定義標題。
    Help = "" ' 定義幫助文件,為空。
    Ctxt = ' 定義標題,為空' 上下文。
    ' 顯示信息。

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then ' 用戶按下“是”。
    WordBasic.FileClose ' 完成某操作。
    Else ' 用戶按下“否”。
    End If
    通過對事件的引用,就大大增強了Word 窗體的交互性。當用戶 在文字框輸入“笑嘻嘻”后轉移焦點時,會顯示如圖12-10 所示的 【你的姓名是:】對話框,當單擊【關閉文檔】按鈕時,會顯示【確 認關閉文檔】對話框,如圖12-10 所示。用戶單擊【是】按鈕,將 關閉該文檔,如果窗體還沒有保存,會提示用戶保存窗體;單擊【否】 按鈕,將返回 文檔。
 

 
[ 網(wǎng)刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點擊排行
 
 
Processed in 0.601 second(s), 1081 queries, Memory 3.3 M
主站蜘蛛池模板: xx视频在线| 黄色免费网站在线 | 人人射人人澡 | 拍拍拍无挡视频免费全程1000 | 亚洲美女黄视频 | 高h水果榨汁play男男 | 日韩精品一级a毛片 | 亚洲九色 | 久久www免费人成_看 | 免费美剧在线观看 | 国产午夜a理论毛片在线影院 | 东北美女野外bbwbbw免费 | 高清不卡毛片免费观看 | 国产三级a三级三级野外 | 欧美一卡二卡3卡4卡无卡六卡七卡科普 | 亚洲丰满熟妇毛片在线播放 | 亚洲婷婷综合色高清在线 | 4虎 影视 免费 | a4yy私人毛片在线 | 国产精品福利一区二区亚瑟 | 欧美一区二区三区黄色 | 激情综合色综合啪啪开心 | 国产在线欧美精品卡通动漫 | 国产日本在线播放 | 国产综合成色在线视频 | 婷婷六月丁香色婷婷网 | 免费在线观看黄色 | 黄色一级片毛片 | 欧美亚洲综合一区 | 美女视频黄视大全视频免费网址 | 天堂网在线www最新版在线 | 天堂最新版在线地址 | 亚洲一区在线免费观看 | 国产女同视频 | 5g影院天天爽 | 久久久噜噜噜久久久午夜 | bt天堂在线www种子搜索 | 午夜视频久久 | 在线观看免费精品国产 | 天天都色 | 亚洲www视频|