锐客网

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

vb.net生成图片 vbs图片代码

IT技术生成

vb.net(2008)把图片(或其它类型文件)转换成字符串存入.txt文件中，并从.txt中读出生成图片这个做法应该是图方便的加密解密做法 。按你的C#代码来改的话是这样的 。
'Imports System.IO
Public Function MapPath(ByVal virtualPath As String) As String
' Return System.Web.Hosting.MapPath(virtualPath)
' 猜想是这个 MapPath 函数
' 如果不是那就自己还原原来C#代码里的那个MapPath
End Function
Public Sub GetImage()
Dim s As System.IO.Stream = System.IO.File.Open(MapPath("33.jpg"), System.IO.FileMode.Open)
Dim leng As Integer = 0
If s.LengthInt32.MaxValue Then
leng = s.Length
End If
Dim by(leng) As Byte
s.Read(by, 0, leng) ' 把图片读到字节数组中
s.Close()
Dim str As String = Convert.ToBase64String(by) ' 把字节数组转换成字符串
Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(MapPath("11.txt")) ' 存入11.txt文件
sw.Write(str)
sw.Close()
sw.Dispose()
End Sub
' 把字符串还原成图片
Public Sub CreateImg()
Dim sr As New System.IO.StreamReader(MapPath("11.txt"))
Dim s As String = sr.ReadToEnd()
sr.Close()
Dim buf As Byte() = Convert.FromBase64String(s) ' 把字符串读到字节数组中
Dim ms As New System.IO.MemoryStream(buf)
Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)
img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
ms.Close()
ms.Dispose()
End Sub
Visual studio(简称VB.NET）PictureBox里有一副图片，怎样拖出桌面生成一个图片文件阿 。貌似这样做不到vb.net生成图片，因为拖到桌面以后，就是系统来处理这个事件了 ， 脱离VB.netvb.net生成图片的掌控了 。如果是从桌面拖文件到Picturebox里是可以vb.net生成图片的 。
建议vb.net生成图片你可以在Picturebox上建立右键菜单，内容是“生成文件到桌面” ， 这样好做一点，不要自己找虐 。
vb.net中 ， 如何像下图一样 ， 用很简单的办法，导入1000张图片 。很简单的方法vb.net生成图片，貌似没有 。这个需要自己写很多代码：
用一个ListView控件 。
判断滚动条当前所显示的图片集合vb.net生成图片，获取它们的物理路径 。
用Bitmap.FromImage方法把这些图片读出来vb.net生成图片，
然后获取缩略图vb.net生成图片，
【vb.net生成图片 vbs图片代码】把缩略图用Graphics.DrawImage()绘制出来 。
vb.net生成图片我可以提供Bitmap如何获取缩略图的方法：
''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递 ， 但不使用此委托 。/summary
Public Function ThumbnailCallback() As Boolean
Return False
End Function
''' summary返回Image ， 表示图像指定 宽 和 高 的缩略图 。/summary
Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image
Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)
Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)
End Function
VB.NET 动态创建picturebox后如何用其image属性这样了：
CType(Me.Controls("PictureBox11"), PictureBox).Image = My.Resources.image1
Find 返回数组，元素类型为Object 。
Item() 可以把控件名作关键字 ， 但也返回Object 。这个方法是默认的 ， 可以省略 。
CType 转换引用类型 。
大概如此，我是2008，没vb6那般的控件数组 。
vb.net 图形创建与保存问题 。详见问题补充 。Dim bmp As New Bitmap("打开图片的路径")
bmp.Save("保存图片的路径")
Dim t As New TextBox()

推荐阅读


上一篇：新换的电脑怎么连接路由器，换了新电脑怎么连接宽带

下一篇：python直接输出16进制，python打印16进制数