日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

為VB應用程序定制浮動提示

為VB應用程序定制浮動提示

更新時間:2022-04-29 文章作者:未知 信息來源:網絡 閱讀次數:

在Win95中,當我們將鼠標移至某個控件上時,便會在鼠標所指之處彈出一個小窗口,告訴我們這個控件的用途,這便是“浮動提示”。這種提示方式可以及時地提供有關信息,那么怎樣在VB中實現這種功能呢?
首先我們在Form的任意位置放一個Text1作為浮動提示的通用文本顯示框,幾個重要屬性設置為:
Appearance:0-Flat
BackColor:窗口背景顏色
BorderStyle:1-FixedSingle
ForeColor:窗口文本顏色
Height:文本框高度,一般取286左右
Visible:False
如果該Text1不是在所有按鈕設置以后才放置的,則在顯示在它之后放置的按鈕的浮動提示時,浮動提示將被該按鈕所掩蓋,這時需要按Ctrl+J或者在“Edit”菜單中選擇“BringtoFront”將Text1帶回前臺。
然后,在Module1通用模塊中定義一個用于存放任意浮動提示文本的公共FloatMessage字符串變量: PublicFloatMessageAsString
再在Form的General中加入一個如下公用函數,其功能是用一個文本框自動匹配和管理所有浮動提示: PublicFunctionShowMessage()IfText1Visible=FalseThenText1Left=CurrentXText1Top=CurrentY′
以上兩句定制文本框顯示的左上角坐標,下句計算文本框長度
Text1Width=TextWidth(FloatMessage)+72
Text1Text=FloatMessage′初始化浮動提示信息
Text1Visible=True′顯示浮動提示
EndIf′刪除這個If循環將出現游走效果
EndFunction最后要做的就是在調用該函數的所有事件中為這個FloatMessage賦值。假如我們要為按鈕Command1編制浮動提示,則在Command1的MouseMove事件中寫入:
PrivateSubCommand1_MouseMove(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
CurrentX=Command1Left+X
CurrentY=Command1Top+Y′
以上根據按鈕位置自動提取相對坐標并且加一個當前鼠標偏移量
FloatMessage=″ThisisCommand1Button″′浮動提示內容
ShowMessage
EndSub
為了能在鼠標移開相關按鈕后將相關浮動提示隱去,我們還須在Form事件中加入:
PrivateSubForm_MouseMove(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
Text1Visible=False
EndSub本程序不僅僅適合于按鈕提示,在任何支持MouseMove事件的控件中都可以運用,有興趣不妨一試。
以上程序均在486DX2/66、P133的Win95和VB40中調試通過。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产丝袜美女一区二区三区 | 日本www免费视频网站在线观看 | 热久久影院 | 青青国产成人久久激情91麻豆 | 亚洲国产成人在线视频 | 日韩精品久久一区二区三区 | 一区二区不卡免费视频 | 狠狠狠狼鲁欧美综合网免费 | 中文字幕美日韩在线高清 | 国产精品久久一区 | 在线播放五十路乱中文 | 免费国产午夜高清在线视频 | 欧美日韩一区视频 | 国产永久免费爽视频在线 | 日本欧美视频在线 | 狠狠欧美| 久久草在线精品 | 国产精品毛片大码女人 | 久久精品国产亚洲欧美 | 久久三级影院 | 国产精品手机在线观看 | 国产午夜一级鲁丝片 | 中文字幕日本一区波多野不卡 | www.4虎影院 www.91插插插 | 久久精品国产91久久麻豆自制 | 国产精品久久久久久五月尺 | 欧美日韩国产三级 | 91原创视频在线观看 | 亚洲作爱视频 | 在线观看网站国产 | 影院亚洲 | 国产成人久视频免费 | 久青草国产观看在线视频 | 天堂草原视频在线观看 | 精品日韩一区二区三区 | 在线观看国产情趣免费视频 | 综合久久久久久中文字幕 | 欧美第一区| 天天摸天天做天天爽水多 | 一本到亚洲网 | 国产成人精品午夜免费 |