荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Minatl (Minatl), 信区: Program
标 题: 动态提示的可视化实现
发信站: BBS 荔园晨风站 (Wed Jan 20 19:27:25 1999), 转信
--------------------------------------------------------------------------------
1997年 .第30期 .软件与编程版
编程技巧
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
动态提示的可视化实现
江苏省江阴市103信箱503号(214431) 杜香聪
动态提示是指当用户的鼠标停在某图标或工具条上,所停之处便会出现黄底白字的描述行,提
示功能、系统时间等。如果能在应用程序中加上动态提示,必将使该应用增色不少。下面笔
者分别以市面上最常用的可视化开发工具Visual Basic5.0、Delphi2.0、Visual Foxp
ro3.0为例,介绍实现动态提示的编程。本文给出的例子非常简单,仅提示系统时间。
一、Visual Basic
在VB5.0下,选择FILE|NEW PROJECT,出现NEW PROJECT对话框,这时选择STANDARD EXE类型,选
OK。进入VB的设计环境,出现一空白窗体(或称表单)form1,往窗体上加入Picture图形控件
Picture1,设置Picture1的Autosize属性为True,Picture属性为一钟表形图片time.bmp
。双击Picture1,设置Picture1的MouseMove事件为(加下划线的部分是由用户输入的语句,其
它均由系统自动生成):
Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y
As Single)Picture1.ToolTipText="现在时间:"+Str(Time)
End Sub
Time是取系统时间的函数,Str()是将数字转化为字符串的函数。
二、Visual Foxpro
进入Visual Foxpro,选择文件(File|New)建新文件,出现文件类型选择,这时选Form新表单(
或称窗体)。出现Form Wizard、New File表单向导与新表单选择,选新表单,不选表单向导。
出现空白表单form1的设计状态,选中form1表单,单击右键,选取Property属性,设置for
m1的Showtips属性为.T.(真),将一CommandButton命令按钮Command1加入表单。单击命令按
钮。单击右键,选Property属性,设置Command1
Picture属性为一钟表形小图标,调节命令按钮与小图标的大小。双击Command1设置
Command1的MouseMove事件(加下划线的部分是由用户输入的语句,其它由系统自动生成):
LPARAMETERS nButton,nShift,nXCoord,nYCoord
This.Tooltiptext=‘现在时间:’+Time()
This指当前控件(Command1),Time()是取系统时间的函数。
三、Delphi
进入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事件(加下划线的部分是由用户输入的语句,其它由系统自动生成
):
procedure TForm1.Image1MouseMove
(Sender:TObject;Shift:TShiftState;X,Y:lnteger);
begin
Image1.ShowHint:=TRUE;
Image1.hint:=‘现在时间’+TimeToStr(Time);
end;
end.
以上程序在P100兼容机、Windows95环境、Visual Basic 5.0、Delphi 2.0、VisualFo
xpro 3.0上全部运行通过。
--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.240]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店