Visual Basic ( Project Pegawai )

Salam Sahabat Blogger..
Flasback dari posting2 yg lewat banyak kita pelajari mengenai Display untuk menampilkan project,nah kali ini kembali maju saya akan memposting project display editing sebuah project mengenai kepegawaian..
Mengunakan beberapa Box2 pilihan yang juga uda pernah saya postingkan,akan tetapi project ini belum aktif dalam hal penyimpanan data base lho sobat,,
Selamat Mencoba Sobat..
Semangat3x..
Rezpect N Peace !!!

Koding :


Private Sub Command1_Click()
List1.AddItem Text1.Text
List2.AddItem Text2.Text
List3.AddItem Combo1.Text
List4.AddItem Text3.Text
List5.AddItem Combo2.Text
List6.AddItem Text4.Text
End Sub

Private Sub Command2_Click()
List1.List(List1.ListIndex) = Text1.Text
List2.List(List2.ListIndex) = Text2.Text
List4.List(List4.ListIndex) = Text3.Text
List6.List(List6.ListIndex) = Text4.Text
List3.List(List3.ListIndex) = Combo1.Text
List5.List(List5.ListIndex) = Combo2.Text
End Sub

Private Sub Command3_Click()
On Error GoTo Salah:
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
List3.RemoveItem List3.ListIndex
List4.RemoveItem List4.ListIndex
List5.RemoveItem List5.ListIndex
List6.RemoveItem List6.ListIndex
Exit Sub

Salah:
MsgBox "Pilihlah data yang akan di hapus", vbCritical
End Sub

Private Sub Command4_Click()
List1_Click
NIP = List1.List(List1.ListIndex)

If NIP = Text5.Text Then
    MsgBox "Ada"
Else
    MsgBox "Tidak Ada"
End If

End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command7_Click()
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear
List6.Clear
Command5_Click
End Sub

Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "1A"
Combo1.AddItem "2A"
Combo1.AddItem "3A"
Combo1.AddItem "4A"
Combo1.AddItem "5A"
Combo1.AddItem "1B"
Combo1.AddItem "2B"
Combo1.AddItem "3B"
Combo1.AddItem "4B"
Combo1.AddItem "5B"
Combo1.AddItem "1C"
Combo1.AddItem "2C"
Combo1.AddItem "3C"
Combo1.AddItem "4C"
Combo1.AddItem "5C"

Combo2.AddItem "Laki-Laki"
Combo2.AddItem "Perempuan"
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
List4.ListIndex = List1.ListIndex
List5.ListIndex = List1.ListIndex
List6.ListIndex = List1.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
List3.ListIndex = List2.ListIndex
List4.ListIndex = List2.ListIndex
List5.ListIndex = List2.ListIndex
List6.ListIndex = List2.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List3_Click()
List1.ListIndex = List3.ListIndex
List2.ListIndex = List3.ListIndex
List4.ListIndex = List3.ListIndex
List5.ListIndex = List3.ListIndex
List6.ListIndex = List3.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List4_Click()
List1.ListIndex = List4.ListIndex
List2.ListIndex = List4.ListIndex
List3.ListIndex = List4.ListIndex
List5.ListIndex = List4.ListIndex
List6.ListIndex = List4.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List5_Click()
List1.ListIndex = List5.ListIndex
List2.ListIndex = List5.ListIndex
List3.ListIndex = List5.ListIndex
List4.ListIndex = List5.ListIndex
List6.ListIndex = List5.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List6_Click()
List1.ListIndex = List6.ListIndex
List2.ListIndex = List6.ListIndex
List3.ListIndex = List6.ListIndex
List4.ListIndex = List6.ListIndex
List5.ListIndex = List6.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="http://baim-blogs.blogspot.com/2013/09/visual-basic-project-pegawai.html">Visual Basic ( Project Pegawai )</a>