众所周知,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,pic.Width,pic.Height,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,0
End Sub
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/SYSSZ/archive/2009/05/24/4211881.aspx
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。