vb.net 改变图片尺寸

最新推荐文章于 2019-12-09 22:15:43 发布
最新推荐文章于 2019-12-09 22:15:43 发布
阅读量1.2k 收藏
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44087130/article/details/102500745
版权

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

        Dim PicOld As Image = Image.FromFile("d:\原始图片.JPG")

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

        PictureBox1.Image = PicNew

曹泽夫
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vb.net图片拉伸及缩放
03-30
在VB.NET编程环境中，处理图像是一项常见的任务，包括图片的加载、显示以及调整尺寸，如拉伸和缩放。在本篇文章中，我们将深入探讨如何使用VB.NET来实现这些功能，特别是图片的拉伸和缩放操作。 首先，我们需要了解...
VB.NET简易贪吃蛇游戏
05-20
【VB.NET简易贪吃蛇游戏】是一款基于Visual Basic .NET（VB.NET）开发的简单娱乐游戏，适合初学者学习编程和游戏开发。该程序包含了基本的游戏逻辑、图形界面以及声音效果，用户可以直接运行，无需额外配置，是作为...
VB 让图片自动适应picturebox控件大小的方法
pdstar的博客
12-08 1万+
Picturebox控件加载图片的方法如下： Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg") 如果将Picturebox控件的AutoSize属性设为True的话，可以让图片框自动适应图片的大小，但无法让图片自动适应图片框的大小。 解决方法有两种： 方法一：使用Paint...
vb.net 修改图片大小
avatar1912的专栏
11-28 5286
Dim cmicImg As System.Drawing.Image  Dim mWidth, mHeight As Integer  cmicImg = System.Drawing.Image.FromFile("c:\temp.bmp ")         '读入图片       '变化大小        'mWidth = CInt(cmicImg.Width / 2)   '
VB.Net实现图片压缩的方法
Seal203的博客
06-08 3411
VB.Net下图片压缩有几种方式可以实现：通过缩小图片大小；通过降低图片质量；其他专门的压缩工具或者组件（据说一些组件可以实现无损压缩）。本文主要介绍前面两种有损的VB.Net图片减肥方法。  第一种： 缩小图片大小 代码如下： Const Int_SmallSize As Integer = 800  '这里可以自定义缩小后的图片的最大高度/宽度 '这里预设了800 代表
VB.NET 图缩放.rar_PictureBox1_VB.NET图_VB.net 图片_VB.net图片_vb 平移图片
09-20
标题中的"VB.NET 图缩放.rar_PictureBox1_VB.NET图_VB.net 图片_VB.net图片_vb 平移图片"明确指出了我们将关注的核心：使用PictureBox1控件进行图片的缩放和平移。 PictureBox控件是VB.NET中用于显示图像的标准控件...
vb.net编写的贪吃蛇游戏.rar-vb.net prepared by the Snake game. Rar.zip
01-30
《VB.NET实现的贪吃蛇游戏详解》 贪吃蛇游戏作为一款经典的休闲游戏，深受玩家喜爱。在本文中，我们将深入探讨如何使用VB.NET这一编程语言来开发一个功能完备的贪吃蛇游戏。VB.NET是微软.NET框架下的面向对象编程...
VB.NET图像过滤器
04-13
VB.NET中可以简单地通过改变像素索引来实现。 9. **色彩转换滤镜**：例如将图像从一种色彩空间（如RGB）转换到另一种（如HSV或CMYK）。这需要理解不同的色彩模型，并使用相应的转换公式。 10. **噪声滤镜**：添加...
VB 动态改变图像框Image的Stretch属性.rar
07-10
VB 动态改变图像框Image的Stretch属性，用户通过自定义的两款代码，可随意改变image的长度和宽度大小，不过本源码将此两种操作封装在按钮事件中，用户只需单击按钮，即可放大或缩小image框，动态改变了Image的Stretch属性，可以按如下方法定义按钮事件： 　　Private Sub Form_Load() 　　Image1.Picture = LoadPicture(App.Path "\e055.ico") '加载图片 　　End Sub 　　Private Sub Command1_Click() 　　Image1.Stretch = True '缩放图形来适应控件的大小 　　End Sub 　　Private Sub Command2_Click() 　　Image1.Stretch = False '缩放控件来适应图形的大小 　　End Sub 　　Private Sub Command3_Click() 　　Image1.Width = Image1.Width * 2 '放大图像框 　　Image1.Height = Image1.Height * 2 　　End Sub 　　Private Sub Command4_Click() 　　Image1.Width = Image1.Width / 2 '缩小图像框 　　Image1.Height = Image1.Height / 2 　　End Sub 　　完整的源代码请下载查看。
vb 图片类 批量修改图片大小
08-24
vb 图片类 批量修改图片大小，批量改名，方便网站用的大图转小图
vb.net图像处理（压缩、转换）
09-02
vb.net图像处理（压缩质量、转换格式，改变大小，特效处理）
vb中如何让窗体大小等于加载的图片大小？
滴水石穿
12-09 1150
vb中如何让窗体大小等于加载的图片大小 Private Sub Form_Load() Me.ScaleMode = 1 Me.Width = Me.Picture.Width / 26.45836 * 15 + Me.Width - Me.ScaleWidth Me.Height = Me.Picture.Height / 26.45836 * 15 + Me.Height - Me.Scal...
VB6.0让图片自适应Picture图片框大小
热门推荐
nicekwell的专栏
07-18 2万+
Picture的AutoSize属性设为True的话可以让图片框自动适应图片大小，但是图片不能适应图片框大小；     Image的Stretch属性设为True的话可以让图片自动适应图像框大小。     如果仅仅是为了显示的话，那么用Image图像框就可以满足需求了，但是我还想获取图片中某个点的颜色。Picture1.Point(x,y)可以获取Picture1的(x,y)坐标处的颜色（注意单
大学生创业计划书(4)三篇文件.docx
最新发布
07-11
大学生创业计划书(4)三篇文件.docx
vb.net自动标注尺寸代码
08-04
在VB.NET中，可以使用以下代码实现自动标注尺寸。 首先，为了能够修改控件的尺寸，我们需要为控件添加一个SizeGrip。可以通过在控件的右下角添加一个PictureBox控件来实现。 在表单的Load事件中，可以使用以下代码来添加SizeGrip： ```vb Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim sizeGrip As New PictureBox() sizeGrip.Width = 16 sizeGrip.Height = 16 sizeGrip.Cursor = Cursors.SizeNWSE sizeGrip.BackColor = Color.Transparent sizeGrip.Image = My.Resources.sizeGrip sizeGrip.SizeMode = PictureBoxSizeMode.StretchImage sizeGrip.Anchor = AnchorStyles.Bottom Or AnchorStyles.Right Me.Controls.Add(sizeGrip) End Sub ``` 这段代码中，我们创建了一个PictureBox控件，并设置宽度、高度、鼠标指针样式、背景色、图片、图片展示方式和锚定属性。最后，将SizeGrip添加到表单的控件集合中。 然后，在PictureBox的MouseDown和MouseMove事件中，可以使用以下代码来实现尺寸调整： ```vb Dim isResizing As Boolean = False Dim clickPoint As Point Private Sub sizeGrip_MouseDown(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseDown If e.Button = MouseButtons.Left Then isResizing = True clickPoint = e.Location End If End Sub Private Sub sizeGrip_MouseMove(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseMove If isResizing Then Me.Width += e.X - clickPoint.X Me.Height += e.Y - clickPoint.Y End If End Sub Private Sub sizeGrip_MouseUp(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseUp isResizing = False End Sub ``` 这段代码中，我们定义了一个布尔变量`isResizing`以及一个点对象`clickPoint`。在MouseDown事件中，当鼠标左键按下时，将`isResizing`设置为`True`，并保存当前鼠标的位置到`clickPoint`变量中。在MouseMove事件中，当`isResizing`为`True`时，通过计算鼠标当前位置和点击位置之间的差值，来调整表单的宽度和高度。在MouseUp事件中，将`isResizing`设置为`False`，以停止尺寸调整。 通过以上代码，我们就可以实现在VB.NET中自动标注尺寸的功能。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值