該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

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

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的image vb6 图片自适应_请问如何实现图片在窗体上的大小自适应？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。