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

Question

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

Answer 1

用两个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 SubPrivate Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True
End Sub