title image


Smiley Re: Picture auf Form kacheln?!
Hallo RaGe666Hier ist der Quellcode. Ich habe Ihn bekommen, als ich genau die gleiche Frage mal gestellt hatte.Private Sub Kacheln(Kachel As Object, FillIt As Object)Dim lBreiteK As LongDim lHöheK As LongDim iMengeX As IntegerDim iMengeY As IntegerDim iMengeG As IntegerDim iRunter As IntegerDim iRechts As IntegerFillIt.AutoRedraw = TrueKachel.Top = 0Kachel.Left = 0lBreiteK = Kachel.WidthlHöheK = Kachel.HeightiMengeX = Int(FillIt.ScaleWidth / lBreiteK) + 1iMengeY = Int(FillIt.ScaleHeight / lHöheK) + 1iMengeG = iMengeX * iMengeYFor iRunter = 0 To iMengeY For iRechts = 0 To iMengeX FillIt.PaintPicture Kachel.Picture, lBreiteK * iRechts, lHöheK * iRunter, lBreiteK, lHöheK, 0, 0, lBreiteK, lHöheK NextNextEnd SubDu must ein neues Picture erstellen. Dann musst du die Prozedur wie folgt aufrufen.Call Kacheln(Picture1, Form1) 'Also welches Bild gekachelt werden soll und wohinViel SpassMarkus

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: