vb.net存图.jpg vb加载图片路径

请问VB.net中如何保存BMP/jpg图像

我理解你

创新互联建站-云计算及IDC服务提供商，涵盖公有云、IDC机房租用、德阳服务器托管、等保安全、私有云建设等企业级互联网基础服务，电话联系：13518219792

我写过图片网络传输的和你要求的一样

为了不把图片写到硬盘 又从硬盘读取

而直接保存图片内存流 进行网络传输

从网络读取的图片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 发送图片，就是发送文件嘛。

不过UDP协议每次最多只能发送8K，所以你要先读取文件，建立以个byte（）数组 然后第一次发送是从数组的0-8100这个范围，下次再发送的时候将再从8101开始发送，长度仍未8100就可以了。用一个while 循环来判断文件有没有发送完成就行了。对于接收端，在接收的时候也是要用一个循环来写文件，前提是你必须先把要发送的文件的长度告诉接收端。说的够详细了吧！

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

End Sub

DHK1是CommonDialog控件