fra picture til image ???

Er det det her du mener?

Image.Picture = Picture.Picture

problemet er det at simon ikke har skrevet det hele! Det der sker er:

Vi går ind og henter en desktops baggrund med API\'kaldet:
public Declare function PaintDesktop Lib \"user32\" (ByVal hDC as long) As Long

og putter så den baggrund ind i en pictureBox! Problemet med denne pictureBox er bare at kun et lille hjørne bliver vist i stedet for, som vi gerne ville have det, at billedet blev forminsket!!

Simon mener at det er muligt at lave den forminskning med imagebox\'en så derfor vil vi gerne have den derover!

Er der en nemmere måde??? 

baggrunden bliver foresten puttet ind i pictureboxen ved hjælp af:

PaintDesktop pictureBox.hDC

Dette kan ikke gøres med en imagebox da den ikke har .hDC

Jeg har brugt denne kode i et af mine programmer:
Maxhen og Manned angiver den maksimale størrelse af billedet
If MaxHen < 1 Then
    MaxHen = Show.Picture1.Width
End If
If MaxNed < 1 Then
    MaxNed = Show.Picture1.Height
End If
FactorHen = Show.Picture1.Width / MaxHen
FactorNed = Show.Picture1.Height / MaxNed
If FactorHen > FactorNed Then
    PicFactor = FactorHen
    Else
    PicFactor = FactorNed
End If
Show.Image1.Visible = False
Show.Image1.Picture = Show.Picture1.Picture
Show.Image1.Width = Show.Picture1.Width / PicFactor
Show.Image1.Height = Show.Picture1.Height / PicFactor
Show.Height = Show.Image1.Height
Show.Width = Show.Image1.Width

Picture1 skal naturligvis ikke være synlig. Show er blot navnet på min form og skal derfor naturligvis ændres så det passer til dit eksempel

Det skal nævnes, at \'stretch\' skal sættes til true i image1, og at autosize i picture1 skal sættes til true, samt at visible i picture1 skal sættes til false.


Følgende rutine skal indsættes i et modul, der er ændret lidt i forhold til ovenstående):


Public Sub vis(Maxhen As Single, Maxned As Single)
If Maxhen < 1 Then
    Maxhen = Show.Picture1.Width
End If
If Maxned < 1 Then
    Maxned = Show.Picture1.Height
End If
FactorHen = Show.Picture1.Width / Maxhen
factorNed = Show.Picture1.Height / Maxned
If FactorHen > factorNed Then
    Picfactor = FactorHen
    Else
    Picfactor = factorNed
End If
Show.Image1.Visible = False
Show.Image1.Picture = Show.Picture1.Picture
Show.Image1.Width = Show.Picture1.Width / Picfactor
Show.Image1.Height = Show.Picture1.Height / Picfactor
Show.Image1.Visible = True

End Sub

modulet kaldes med fx følgende

vis 2400, 2600

takker