用vb做一个世界地图

[charzzz]

我想做一个世界地图，用vb，地图可以左右无限循环拖动。还能缩放，用鼠标双击地图还能显示坐标的，哪位高人给点思路？或者有现成的例子，发一个给我，无限感激。
[e-mail]

[xysyzj]

进这个网站看看吧
程序员联合开发网

[古今多少事]

好难啊！

[dylike]

难是不难,问题是开发周期长.而且估计不会有人高兴免费制作.

[wuhuwy]

帮顶，这个做起来是比较复杂。。。

[charzzz]

很难吗？我说的是用一张PNG格式的世界地图，达到上面的说的效果就好，不用显示到城市街道什么的。。。说白了，就是能把一张图放到窗口里拖动，左右能循环。然后双击地图，可以显示坐标，比如一张800*600的图，只要能显示相对于图的起点坐标就可以了。然后在图上能连连线段什么的，就这么简单。

[outou]

应该不简单吧。

[hztltgg]

不难吧，就是cgi+，画图而已，确定图片起点坐标，就是你鼠标拖动，起点坐标反方向变化

[hztltgg]

乱写了一个，参考一下而已

Public Class Form1


    Private p As Point
    Private img As Image = New Bitmap("D:\XXX.png")
    Private l As New Point(100, 100)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Image = img

    End Sub


    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

        p = e.Location

    End Sub


    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

        Dim v = e.Location - p

        Dim g = PictureBox1.CreateGraphics()

        Dim a As Rectangle = New Rectangle(l - v, New Size(New Point(PictureBox1.Width, PictureBox1.Height)))

        g.DrawImage(img, 0, 0, a, GraphicsUnit.Pixel)

    End Sub

End Class

[charzzz]

能写成VB 6.0的代码么？我不想用.NET，发布后用起来太啰嗦了

[dylike]

参考电脑游戏<红色警戒2>
悄悄地:7楼的cgi+应输入gdi+

[yanlongwuhui]

不容易吧

[qqwanjun]

Dim a As Rectangle = New Rectangle(l - v, New Size(New Point(PictureBox1.Width, PictureBox1.Height)))

编译这句话的时候，提示转换错误。

[dylike]

一张图.存为2张相同的图.通过判断是否显示区域超出图1的右侧或左侧,则将另一张图更改位置.合成为单一图形后输出到显示区域.

[sytsyt0329]

关注

[charzzz]

vb不能读取 png，麻烦告诉下解决办法