Untuk menampikan file .jpg dengan
mengunakan bahasa pemrograman visual basic 6.0 tidak begitu sulit hanya
membutuhkan kesabaran, syaratnya anda harus mempunya file .jpg yang satu folder
dengan tempat file frmimage dan project1 yang anda simpan.
OBJEK
|
PROPERTIES
|
VALUE
|
FORM
|
name
|
frmimage
|
Caption
|
Latihan 3
|
|
BorderStyle
|
1-Fixed single
|
|
StartUpPosition
|
centerscreen
|
|
Label1
|
name
|
Label1
|
caption
|
NAMA KESEBELASAN
|
|
Label2
|
Name
|
Label2
|
caption
|
PELATIIH
|
|
Label3
|
Name
|
Label3
|
Caption
|
INFORMASI
|
|
Label4
|
Name
|
lblinformasi
|
ComboBox1
|
name
|
cmbTim
|
textBox1
|
name
|
txtPelatih
|
Command1
|
Name
|
cmdTampil
|
Caption
|
&TAMPIL
|
|
Command2
|
Name
|
cmdOk
|
Caption
|
&OK
|
|
Command3
|
Name
|
cmdKeluar
|
Caption
|
&KELUAR
|
|
Image1
|
Name
|
Imgfoto
|
borderStyle
|
1-fixed single
|
|
stretch
|
true
|
Kode program :
Private Sub
cmdKeluar_Click()
End
End Sub
Private Sub
cmdOk_Click()
Dim tim, pel
As String
If
Len(txtpelatih.Text) < 1 Then
pesan =
MsgBox("Kolom Pelatih Belum diisi", vbOKOnly + vbInformation, "Kolom
Pelatih")
txtpelatih.SetFocus
Else
lblInformasi.Caption
= "Nama Tim : " & cmbTim.Text & vbNewLine & _
"Nama Pelatih :
" & txtpelatih.Text
End If
End Sub
Private Sub
cmdTampil_Click()
On Error
GoTo salah
ImgFoto.Picture
= LoadPicture(RTrim(txtpelatih.Text) + ".jpg")
Exit Sub
salah:
MsgBox "File Tidak Ada" + vbNewLine
+ "Samakan Dengan Nama Pelatih yang Ada", vbOKOnly + vbInformation,
"Error"
End Sub
Private Sub
Form_Load()
cmbTim.AddItem
"Persepar"
cmbTim.AddItem
"Arema"
cmbTim.AddItem
"Persija"
cmbTim.AddItem
"Sriwijaya FC"
cmbTim.AddItem
"Persipura"
'cmdTampil.Enabled
= False
'cmdOk.Enabled
= False
End Sub
Catatan :
Anda harus mempunyai file .jpg contoh punya saya file jpg
diberi nama aqua nama tersebut yang
dimasukan ke txtpelatih
Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link
dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%
0 Comments