Capra crapa piatra-n 4 ;)

Am un atasament in el este un picturebox si 4 imagebox-uri ... stie cineva cum sa impart picturebox-ul in 4 bucati  separate in imagebox-uri  
Downloadeaza atasamentul vei intelege    Multumesc !

Nimeni nu stie ? imposibil asa ceva ...  un mic script vreau  ... incomplet  cum o fi ..  o idee ...    !

Edited by freshmeat, 15 December 2007 - 14:06.

BitBlt, vezi attach  

 picturex4.jpg   14.95K   37 downloads

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()
 Picture2(0).AutoRedraw = True
 Picture2(1).AutoRedraw = True
 Picture2(2).AutoRedraw = True
 Picture2(3).AutoRedraw = True
 
 BitBlt Picture2(0).hDC, 0, 0, 23, 23, Picture1.hDC, 0, 0, &HCC0020
 Picture2(0).Refresh
 
 
 BitBlt Picture2(1).hDC, 0, 0, 23, 23, Picture1.hDC, 23, 0, &HCC0020
 Picture2(1).Refresh

 BitBlt Picture2(2).hDC, 0, 0, 23, 23, Picture1.hDC, 0, 23, &HCC0020
 Picture2(2).Refresh
 
 
 BitBlt Picture2(3).hDC, 0, 0, 23, 23, Picture1.hDC, 23, 23, &HCC0020
 Picture2(3).Refresh
 
 Picture2(0).AutoRedraw = False
 Picture2(1).AutoRedraw = False
 Picture2(2).AutoRedraw = False
 Picture2(3).AutoRedraw = False
End Sub

 picture_cut.rar   2.87K   12 downloads

Succes  

RAZ, on Dec 17 2007, 23:35, said:

Merge perfect multumesc mult !  

Cu placere