📄 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 + -