正文
vb.net读入图片 vb加载图片路径
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net中，如何像下图一样，用很简单的办法，导入1000张图片。
很简单的方法，貌似没有。这个需要自己写很多代码：
用一个ListView控件。
判断滚动条当前所显示的图片集合，获取它们的物理路径。
用Bitmap.FromImage方法把这些图片读出来，
然后获取缩略图，
把缩略图用Graphics.DrawImage()绘制出来。
我可以提供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
相关问答
Q1: VB.NET从数据库中读取图片出现“Parameter is not valid”
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看这句中vb.net读入图片的,'@picture_area ')",多个单引号vb.net读入图片了,被当成VARCHAR处理了.去了单引号才是变量.
Q2: 怎么用VB.NET读取图片中的数据到CSV文件中
图片数据其实就是一组二进制数据。vb.net读入图片你要存到csv中应该是字符串格式。很少见这样vb.net读入图片的存储方式。vb.net读入图片你可以把数据存储在数据库中vb.net读入图片的呀。存取图片就很好搞vb.net读入图片了
Q3: 由用户选定vb.net的picturebox载入图片
1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体，此处设定其名称为OpenDlg和SaveDlg；
2 触发Button的点击事件，或PictureBox的点击事件，其对应的方法
OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式
If OpenDlg.ShowDialog() = DialogResult.OK Then
Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)
EndIf
3 保存图片
If SaveDlg.ShowDialog = DialogResult.OK Then
Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式
EndIf
纯手打，若拼写错误，那是很正常的。还有问题， 请追问。
Q4: vb.net如何读取oracle数据库中的图片
Public Sub Combo1_Click()
Dim adoCnn As ADODB.Connection
Dim rstOra As ADODB.Recordset
Dim intI As Integer
Set adoCnn = New ADODB.Connection
Set rstOra = New ADODB.Recordset
adoCnn.ConnectionString = "Provider=OraOLEDB.Oracle;User ID=dzjc;password=zlkj;Data Source=dzjc_2005;" '读blob字段要用Provider=OraOLEDB.Oracle
adoCnn.CursorLocation = adUseClient
adoCnn.Open
rstOra.CursorLocation = adUseClient
rstOra.ActiveConnection = adoCnn
rstOra.Open "SELECT zp FROM dzjc.dzjc_wfzp WHERE xh = '5'"
'Set Image1.DataSource = rstOra
Set Image1.Picture = PictureFromByteStream(rstOra.Fields("zp").Value)
End Sub
Q5: VB.NET加载图片问题
'先建立一个bitmap对象vb.net读入图片，指向图像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框vb.net读入图片的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'释放bitmap对象
pic.Dispose()
'现在即可对文件进行操作
关于vb.net读入图片和vb加载图片路径的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
