包含vb点虐 map1的词条

vb点虐 图形创建与保存问题。详见问题补充。

Dim bmp As New Bitmap("打开图片的路径")

创新互联不只是一家网站建设的网络公司；我们对营销、技术、服务都有自己独特见解，公司采取“创意+综合+营销”一体化的方式为您提供更专业的服务！我们经历的每一步也许不一定是最完美的，但每一步都有值得深思的意义。我们珍视每一份信任，关注我们的成都网站制作、网站设计、外贸网站建设质量和服务品质，在得到用户满意的同时，也能得到同行业的专业认可，能够为行业创新发展助力。未来将继续专注于技术创新，服务升级，满足企业一站式营销型网站建设需求，让再小的品牌网站设计也能产生价值！

bmp.Save("保存图片的路径")

Dim t As New TextBox()

Dim p As New PictureBox

p.Image = bmp 'picture等支持image的控件。

t.CreateGraphics.DrawImage(bmp, New Point) '文本控件。

Me.BackgroundImage = bmp '窗体

vb点虐 如何嵌入地图

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

!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点虐 桌面中bitmap类如何直接绘制到屏幕?

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

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