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

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

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.要是地方太小了,图片能自动放大把地名的放大了看

#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.要是地方太小了,图片能自动放大把地名的放大了看