billede i picturebox

Option Explicit

Private Sub Form_Load()
Dim strPath As String
Dim lHeight As Long
Dim lWidth As Long

  strPath = "c:\test.bmp"
  lWidth = 100
  lHeight = 100

  With Picture1
      .AutoRedraw = True
      .AutoSize = True
      .ScaleMode = vbPixels
      .PaintPicture LoadPicture(strPath), 0, 0, lWidth, lHeight
  End With
End Sub

fejl med AutoSize virker ikke. :-)

Option Explicit

Private Sub Form_Load()
Dim strPath As String
Dim lHeight As Long
Dim lWidth As Long

  strPath = "c:\test.bmp"
  lWidth = 100
  lHeight = 100

  With Picture1
      .AutoRedraw = True
      .ScaleMode = vbPixels
      .PaintPicture LoadPicture(strPath), 0, 0, lWidth, lHeight
      .Width = (lWidth * Screen.TwipsPerPixelY)
      .Height = (lHeight * Screen.TwipsPerPixelY)
  End With
End Sub

det er vist ikke min dag i dag :-)


Option Explicit

Private Sub Form_Load()
Dim strPath As String
Dim lHeight As Long
Dim lWidth As Long

  strPath = "c:\test.bmp"
  lWidth = 100
  lHeight = 100

  With Picture1
      .AutoRedraw = True
      .ScaleMode = vbPixels
      .PaintPicture LoadPicture(strPath), 0, 0, lWidth, lHeight
      .Width = (lWidth * Screen.TwipsPerPixelX)
      .Height = (lHeight * Screen.TwipsPerPixelY)
  End With
End Sub

du skal nok også lægge sjh's paintpicture kommando int under paint enventen på dn picturebox