Windows

Hosting Unlimited Indonesia

MENAMPIKAN FILE .JPG DENGAN VB 6.0


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%

Post a Comment

0 Comments