title image


Smiley Re: Bild gekachelt in die Picturebox
Hallo erstmal,



einen Kacheleffekt kannst du mit dieser Sub erreichen:



Public Sub TileBitmap(source As Object, destination As Object)

Dim iOldScaleMode As Integer

Dim y As Integer

Dim x As Integer



On Error GoTo Err_Handler



'Aktuellen Scale Mode speichern

'-----------------------------

iOldScaleMode = destination.ScaleMode



'Scale Mode auf Pixels

'-----------------------------

destination.ScaleMode = 3

source.ScaleMode = 3



For y = 0 To destination.ScaleHeight Step source.ScaleHeight

For x = 0 To destination.ScaleWidth Step source.ScaleWidth

destination.PaintPicture source.Picture, x, y

Next x

Next y



destination.ScaleMode = iOldScaleMode

Exit Sub



Err_Handler:

MsgBox "Fehler-Nr.: " + CStr(Err.Number) + vbCr + _

Err.Description + " !"

End Sub





Aufruf mit:



Call TileBitmap(Picture1, Picture2)



wobei Picture1 eine PictureBox ist, die das zu kachelde

bmp enthält und Picture2 die ZielPictureBox (man könnte sogar auch ein Formular kacheln).





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: