如何使VB中PictureBox 控件加载的图片大小与PictureBox框架大小一致？（不用image控件）

[michelle_t87]

如何使VB中PictureBox 控件加载的图片大小与PictureBox框架大小一致？（不用image控件）

[dbcontrols]

Me.Height = Picture1.Top + Picture1.Height + 480
Me.Width = Picture1.Left + Picture1.Width + 210
If Me.Height <= 4620 Then Me.Height = 4620
If Me.Width <= 3015 Then Me.Width = 3015
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

[东方之珠]

须要2个PictureBox控件，其中一个隐藏，另外一个用StretchBlt缩放显示即可。

[贝隆]

[Quote=引用 2 楼 chenjl1031 的回复:]
须要2个PictureBox控件，其中一个隐藏，另外一个用StretchBlt缩放显示即可。
[/Quote]
＋1

[michelle_t87]

[Quote=引用 2 楼 chenjl1031 的回复:]

须要2个PictureBox控件，其中一个隐藏，另外一个用StretchBlt缩放显示即可。
[/Quote]

能否给个代码实例？谢谢~

[贝隆]

Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Form_Click()
    Dim lngP As Long
    Picture2.Cls
    lngP = StretchBlt(Picture2.hdc, 0, 0, Picture2.ScaleWidth \ 15, Picture2.ScaleHeight \ 15, Picture1.hdc, 0, 0, Picture1.ScaleWidth \ 15, Picture1.ScaleHeight \ 15, vbSrcCopy)
End Sub

Private Sub Form_Load()
    
    Picture1.AutoSize = True
    Picture2.AutoRedraw = True
    Picture1.Picture = LoadPicture("C:\1.bmp")
    
End Sub

[michelle_t87]

[Quote=引用 5 楼 veron_04 的回复:]

VB code

Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVa……
[/Quote]
我刚刚试了一下 这样加载的图片不是原始图片按比例缩放 而是显示了一部分图片 是怎么回事呢?

[dbcontrols]

同问

[Quote=引用 7 楼 michelle_t87 的回复:]
引用 5 楼 veron_04 的回复:

VB code

Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, B……
[/Quote]

[东方之珠]

Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
    Call StretchBlt(Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020)
End Sub

Private Sub Form_Load()
    Picture1.AutoSize = True
    Picture1.AutoRedraw = True
    Picture1.ScaleMode = 3
    Picture1.Visible = False
    Picture1.Picture = LoadPicture("c:\123.JPG")'事先加载一张图片
    Picture2.ScaleMode = 3
    Picture2.Visible = True
End Sub

[michelle_t87]

[Quote=引用 9 楼 chenjl1031 的回复:]

VB code
Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal……
[/Quote]
我是通过一个filedlg 打开加载图片的 还是出现上面那个问题 一定要事先加载一副照片吗？

[东方之珠]

[Quote=引用 10 楼 michelle_t87 的回复:]
引用 9 楼 chenjl1031 的回复:

VB code
Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, B……
[/Quote]
可以通过打开对话框加载图片。

[michelle_t87]

[Quote=引用 11 楼 chenjl1031 的回复:]

引用 10 楼 michelle_t87 的回复:
引用 9 楼 chenjl1031 的回复:

VB code
Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Lo……
[/Quote]
谢谢 只是还是会出现显示的问题 。。。