Membuat Image Viewer Dengan Visual Basic

well all dalam kesempatan kali ini gw akan sedikit bebagi tutorial visuakl basic, tentang bagaimana caranya membuat image viewer dengan visual basic.Cara nya cukup mudah oleh karena itu untuk yang sudah tau ya maklum aja, ini tutorial untuk newbie vdi visual basic. ok

Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalian.
syntax image :
image1.Picture=LoadFile(filegambar)
contoh image1.Picture=loadfile(image2.picture), syntak seperti ini mengambil gambar yang ada di image2 ke image1.

Dalam kesempatan kali ini kita akan melihat file gambar external dengan visual basic
Pertama siapkan 1 image, 2 command dan 2 buah text file.
tampilan formnya terserah kalianlalu copy paste script berikut pada Form :

Private Sub Form_Load()
Image1.Stretch = True
TEXT1.Text = 1
End Sub

Sub JILL()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F
Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L + 1
LL:
Select Case Err.Number
Case 53
TEXT1.Text = 1
End Select
End Sub

Sub JILL2()
On Error GoTo LL
L = TEXT1.Text
N = "\IMAGE"
F = ".JPG"
C = N & L & F

Text2.Text = App.Path & C
Image1.Picture = LoadPicture(Text2.Text)
TEXT1.Text = L - 1
LL:
Select Case Err.Number
Case 53
MsgBox "GAMBAR DA PALING AWAL"
End Select
End Sub

Private Sub Command1_Click()
Call JILL2
End Sub

Private Sub Command2_Click()
Call JILL
End Sub
Ok rasanya cukup mudah untuk di mengerti, semoga membantu.