vb.net贴图 vb窗体加载图片

VB.NET加载图片问题

'先建立一个bitmap对象，指向图像文件

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定义一个图片框的graphics对象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在图片框上绘图

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'释放bitmap对象

pic.Dispose()

'现在即可对文件进行操作

相关问答

Q1: vb中，标签控件有没有picture 属性？能够设置背景图片么？

有一个图片标签vb.net贴图，不过近似于贴图vb.net贴图，应该能用啊

Q2: vbnet粘贴功能如何限定图像大小

你是要把图像缩小以适应picturebox?

PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(picView.Image)

g.DrawImage(Clipboard.GetImage(), 0, 0, PictureBox1.Width, PictureBox1.Height)

g.Dispose()

Q3: 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

Q4: vb.net 如何在word文档的指定位置插入图片

会用VBA吗，先在word里面插入图片录制宏，然后将录制vb.net贴图的VBA代码修改成.net代码就可以vb.net贴图了

Q5: vb.net 怎样设置在控件中显示的背景图片

VB.net要在Picture中Label显示透明色，如下示例：DimLabel_1AsNewLabel()WithLabel_1.Height=20.Width=100.Text="动态添加Label控件.".Left=9.Top=9.BackColor=Color.TransparentEndWithMe.PictureBox1.Controls.Add(Label_1)如图你可以看到效果.在代码任意处加上事件就行了PrivateSubLabel_1_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesLabel_1.mouseMove...EndSub

vb.net贴图的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb窗体加载图片、vb.net贴图的信息别忘了在本站进行查找喔。