4 个解决方案
#1
用冒泡提示不好吗?
地图上全是热点,鼠标移上去,显示提示信息。
地图上全是热点,鼠标移上去,显示提示信息。
#2
用两个PictureBox,一个画图,一个按比例显示
Private Sub Command1_Click()
Dim sText As String
sText = "站点"
With Picture1
.CurrentX = 120
.CurrentY = 120
Picture1.Print sText
Picture1.Line (100, 100)-(100 + .TextWidth(sText) + 40, 100 + .TextHeight(sText) + 40), , B
End With
'比例200%
Picture2.PaintPicture Picture1.Image, 0, 0, 2000, 2000, 0, 0, 1000, 1000
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
End Sub
#3
不明白? 啥子叫冒泡法? 请大侠详细说一下吧 谢谢
#4
没有搞定啊! 1.我是要可以自己加减地名的呀 2.要是地方太小了,图片能自动放大把地名的放大了看
#1
用冒泡提示不好吗?
地图上全是热点,鼠标移上去,显示提示信息。
地图上全是热点,鼠标移上去,显示提示信息。
#2
用两个PictureBox,一个画图,一个按比例显示
Private Sub Command1_Click()
Dim sText As String
sText = "站点"
With Picture1
.CurrentX = 120
.CurrentY = 120
Picture1.Print sText
Picture1.Line (100, 100)-(100 + .TextWidth(sText) + 40, 100 + .TextHeight(sText) + 40), , B
End With
'比例200%
Picture2.PaintPicture Picture1.Image, 0, 0, 2000, 2000, 0, 0, 1000, 1000
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
End Sub
#3
不明白? 啥子叫冒泡法? 请大侠详细说一下吧 谢谢
#4
没有搞定啊! 1.我是要可以自己加减地名的呀 2.要是地方太小了,图片能自动放大把地名的放大了看