Nån som har nån idé hur man gör för att anpassa ett fönsters storlek efter innehållet? dvs ett pop-up fönster som innehåller en bild med height: xx och width: xx. Klistra in följande kod i ditt formulär:Anpassa fönster storlek??
[I asp-->explorer fönster]
*Joel!*Sv: Anpassa fönster storlek??
Private mPicture As StdPicture
Public Function ShowPicture(Picture As StdPicture, Optional Modal As Variant, Optional OwnerForm As Variant)
Set mPicture = Picture
Show Modal, OwnerForm
End Function
Private Sub Form_Load()
Set Picture = mPicture
Move Left, Top, ScaleX(mPicture.Width) + Width - ScaleWidth, ScaleY(mPicture.Width) + Height - ScaleHeight
End Sub
Du kan sedan anropa den så här:
Form2.ShowPicture LoadPicture("C:\Test.bmp")
Eller:
Form2.ShowPicture Picture1.Image
Du kan oxå skicka med parametrar till Show:
Form2.ShowPicture Picture1.Image, vbModal