广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4598 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
kennyin 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
小有名气
级别: 小有名气 该用户目前不上站
推文 x16 鲜花 x173
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic] [问题]请问VB有办法做出图片的超连结吗?
最近设计了一个小游戏,
但是想把LOGO图片的来源连结到网址 ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



小人的定义:小鼻子小眼睛加上肚肠窄及挟怨报复的人
生活新目标:下诅咒砍小白远小人开始潜水

那些有所为的人看着了,我会怀念有警告的日子的
献花 x0 回到顶端 [楼 主] From:台湾数位联合 | Posted:2005-06-29 04:49 |
ziele 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x1 鲜花 x32
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

这是个文字的超连结 给你参考一下,图片作法相同
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub LblLink_Click()
  ShellExecute hWnd, "open", "http://bbs.mychat.to/index.php", vbNullString, vbNullString, conSwNormal
End Sub
Private Sub LblLink_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  LblLink.FontBold = True
  LblLink.FontUnderline = True
  LblLink.ForeColor = vbBlue
  Me.MousePointer = 99
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  LblLink.FontBold = False
  LblLink.FontUnderline = False
  LblLink.ForeColor = vbBlack
  Me.MousePointer = 0
End Sub

此文章被评分,最近评分记录
财富:30 (by codeboy) | 理由: 感谢您的提供方法~


献花 x0 回到顶端 [1 楼] From:台湾中华电信 | Posted:2005-06-29 13:48 |
ffrr
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

哦 谢谢大大 这个原始码 我正好也需要呢 感谢唷 表情


献花 x0 回到顶端 [2 楼] From:局域网对方和您在同一内部网 | Posted:2006-03-01 15:50 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.087528 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言