image vb6 图片自适应_请问如何实现图片在窗体上的大小自适应？

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Private Type LOGBRUSH

lbStyle As Integer

lbColor As Long

lbHatch As Long

End Type

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Private Declare Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function ExtCreatePen Lib "gdi32" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As Any, ByVal dwStyleCount As Long, ByVal lpStyle As Any) As Long

Const PS_GEOMETRIC = &H10000

Const PS_SOLID = 0

Const PS_ENDCAP_MASK = &HF00

Const BS_PATTERN = 3

Const BS_PATTERN8X8 = 7

Const DIB_RGB_COLORS = 0

Private Sub Form_Paint()

Dim lOldBrush As Long

Dim lOldPen As Long

Dim lBrush As Long

Dim lPen As Long

Dim l1 As Long

Dim ap As POINTAPI

Dim tLogBrush As LOGBRUSH

lBrush = CreatePatternBrush(LoadPicture(App.Path & "\Image.jpg"))

lOldBrush = SelectObject(Me.hdc, lBrush)

If ExtFloodFill(Me.hdc, 3, 0, 25&, 0&) Then

End If

lBrush = SelectObject(Me.hdc, lOldBrush)

If DeleteObject(lBrush) Then

End If

End Sub

Private Sub Form_Load()

Dim imgPath As String

If Right(App.Path, 1) <> "\" Then

imgPath = App.Path & "\Image.jpg"

Else

imgPath = App.Path & "Image.jpg"

End If

If Dir(imgPath) <> "" Then Call Form_Paint

End Sub