保持图片和图片框一致的方法
来源:互联网 发布:国产户外 知乎 编辑:程序博客网 时间:2024/06/02 18:26
众所周知,VB的picture控件没有Stretch属性,加载在picture中的图片往往不是比picture小,就是比picture大,图片比picture小时不能充满整个picture,比picture大时图片不能完全显示。很不方便,下面的代码可以解决这个问题,给你带来方便。
'模块代码:
Option Explicit
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Dim bm As BITMAP
Dim hBmp As Long
Public Sub SameToPicture(ByRef pic As PictureBox, ByVal Ifilename As String)
pic.Picture = LoadPicture(Ifilename)
hBmp = pic.Picture.Handle
GetObject hBmp, LenB(bm), bm
pic.Width = bm.bmWidth * Screen.TwipsPerPixelX
pic.Height = bm.bmHeight * Screen.TwipsPerPixelY
End Sub
Public Sub SameToPic(ByRef pic As PictureBox, ByVal Ifilename As String)
pic.Picture = LoadPicture(Ifilename)
pic.PaintPicture pic.Picture, 0, 0, pic.Width, pic.Height, 0, 0
End Sub
'窗体代码:
Private Sub Command1_Click()
SameToPicture Picture1, App.Path & "/" & "124.jpg"
Picture1.Move 0, 0
End Sub
Private Sub Command2_Click()
SameToPic Picture1, App.Path & "/" & "124.jpg"
Picture1.Move 0, 0
End Sub
- 保持图片和图片框一致的方法
- 保持图片和图片框一致的方法 收藏
- FLASH CS 中图片变为透明,和舞台颜色一致的方法
- android图片降低图片大小保持图片清晰的方法
- 一种TextView插入图片的途径(图片的显示高度和文字高度一致)
- ImageView保持前景src和ImageView的高度一致
- Android压缩图片并保持不失真的高效方法以及为图片添加水印
- C# 判断两张图片是否一致的两种方法
- ugui 缩放图片使图片的四个角和四边保持原样
- Android和Ios使用md5对图片加密校验一致
- C# 保持图片的缩放比例
- C#比较图片是否一致
- 判断两张图片一致
- Redis 如何保持和MySQL数据一致
- dedecms 图片上传插件保持图片的规则是什么?
- c#图片生成缩略图,保持最高清的图片
- Html显示图片时,超过规定尺寸大小,则同比缩放图片显示,保持页面不变形的方法
- js 保持图片
- 读【深度探索C++对象模型】【上】
- JavaScript分页打印代码
- 驱动开发环境VS2005+DDK2003+DriverStudio3.2配置
- 转帖:其它入库单据保存
- const的用法
- 保持图片和图片框一致的方法
- 关于Driver Studio 3.2 的安装详解
- NFS服务器配置
- u-boot编译
- 中国java开源界最可爱的人们
- Bug-把客户端时间当做服务器时间来使用!
- ConcurrentHashMap:一个更好的HashMap
- 忘れてみて
- vc6+DDK+DriverStudio3.2安装与配置