重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim bitmap1 As New Bitmap("D:\image\0183.jpg")‘panel1.backgroundimage
为庆城等地区用户提供了全套网页设计制作服务,及庆城网站建设行业解决方案。主营业务为成都网站制作、成都做网站、庆城网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
Dim bitmap2 As New Bitmap(294, 294)’保存图,也就是绘制的大小。
Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘昨天的问题,这里似乎写错了,当然也不算错,只是把新图(小图)扩展成原图大小(大图),这里改正为新图的原大小。
Dim rect2 As New Rectangle(New Point(6, 6), bitmap2.Size)
Dim g As Graphics = Graphics.FromImage(bitmap2)
e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
g.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
bitmap2.Save("d:\a.png", Drawing.Imaging.ImageFormat.Png)
其实方法是去解析GIF文件,如果楼主觉得麻烦,可以到网上去下个别人做好了的GIF控件(类)。
winsock 发送图片,就是发送文件嘛。
不过UDP协议每次最多只能发送8K,所以你要先读取文件,建立以个byte()数组 然后第一次发送是从数组的0-8100这个范围,下次再发送的时候将再从8101开始发送,长度仍未8100就可以了。用一个while 循环来判断文件有没有发送完成就行了。对于接收端,在接收的时候也是要用一个循环来写文件,前提是你必须先把要发送的文件的长度告诉接收端。说的够详细了吧!
1.我有个思路可以尝试一下:把一张字节数在280-300K的图片用PS打开看看像素大小;
2.定义一个新的位图,指定像素大小为上面得到的数据;
3.读取你需要修改大小的JPG文件,然后按指定大小复制到上面新建的位图,并保存为JPG格式