Baggrundsbilled i en form?

Hej.

Jeg kender kun en metode, hvor billedet skal være stort nok til at fylde hele formen.
form1.Picture = LoadPicture(sti & "filnavn.jpg")

M.v.h. Jørn

Og så under formens resize-event sætte width og height på Picture1 lig med formens width og height - så billedet altid har samme størrelse som formen, også når den resizes. Husk at tave højde for vbminimized - er formens windowstate = vbminimized skal du ikke resize picture1, så går det galt :o)

tave = tage

Nej.... jeg vil hellere at den ligesom bliver kopieret flere gange, sådan at hvis det er et lille billed, så opfører den sig lidt ala Windows backgrounden....

No can do!

Så skal du programmere det selv, og oprette en masse små pictureboxes...

(Kun 99,9% sikker - måske KAN man gøre noget andet, men det bliver ikke standard VB programmering...)

Kan du ikke smække en hurtig kode ind til hvodan jeg kopier en picture flere gange?

Der er noget der hedder PictureClip..... kan man bruge den til noget???

Hvis du ikek skal resize din form, kan du jo gøre det i designtime:
  Ctrl+C og Ctrl+V

I runtime kan du oprette nye kontroller, som dette spørgsmål fint illustrerer:

http://www.eksperten.dk/spm/339075

"Der er noget der hedder PictureClip..... kan man bruge den til noget???"

Det kan man sikekrt - jeg ved bare ikke til hvad...

Pictureclip - er det en property på hvilket objekt, eller hvad er det for noget?

Nej det er en Component, man kan indsætte

Kender den ikke...

Men ledte lidt:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusingpictureclipcontrol.asp

Så jeg æder mine ord i mig igen, og glæder mig over at jeg lod døren stå på klem, og kun sagde at jeg var 99,9% sikker :o)

Så lærte jeg i øvrigt også noget i dag :o)

'---------------------- Form1 ----------------------
' Husk at sette Form1 AutoRedraw til False og sette en ImageBox på Form1
Option Explicit

Private Sub Form_Load()
  'Image1.Picture = LoadPicture("C:\Billede.jpg")
End Sub

Private Sub Form_Paint()
Dim X As Integer
Dim Y As Integer
  With Image1 '<-- Image som skal sette side om side
      .Visible = False
      For X = 0 To Me.ScaleWidth Step .Width
        For Y = 0 To Me.ScaleHeight Step .Height
          PaintPicture .Picture, X, Y
        Next Y
      Next X
  End With
End Sub
'---------------------- Form1 ----------------------

FEDT!!!!

Tak Tak!!!