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 ..
