关于图片框

[crystalgrace]

现在要完成一个将现有的图片框中的图片通过命令按钮的“放大”、“缩小”和“全屏”功能对图片框进行操作，请问需要用到图片框的哪些属性或方法

[lxcc]

保存到记事本，然后另存为form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4755
ClientLeft = 60
ClientTop = 345
ClientWidth = 5985
LinkTopic = "Form1"
ScaleHeight = 4755
ScaleWidth = 5985
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command6
Caption = "Command6"
Height = 495
Left = 1320
TabIndex = 6
Top = 4200
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "Command5"
Height = 495
Left = 120
TabIndex = 5
Top = 4200
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "Command4"
Height = 495
Left = 3720
TabIndex = 4
Top = 3600
Width = 1215
End
Begin VB.PictureBox Picture1
Height = 3255
Left = 2520
Picture = "Form1.frx":0000
ScaleHeight = 3195
ScaleWidth = 3195
TabIndex = 3
Top = 120
Width = 3255
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 495
Left = 2520
TabIndex = 2
Top = 3600
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 495
Left = 1320
TabIndex = 1
Top = 3600
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 120
TabIndex = 0
Top = 3600
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
'拷贝到窗体
Private Sub Command1_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, 0, 0, w, h, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub
'放大:
Private Sub Command2_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, 0, 0, w * 2, h * 2, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub
'缩小:
Private Sub Command3_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, 0, 0, w / 2, h / 2, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub
'例3: 翻转图片
'左右翻转
Private Sub Command4_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, w, 0, -w, h, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub
'上下翻转
Private Sub Command5_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, 0, 0, w / 2, h / 2, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub
'左右并且上下翻转
Private Sub Command6_Click()
Dim w As Integer, h As Integer
Me.ScaleMode = vbPixels
w = Picture1.Width
h = Picture1.Height
StretchBlt Me.hdc, w, h, -w, -h, Picture1.hdc, 0, 0, w, h, vbSrcCopy
End Sub

[射天狼]

楼上不错~

[Fengq]

cool

[juror]

我来看看