锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net存图.jpg vb显示图片怎么写代码

IT技术保存

VB将图片保存为jpg格式我正在用呀，没有任何问题！你的设置可能有问题！
Private Sub Command4_Click()
If Combo1.Text = "" Then
MsgBox "请您输入转换格式!!", 48, "提示信息"
Exit Sub
ElseIf Text2.Text = "" Or Text3.Text = "" Then
MsgBox "请选择转换前和转换后的文件路径!!", 48, "提示信息"
Exit Sub
Else
Me.MousePointer = 11
Command4.Enabled = False
Dim i, j, w, h, w1, h1, k As Integer
w = Picture1.Width
h = Picture1.Height
w1 = w / 15
h1 = h / 15
Picture2.Width = w
Picture2.Height = h
Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
For i = 1 To w1
For j = 1 To h1
Picture2.PSet (i, j), Picture1.Point(i, j)
Next j
Next i
Picture2.Picture = Picture2.Image
SavePicture Picture2.Image, Text3.Text"."Mid(Combo1.Text, 3, Len(Combo1.Text) - 1)
MsgBox "格式转换成功完成!!", 64, "提示信息"
Command4.Enabled = True
Me.MousePointer = 0
End If
End Sub
Private Sub Command2_Click()
On Error GoTo x
DHK1.Filter = "所有文件(*.*)|*.*"
DHK1.ShowOpen
Text2.Text = DHK1.FileName
Image1.Picture = LoadPicture(Text2.Text)
Picture1.Picture = Image1.Picture
Exit Sub
x:
MsgBox "无效图片！", 64, "提示信息"
End Sub
Private Sub Command3_Click()
DHK1.Filter = "所有文件(*.*)|*.*"
DHK1.ShowSave
Text3.Text = DHK1.FileName
【vb.net存图.jpg vb显示图片怎么写代码】End Sub
DHK1是CommonDialog控件
在VB.NET下面如何显示和保存缩放图像实现代码如下：
Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg")'tstImage是原先vb.net存图.jpg的图片
Dim grfx As Graphics = Me.CreateGraphics
grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3)'在Form里显示
Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3)'新建一个放大的图片
imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)'保存放大后图片
你可以建一个Formvb.net存图.jpg，然后在Form里拖进一个Buttonvb.net存图.jpg，把上面的代码放在Button_Click事件里面，执行就行了 。
对上面代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象 。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节 。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像 。
VB.net 如何保存图片 picturebox1.Image.Save使用Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If PictureBox1.Image Is Nothing Then Exit Sub
PictureBox1.Image.Save("xxx")
End Sub
请问VB.net中如何保存BMP/jpg图像我理解你
我写过图片网络传输的和你要求的一样
为了不把图片写到硬盘 又从硬盘读取
而直接保存图片内存流 进行网络传输
从网络读取的图片byte数组转成图片代码如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length)'这里b就是你的一维数组了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把图片保存到一维数组的方法
Dim Stream As New IO.MemoryStream
im.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
im = Nothing
Stream.Flush()
Dim b As Byte() = Stream.ToArray
Stream.Dispose()
请问VB.net下如何使用winsock udp协议发送图片 和接收图片并存为jpg格式winsock 发送图片vb.net存图.jpg，就是发送文件嘛 。

推荐阅读


上一篇：thinkphp做app，Thinkphp导航源码

下一篇：热血三国单机游戏，热血三国网游