Private Sub txtkdbrng_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtkdbrng.Text = "A-001" Then
txtnmbrng.Text = "CPU"
txthrg.Text = 300000
ElseIf KeyAscii = 13 And txtkdbrng.Text = "B-001" Then
txtnmbrng.Text = "Monitor"
txthrg.Text = 800000
ElseIf KeyAscii = 13 And txtkdbrng.Text = "C-001" Then
txtnmbrng.Text = "Printer"
txthrg.Text = 600000
End If
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment