在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美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
主站蜘蛛池模板: 在线播放免费 | 亚洲视频在线一区二区三区 | 日本在线视频一区 | 男女无遮挡在线完整视频 | 久久成人影视 | 午夜国产精品理论片久久影院 | 国产做a爰片久久毛片 | 污夜影院| 日本一区二区三区欧美在线观看 | 国产黄色视屏 | 黄蓉h肉辣文大全 | 国产在线播 | 女女色综合影院 | 日韩在线天堂免费观看 | 日韩毛片免费视频 | 又黑又长黑人欧美三级 | 日韩一区二区视频 | 天堂网2021天堂手机版丶 | 欧美性受xxxx极品 | 九九黄色网 | 欧美一区二区三区激情啪啪 | 国产亚洲人成网站天堂岛 | 又粗又大又猛又爽免费视频 | 手机看片久久青草福利盒子 | 最新国产你懂的在线网址 | 亚欧成人中文字幕一区 | 激情五月综合 | 亚洲成a人片在线观看www | 亚洲国产人久久久成人精品网站 | 亚洲成人三级电影 | 男人资源| 午夜宅男视频 | 国产手机在线看片 | 亚洲综合丁香 | 国产女主播在线 | 日本亚洲视频 | 亚洲成熟| 亚洲精品理论 | 久久青青草原精品老司机 | 免费看色视频 | 国产黄色小视频网站 |