首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请教用VB做一个这样的程序有什么好的思路

2012-06-25 
请问用VB做一个这样的程序有什么好的思路?就是有一张图片,要在图片上放一些LABEL,点击LABEL可以查看一些信

请问用VB做一个这样的程序有什么好的思路?
就是有一张图片,要在图片上放一些LABEL,点击LABEL可以查看一些信息,图片可以放大缩小移动,同时图片上LABEL位置不能变也要跟着移动。

就像地图一像的程序。

请问各位大侠有没有什么好思路来实现。

[解决办法]
form1中添加2个textbox text1,text2用于设置显示图片的左上角位置(可以为负数,表示左上角在显示范围之外),添加一个text3,用于设置缩放比例

添加一个Pic1,一个Pic2,Pic1上加入一个图片

VB code
sub form_loadtext1="0"text2="0"text3="1"end subPrivate Sub Command2_Click()    Dim r As Double    Dim x As Long, y As Long    Dim W As Long, H As Long        x = Val(Text1)    y = Val(Text2)    r = Val(Text3)        W = Pic1.Width * r    H = Pic1.Height * r    With Pic2        .PaintPicture Pic1, x, y, W, H, 0, 0, Pic1.Width, Pic1.Height, vbSrcCopy    End WithEnd Sub
[解决办法]
移动图片的同时,计算label的位置就可以了。
定义一个PICTURE1作为容器,
定义一个PICTURE2作为显示图片
LABEL1加载到PICTURE1上
放大缩小移动PICTURE2时,位置会变,再来计算LABEL1的位置

热点排行