xeng
Typ:
neutral
Postów: 102
Zarejestrowany: May 2002
|
|
Nie Zastosowałem Tam PaintPicture.Tylko:
'Jezli w module:
Public 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
'I jedna stała np
Public Const SRCCOPY = &HCC0020
'W formie np:
Private sub Form_Load()
BitBlt (PictureBox docelowy).hdc, 0, 0, 150, 80, (picturebox żrudłowy).hdc, 0, 0, _ SRCCOPY
(picturebox docelowy).Refresh
end sub
Oczywiscie nazwy Picturebox'ów bez nawiasów.
Poniżej  :
hDestDC: uchwyt obiektu docelowego (tego, do którego wklejamy obrazek)
x: współrzędna x punktu, od którego zacznie się wklejanie w obiekcie docelowym
y: współrzędna y punktu, od którego zacznie się wklejanie w obiekcie docelowym
nWidth: szerokość kopiowanego obrazu
nHeight: wysokość kopiowanego obrazu
hSrcDC: uchwyt kopiowanego obiektu, skąd pochodzi obraz
xSrc: współrzędna x lewego górnego narożnika obrazu w obiekcie źródłowym
ySrc: współrzędna y lewego górnego narożnika obrazu w obiekcie źródłowym
[Post edytowany dnia 09-06-2002 17:54 przez xeng]
_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.
|