vb.net绘制地图 vb 绘图

VB.net中如何画图？

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊？

急用啊！！！！！！！！

解析:

VB与VB不同。

VB已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

相关问答

Q1: vb.net桌面中bitmap类如何直接绘制到屏幕?

可以直接显示的。你看下面的示例，使用vb.net画的齿轮：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

b = New Bitmap(PictureBox1.Width, PictureBox1.Height)

g = Graphics.FromImage(b)

'g.RotateTransform(90)

g.Clear(Color.White)

g.TranslateTransform(PictureBox1.Width / 2, PictureBox1.Height / 2)

g.ScaleTransform(1, -1)

'g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

DrawCL(g, New PointF(Val(TextBox1.Text), Val(TextBox2.Text)), Val(TextBox3.Text), Val(TextBox4.Text), Val(TextBox5.Text), Val(TextBox6.Text), Val(TextBox7.Text), Val(TextBox8.Text), Val(TextBox9.Text))

DrawCL(g, New PointF(Val(TextBox18.Text), Val(TextBox17.Text)), Val(TextBox16.Text), Val(TextBox15.Text), Val(TextBox14.Text), Val(TextBox13.Text), Val(TextBox12.Text), Val(TextBox11.Text), Val(TextBox10.Text))

PictureBox1.Image = b

End Sub

Q2: VB.NET (c#) 想做个电子地图 用什么控件或者第三方控件 （C/S）具体点，谢谢了！ 可以追加100分

是做网站中的电子地图吗？试试百度或者google地图，很简单有例子的。

其他的天地图、MapABC、图吧等。

Q3: 你好，我想用VB。net做个地图，但是吧~我对它一窍不通~希望你可以手把手教我~~谢谢~加我

做地图vb.net绘制地图？地理信息系统吧vb.net绘制地图，用mapinfo

Q4: vb.net 如何嵌入地图

新建一个文件,写入下面的代码:

!doctype html

html

head

    meta name="viewport" content="initial-scale=1.0, user-scalable=no" /

    meta http-equiv="Content-Type" content="text/html; charset=gbk" /

    titleBaidu Map V1.2/title

    script type="text/javascript" src=";services=true"

    !-- add baidu map api --

    /script

/head

body

    div id="container" style="width: 600px; height: 400px;"

    /div

/body

/html

script type="text/javascript"

    var map = new BMap.Map("container");                 // new Map

    var point = new BMap.Point(116.397128, 39.916527);      // Location, （经度, 纬度）

    map.centerAndZoom(point, 15);                        // show Map

    // 添加缩放功能

    map.enableScrollWheelZoom();

    map.enableKeyboard();

/script

保存到程序exe同一目录下,文件名:map.html

然后BUTTON点击事件:

WebBrowser1.Navigate(Application.StartupPath  "\map.html")

这样就可以了

ps:经纬度可以到百度地图官网去获取

或者到:  去生成代码

vb.net绘制地图的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 绘图、vb.net绘制地图的信息别忘了在本站进行查找喔。