 |
基于数据库的表单设计程序实现超级链接控件与互联网对接 |
|
| 基于数据库的表单设计程序实现超级链接控件与互联网对接 |
|
|
|
ols.fll” &&载入vfp的Fll库
b.表单（form1）的init事件代码：
this.AddObject（"Hyperlink1"，"HyperLink"）
&&这是添加,若以后要移去它可用RemoveObject（"Hyperlink1"）
this.list1.additem（"MSDN"）
this.list1.additem（"CSDN"）
this.list1.additem（"Yesky"）
this.list1.additem（"小小鸟"）
c.“编程入门网”标签label1的click事件代码：thisform.HyperLink1.NavigateTo（"www.bianceng.cn"）
d.“关于本站”命令按钮command1的click事件代码：
hwnd=_WhToHwnd（_Wontop（））
=shellAbout（hWnd,"编程入门网","欢迎访问网站：",0）
e.列表框控件list1的click事件代码：
do case this.listindex
case this.selected（1）&&访问微软MSDN主页
thisform.Hyperlink1.NavigateTo（"msdn.microsoft.com"）
case this.selected（2）&&访问CSDN网站
thisform.Hyperlink1.NavigateTo（"www.csdn.net"）
case this.selected（3）&&访问天极
thisform.Hyperlink1.NavigateTo（"www.yesky.com"）
case this.selected（4）&&访问编程入门网
thisform.Hyperlink1.NavigateTo（"www.bianceng.cn"）
endcase
（8）运行“表单1.scx”。（可用快捷键ctrl+E）
总而言之，超上一页 [1] [2] [3] 下一页 |
|
|
| |
|
上一个论文： 汽车涂装颗粒的分析和控制
下一个论文： 谈高职院校学生校园管理数字化的一卡通建设 |
|
用户登录 
新用户注册