vb.net地图缩放 vb程序设计图片放大缩小代码

vb.net 如何放大和缩小图片

Sub 图片缩放()

Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3

Dim PicOld As Image = Image.FromFile("原图片路径")

Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)

PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)

End Sub

相关问答

Q1: vb.net 如何嵌入地图

新建一个文件,写入下面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")

这样就可以vb.net地图缩放了

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

或者到:  去生成代码

Q2: VB.NET picturebox 内绘图完图形放大缩小移动 鼠标控制 。比较笨看了VB的代码不明白 求解

。net 不用api就行

缩放操作

Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍数

Dim h As Integer = bitmap.Height * 倍数

Dim tem As New Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(tem)

g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

g.Dispose()

Return tem

End Function

鼠标滚轮事件 MouseWheel

MouseEventArgs.Delta 值可以判断滚动方向

Q3: 如何正确掌握VB.NET操作缩放图像

C# GDI+编程之基础篇 一、关于GDI+ 从本质上来看，GDI+为开发者提供了一组实现与各种设备(例如监视器，打印机及其它具有图形化能力但不及涉及这些图形细节的设备)进行交互的库函数

Q4: vb.net中怎么实现图片缩小和放大

Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

关于vb.net地图缩放和vb程序设计图片放大缩小代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。