OpenFile_Click

  64 Private Sub OpenFile_Click()
  65 ' User has clicked the "Open picture..." command button
  66 
  67 Dim Filename As String
  68 
  69 ' Ask the user to select a picture file
  70 Filename = ShowFileOpenDialog(Me.hWnd, "", "Picture files (*.gif;*.bmp)|*.gif;*.bmp")
  71 
  72 If Len(Filename) Then
  73     ' We have received a filename to open
  74     DisplayPictureInfo Filename
  75 End If
  76 
  77 End Sub
  78 
  79 

Called by

Calls