如何对动态的图象进行局部放大或缩小?

最近,我想做一个小地图,设了几个控件,可增加如"公交站"台、路名、行政区名等可分批的加入的小程序，因为地名太多，我想用放大功能，可是放大功能只能放大原始图，加载的地名无法显示？ 请各位大侠帮忙

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

引用 1 楼 vansoft 的回复:

用冒泡提示不好吗? 

地图上全是热点，鼠标移上去，显示提示信息。

不明白? 啥子叫冒泡法? 请大侠详细说一下吧 谢谢

#4

引用 2 楼 Tiger_Zhao 的回复:

用两个PictureBox，一个画图，一个按比例显示 

VB codePrivate 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…

没有搞定啊! 1.我是要可以自己加减地名的呀  2.要是地方太小了,图片能自动放大把地名的放大了看