?? wzjh20.htm
字號:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"><meta name="GENERATOR" content="Microsoft FrontPage 3.0"><title>動態提示的可視化實現</title></head><body bgcolor="#FFFFFF"><h1 align="center">動態提示的可視化實現 </h1><p align="right"><i>江蘇省江陰市103信箱503號(214431) 杜香聰 </i></p><p>動態提示是指當用戶的鼠標停在某圖標或工具條上,所停之處便會出現黃底白字的描述行,提示功能、系統時間等。如果能在應用程序中加上動態提示,必將使該應用增色不少。下面筆者分別以市面上最常用的可視化開發工具Visual Basic5.0、Delphi2.0、Visual Foxp ro3.0為例,介紹實現動態提示的編程。本文給出的例子非常簡單,僅提示系統時間。 </p><h4 align="center">一、Visual Basic </h4><dl> <dd>在VB5.0下,選擇FILE|NEW PROJECT,出現NEW PROJECT對話框,這時選擇STANDARD EXE類型,選OK。進入VB的設計環境,出現一空白窗體(或稱表單)form1,往窗體上加入Picture圖形控件Picture1,設置Picture1的Autosize屬性為True,Picture屬性為一鐘表形圖片time.bmp 。雙擊Picture1,設置Picture1的MouseMove事件為(加下劃線的部分是由用戶輸入的語句,其它均由系統自動生成): </dd> <dd>Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Picture1.ToolTipText="現在時間:"+Str(Time) </dd> <dd>End Sub </dd> <dd>Time是取系統時間的函數,Str()是將數字轉化為字符串的函數。 <h4 align="center">二、Visual Foxpro </h4> </dd> <dd>進入Visual Foxpro,選擇文件(File|New)建新文件,出現文件類型選擇,這時選Form新表單(或稱窗體)。出現Form Wizard、New File表單向導與新表單選擇,選新表單,不選表單向導。出現空白表單form1的設計狀態,選中form1表單,單擊右鍵,選取Property屬性,設置for m1的Showtips屬性為.T.(真),將一CommandButton命令按鈕Command1加入表單。單擊命令按鈕。單擊右鍵,選Property屬性,設置Command1 Picture屬性為一鐘表形小圖標,調節命令按鈕與小圖標的大小。雙擊Command1設置Command1的MouseMove事件(加下劃線的部分是由用戶輸入的語句,其它由系統自動生成): </dd> <dd>LPARAMETERS nButton,nShift,nXCoord,nYCoord </dd> <dd>This.Tooltiptext=‘現在時間:’+Time() </dd> <dd>This指當前控件(Command1),Time()是取系統時間的函數。 <h4 align="center">三、Delphi </h4> </dd> <dd>進入Delphi,選File|New File。出現文件類型選擇,選New頁面,點Application,選OK。出現設計狀態下空白窗體Form1,點中控件工具頁面的Additional頁面,選中Image控件,將Im age1加到Form1上。單擊Image1,在對象觀察器Object Inspector的Properties屬性頁面上設置Image1的Picture屬性為一鐘表形小圖標,為美觀起見設置Image1的AutoSize為True。在對象觀察器的Events事件頁面上選擇OnMouseMove并雙擊,設置Image1的MouseMove事件(加下劃線的部分是由用戶輸入的語句,其它由系統自動生成): </dd> <dd>procedure TForm1.Image1MouseMove </dd> <dd>(Sender:TObject;Shift:TShiftState;X,Y:lnteger); </dd> <dd>begin </dd> <dd>Image1.ShowHint:=TRUE; </dd> <dd>Image1.hint:=‘現在時間’+TimeToStr(Time); </dd> <dd>end; </dd> <dd>end. </dd> <dd> </dd> <dd>以上程序在P100兼容機、Windows95環境、Visual Basic 5.0、Delphi 2.0、VisualFo xpro 3.0上全部運行通過。 </dd></dl></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -