📄 wzjh20.htm

📁 对于学习很有帮助
💻 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=&quot;现在时间:&quot;+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>

<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>
💿 文件大小 2022 K
👤 上传用户 siclj
📂 所属分类 Delphi/CppBuilder
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -