十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
为啥不能显示?我试过,如果图像文件的名字很奇怪,就不能显示,VB 不支持它。你改个很一般的名字即可。图像不需要用资源文件,用 ImageList 控件:
创新互联建站专注于企业全网整合营销推广、网站重做改版、舞阳网站定制设计、自适应品牌网站建设、H5技术、商城开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为舞阳等各大城市提供网站开发制作服务。
Me.BackGroundImage = 图像列表.Images(0)
很简单,点击菜单“项目”--“WindowsApplication1属性”
在属性面板里点“资源”,这里可添加字符串资源、图片资源、多媒体资源等等。
使用资源很简单,举例如下:
Label1.Text = My.Resources.String1
PictureBox1.Image = My.Resources.小猫
很简单的方法,貌似没有。这个需要自己写很多代码:
用一个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