Knowledge Mastery: Pictures Show (Low Level)

Program sederhana tetapi telah dimodifikasi sedemikian rupa sehingga terkesan lebih menarik dari program default sebelumnya. Program ini akan menampilkan gambar dan teks ketika Command Button tereksekusi. Untuk contohnya, saya akan menampilkan gambar karakter Suikoden V.
Perlu diperhatikan! Semua ini adalah OPSIONAL! Anda tidak perlu mengikuti persis seperti yang saya buat, karena gambar dan teks yang akan ada tampilkan merupakan keinginan anda sendiri.
Buka program VB, kemudian buat project dengan formasi tool dan properties seperti gambar.

Setelah itu, masukkan kode berikut ke dalam kode editor.

Private Sub Command1_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Freyjadour falenas.jpg")
Text1.Text = "Stands tall as a guardian, and of its Queen. Legends of his courage and strength endure to this day."
End Sub

Private Sub Command2_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Byakuren.jpg")
Text1.Text = "As guardian of Ceras Lake, she continues to watch over Divine Castle, now at the bottom of the lake."
End Sub

Private Sub Command3_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Magi.jpg")
Text1.Text = "Stays down in Stormfist's underground passage, apparently just for the sake of being eccentric."
End Sub

Private Sub Command4_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Chuck.jpg")
Text1.Text = "Determined to help Luserina, he becomes the best damn storage guard the Sun Palace has ever had."
End Sub

Private Sub Command5_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Zerase.jpg")
Text1.Text = "Just after the Sun Rune returns to the Palace, Zerase vanishes and is never seen again."
End Sub

Private Sub Command6_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Craig.jpg")
Text1.Text = "Ashamed of the crisis his inflexibility caused, he resigns, askign Rahal to take over and reform the cavalry."
End Sub

Private Sub Command7_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Galleon.jpg")
Text1.Text = "Despite broad support, he retires from his post, then returns home to rebuild Lordlake and teach the young."
End Sub

Private Sub Command8_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Sorensen.jpg")
Text1.Text = "At Babbage's request, makes a chilling, lonely trek up the Ashtwal Mountains to examine the ruins' contraptions."
End Sub

Private Sub Command9_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Cornelio.jpg")
Text1.Text = "Becomes determined to recruit at least fifty members for the newly-created DoReMi Elf Symphony Orchestra."
End Sub

Private Sub Command10_Click()
Me.Image1.Picture = LoadPicture("C:\Users\cunti\Downloads\Viki.jpg")
Text1.Text = "Glancing up at the sun during the victory celebration, she lets out a sneeze -- and disappears."
End Sub

Catatan : Tulisan yang berwarna biru adalah OPSIONAL. Jadi, tidak perlu anda masukkan ke dalam kode program buatan anda sendiri.
Penjelasan : Rumus kode untuk memasukkan gambar menggunakan image adalah Me.(Image Name).Picture = LoadPicture("Object Name"). Tulisan yang berwarna merah merupakan data format anda sendiri. Image Name adalah nama tool Image yang ingin anda tampilkan gambarnya, misalnya Image1, Image2, Image3, Imagex, dan seterusnya. Sedangkan, Object Name adalah letak (lokasi) file gambar. Untuk mencari lokasinya, klik kanan gambar yang ingin anda tampilkan. Lalu pilih PROPERTIES (pilihan paling bawah). Kemudian klik tab SECURITY. Anda akan menemukan OBJECT NAME.Copy paste OBJECT NAME tersebut.