[HELP]gan mw tanya tentang VB.6
 

gan mw nanya niyh.


Quote:





If txtIstilah = "" Or txtMakna = "" Then GoTo AdaKosong Open "DATAKAMUS.DAT" For Append As #1 Write #1, txtIstilah, txtMakna Close #1 txtIstilah = "" txtMakna = "" txtIstilah.SetFocus Exit Sub AdaKosong: Beep If txtIstilah = "" Then txtIstilah.SetFocus If txtMakna = "" Then txtMakna.SetFocus End Sub





fungsi GoTo AdaKosong itu apa yaa ??

samaa beep itu?




Quote:





Dim LI As ListItem Dim Istilah, Makna As String ListView1.View = lvwReport ListView1.Sorted = True ListView1.GridLines = True ListView1.ColumnHeaders.Add , , "ISTILAH", ListView1.Width / 2 ListView1.ColumnHeaders.Add , , "MAKNA", ListView1.Width / 2 Open "DATAKAMUS.DAT" For Input As #1 Do Until EOF(1) Input #1, Istilah, Makna Set LI = ListView1.ListItems.Add(, , Istilah) LI.SubItems(1) = Makna Loop End Sub





maksud dari angka 2 di belakang ini >> ListView1.ColumnHeaders.Add , , "ISTILAH", ListView1.Width / 2

dan ListView1.ColumnHeaders.Add , , "MAKNA", ListView1.Width / 2

apa ya gan ??



dan fungsi Do Until EOF(1) itu apa ya



yang terkakhir gan .


Quote:





If txtIstilah "" And KeyCode = 13 Then CariData





fungsi dari keykode itu apa ??



maaf gan banyak nanya maklum masih newbi bgt

maaf lg kalo nanya gk jelas ..

:hammer:

</div>