请问用VB做一个这样的程序有什么好的思路?
就是有一张图片,要在图片上放一些LABEL,点击LABEL可以查看一些信息,图片可以放大缩小移动,同时图片上LABEL位置不能变也要跟着移动。
就像地图一像的程序。
请问各位大侠有没有什么好思路来实现。
[解决办法]
form1中添加2个textbox text1,text2用于设置显示图片的左上角位置(可以为负数,表示左上角在显示范围之外),添加一个text3,用于设置缩放比例
添加一个Pic1,一个Pic2,Pic1上加入一个图片
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的位置