保持图片和图片框一致的方法收藏

众所周知，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

保持图片和图片框一致的方法收藏相关推荐

ppt图片在word中不能正常显示，只显示为矩形框的解决方法
ppt图片在word中不能正常显示,只显示为矩形框的解决方法参考文章: (1)ppt图片在word中不能正常显示,只显示为矩形框的解决方法 (2)https://www.cnblogs.com/ga ...
图片怎么等比缩放_图片300kb，50kb压缩【方法笔记】
我们(或者我们身边要你帮忙的朋友)经常遇到一些网络实名注册(考各种证.学籍电子档案之类的)要求上传本人头像照片,并且要求把图片压缩至300kb或50kb以内.很多不擅长这方面的朋友还需要请别人帮忙,以 ...
图片放大不模糊的解决方法
图片放大不模糊的解决方法!小编作为一名互联网运营人员,每天要使用很多的图片素材,也要处理很多的图片素材,比如转换图片格式,修改图片尺寸大小等.将图片尺寸放大虽然是一个比较简单的操作,却有一个难以解决的 ...
web自动化测试图片上传的两种方法
web自动化测试图片上传的两种方法: 通过input标签的,如: <!DOCTYPE html> <html lang="en"> <head> ...
el-upload 自定义请求上传图片，达到上传数量限制后，隐藏图片上传框
需求:1.图片上传请求的时候使用自定义 2.上传数量1张,上传了1张之后,隐藏上传框步骤: 1.把 action 赋值为#字符串添加 :http-request" 3.通过添加disab ...
PS图片去除文字的六个方法（图文）
PS图片去除文字的六个方法(图文) http://tieba.baidu.com/f?kz=395126968 1.使用仿制图章工具去除文字. 选取仿制图章工具,按住Alt键,在无文字区域点击相似的色 ...
wps图片与图片间距怎么调整_wps文档插入图片怎样中间空隙具体方法介绍
1."word里插入图片,默认图片与图片之间是有空隙的.点击导航 [页面布局].点击段落右下角小箭头. 2.打开段落设置.行距:选择"单倍行距",然后把下面"如 ...
python人工智能文字识别软件_怎么用Python人工智能识别图片-百度AI文字识别使用方法分享 - Iefans...
如果你是个Python初学者,那么你可以试着做做看这个教程,毕竟编程技能都是在实战中成长的,这篇教程是教你如何用Python来进行人工智能识别图片,可以帮助你解决日常办公时遇到的图片转换文字的问题. ...
如何缩小图片大小kb，6个方法助你快速处理
如何缩小图片大小kb的意思就是缩小图片大小.其实缩小图片大小在现代互联网时代中具有非常重要的作用.其主要作用包括:首先,原始图片通常比较大,会占用网络传输和存储资源.通过缩小图片大小,能够有效减小图片 ...

保持图片和图片框一致的方法收藏

保持图片和图片框一致的方法收藏相关推荐

最新文章

热门文章

保持图片和图片框一致的方法 收藏

保持图片和图片框一致的方法 收藏相关推荐

最新文章

热门文章

保持图片和图片框一致的方法收藏

保持图片和图片框一致的方法收藏相关推荐