?? 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>動態(tài)提示的可視化實現(xiàn)</title>
</head>
<body bgcolor="#FFFFFF">
<h1 align="center">動態(tài)提示的可視化實現(xiàn) </h1>
<p align="right"><i>江蘇省江陰市103信箱503號(214431) 杜香聰 </i></p>
<p>動態(tài)提示是指當(dāng)用戶的鼠標停在某圖標或工具條上,所停之處便會出現(xiàn)黃底白字的描述行,提示功能、系統(tǒng)時間等。如果能在應(yīng)用程序中加上動態(tài)提示,必將使該應(yīng)用增色不少。下面筆者分別以市面上最常用的可視化開發(fā)工具Visual
Basic5.0、Delphi2.0、Visual Foxp ro3.0為例,介紹實現(xiàn)動態(tài)提示的編程。本文給出的例子非常簡單,僅提示系統(tǒng)時間。
</p>
<h4 align="center">一、Visual Basic </h4>
<dl>
<dd>在VB5.0下,選擇FILE|NEW PROJECT,出現(xiàn)NEW PROJECT對話框,這時選擇STANDARD EXE類型,選OK。進入VB的設(shè)計環(huán)境,出現(xiàn)一空白窗體(或稱表單)form1,往窗體上加入Picture圖形控件Picture1,設(shè)置Picture1的Autosize屬性為True,Picture屬性為一鐘表形圖片time.bmp
。雙擊Picture1,設(shè)置Picture1的MouseMove事件為(加下劃線的部分是由用戶輸入的語句,其它均由系統(tǒng)自動生成):
</dd>
<dd>Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As
Single)Picture1.ToolTipText="現(xiàn)在時間:"+Str(Time) </dd>
<dd>End Sub </dd>
<dd>Time是取系統(tǒng)時間的函數(shù),Str()是將數(shù)字轉(zhuǎn)化為字符串的函數(shù)。 <h4
align="center">二、Visual Foxpro </h4>
</dd>
<dd>進入Visual Foxpro,選擇文件(File|New)建新文件,出現(xiàn)文件類型選擇,這時選Form新表單(或稱窗體)。出現(xiàn)Form
Wizard、New File表單向?qū)c新表單選擇,選新表單,不選表單向?qū)А３霈F(xiàn)空白表單form1的設(shè)計狀態(tài),選中form1表單,單擊右鍵,選取Property屬性,設(shè)置for
m1的Showtips屬性為.T.(真),將一CommandButton命令按鈕Command1加入表單。單擊命令按鈕。單擊右鍵,選Property屬性,設(shè)置Command1
Picture屬性為一鐘表形小圖標,調(diào)節(jié)命令按鈕與小圖標的大小。雙擊Command1設(shè)置Command1的MouseMove事件(加下劃線的部分是由用戶輸入的語句,其它由系統(tǒng)自動生成):
</dd>
<dd>LPARAMETERS nButton,nShift,nXCoord,nYCoord </dd>
<dd>This.Tooltiptext=‘現(xiàn)在時間:’+Time() </dd>
<dd>This指當(dāng)前控件(Command1),Time()是取系統(tǒng)時間的函數(shù)。 <h4 align="center">三、Delphi
</h4>
</dd>
<dd>進入Delphi,選File|New File。出現(xiàn)文件類型選擇,選New頁面,點Application,選OK。出現(xiàn)設(shè)計狀態(tài)下空白窗體Form1,點中控件工具頁面的Additional頁面,選中Image控件,將Im
age1加到Form1上。單擊Image1,在對象觀察器Object Inspector的Properties屬性頁面上設(shè)置Image1的Picture屬性為一鐘表形小圖標,為美觀起見設(shè)置Image1的AutoSize為True。在對象觀察器的Events事件頁面上選擇OnMouseMove并雙擊,設(shè)置Image1的MouseMove事件(加下劃線的部分是由用戶輸入的語句,其它由系統(tǒng)自動生成):
</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:=‘現(xiàn)在時間’+TimeToStr(Time); </dd>
<dd>end; </dd>
<dd>end. </dd>
<dd> </dd>
<dd>以上程序在P100兼容機、Windows95環(huán)境、Visual Basic 5.0、Delphi 2.0、VisualFo
xpro 3.0上全部運行通過。 </dd>
</dl>
</body>
</html>
<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -