Membuat Picture Viewer


THE CODE
Private Sub Form_Load()

'To center the player
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height)\2


Combo1.Text = "All graphic files"
Combo1.AddItem "All graphic files"
Combo1.AddItem "All files"

End Sub
 

Private Sub Combo1_Change()

If ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub

'Specific the types of files to load
Private Sub Dir1_Change()

File1.Path = Dir1.Path
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")

End Sub

'Changing Drives

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub
  Private Sub File1_Click()

If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
File1.Pattern = ("*.*")
EnId If

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub


Private Sub show_Click()

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If

'To load the picture into the picture box
picture1.Picture = LoadPicture(filenam)

End Sub

Subscribe to receive free email updates:

0 Response to "Membuat Picture Viewer"

Poskan Komentar