保持图片和图片框一致的方法 收藏
来源:互联网 发布:教育软件平台 编辑:程序博客网 时间:2024/06/11 02:44
众所周知,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
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/SYSSZ/archive/2009/05/24/4211881.aspx
- 保持图片和图片框一致的方法 收藏
- 保持图片和图片框一致的方法
- FLASH CS 中图片变为透明,和舞台颜色一致的方法
- android图片降低图片大小保持图片清晰的方法
- 一种TextView插入图片的途径(图片的显示高度和文字高度一致)
- 收藏的图片
- ImageView保持前景src和ImageView的高度一致
- 保持两表数据一致的触发器事例 转贴收藏
- Android压缩图片并保持不失真的高效方法以及为图片添加水印
- C# 判断两张图片是否一致的两种方法
- ugui 缩放图片使图片的四个角和四边保持原样
- 图片收藏
- Android和Ios使用md5对图片加密校验一致
- C# 保持图片的缩放比例
- C#比较图片是否一致
- 判断两张图片一致
- Redis 如何保持和MySQL数据一致
- dedecms 图片上传插件保持图片的规则是什么?
- 反射
- Ubuntu安装DB2出现错误
- 从底层了解ASP.NET体系结构
- inline:我应该把你放在哪?
- VB中使用PNG格式图片的一种新方法
- 保持图片和图片框一致的方法 收藏
- 如何用schema验证xml(MSXML),简单VC代码
- NetBeans 6.0中的缩写展开快捷键
- 查询记录数大于10万条的所有表的表名称
- opencms分页问题
- 注册公司的步骤及费用
- flex实现手写在线签名
- DVS和DVR
- 做人、做事,做架构师——架构师能力模型解析