PictureAndFiles: broncode

• Voor het selecteren van de map
  Private Sub Dir1_Change()
  File1.Path = Dir1.Path
  End Sub
  
  Private Sub Drive1_Change()
  File1.Path = Drive1.Drive
  End Sub
  
  
• Om de beelden te tonen
  Private Sub File1_Click()
  Select Case LCase(Right(File1.FileName, 4))
  Case ".ico", ".jpg", ".jpe", "jpeg", ".gif", ".bmp", ".wmf"
  picDisplay.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
  End Select
  End Sub
  
• Optioneel: de control aanpassen
  Private Sub Form_Resize()
  With picDisplay
  .Top = 0
  .Left = Me.Width / 3
  .Height = Me.Height
  .Width = Me.Width * 2 / 3
  End With
  Drive1.Width = Me.Width / 3 - 200
  Dir1.Width = Me.Width / 3 - 200
  File1.Width = Me.Width / 3 - 200
  End Sub
  

[VB Web] - [hlrnet] - [copyright]