title image


Smiley Re: Formularhintergrund füllen
1. Erstelle ein Image auf Deiner Form, und setze die Picture-Eigenschaft auf Dein Bildchen. Das Bildchen sollte zum "kacheln" gut geeignet sein, also sozusagen ein "Endlos Muster".2. Füge Deinem Form-code folgende Prozedur hinzu: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 Integer FillIt.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 Sub3. Schreibe folgenden Code in das Form_Load Ereigniss:Kacheln Image1, MeStatt Image1 schreibst Du natürlich den entsprechenden Image-Namen...
Vielen Dank für eure Hilfe! Gruss Cornelia

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: