Horizontální a vertikální zrcadlení obrázku |
![]() |
Postup: Na formulář vložte dva PictureBoxy a dvě tlačítka. Poté deklarujte: Const SRCCOPY =
&HCC0020 Private Declare Function
SetPixel Lib "GDI32" (ByVal hDC As _ Private Declare Function
GetPixel Lib "GDI32" (ByVal hDC As _ Private Declare Function
StretchBlt% Lib "GDI32" (ByVal hDC%, _ Sub Form_Load () picture1.ScaleMode
= 3 End Sub Sub Command1_Click
() picture2.Cls End Sub Sub Command2_Click
() picture2.Cls End Sub |
![]() |
Autor: The Bozena |