Monthly Archives: January 2013

Private Sub CmdBATAL_Click()   txtkode.SetFocus   txtkode.Text = “”   txtjudul.Text = “”   txtpengarang.Text = “”   txttahun.Text = “”   txtpenerbit.Text = “”   txtharga.Text = “”   End Sub   Private Sub CmdKELUAR_Click()   Unload Me   … Continue reading →

Private Sub CmdBATAL_Click()   txtkode.SetFocus   txtkode.Text = “”   txtjudul.Text = “”   txtpengarang.Text = “”   txttahun.Text = “”   txtpenerbit.Text = “”   txtharga.Text = “”   End Sub   Private Sub CmdKELUAR_Click()   Unload Me   … Continue reading →

Private Sub CmdBATAL_Click()   txtkode.SetFocus   txtkode.Text = “”   txtjudul.Text = “”   txtpengarang.Text = “”   txttahun.Text = “”   txtpenerbit.Text = “”   txtharga.Text = “”   End Sub   Private Sub CmdKELUAR_Click()   Unload Me   … Continue reading →

Private Sub CMDBATAL_Click()   TXTINPUT.SetFocus   TXTINPUT.Text = “”   TXTNIK.Text = “”   End Sub       Private Sub CMDEXIT_Click()   Unload Me   End Sub       Private Sub CMDLAGI_Click()   TXTINPUT.SetFocus   TXTGOLONGAN.Text = “” … Continue reading →

Private Sub Txtnama_KeyPress(KeyAscii As Integer)   If KeyAscii = 13 Then   txtnpm.SetFocus   End If   End Sub       Private Sub Cmdproses_Click()   Dim St As String   txttahun.Text = “20” & Left(txtnpm.Text, 2)   St = … Continue reading →

Private Sub OptBLUE_Click()   LBLTEKS.ForeColor = vbBlue       End Sub       Private Sub OptGREEN_Click()   LBLTEKS.ForeColor = vbGreen   End Sub       Private Sub OptRED_Click()   LBLTEKS.ForeColor = vbRed   End Sub     … Continue reading →

Private Sub ChkBOLD_Click() If ChkBOLD.Value = 1 Then LBLTEKS.FontBold = True Else LBLTEKS.FontBold = False End If End Sub   Private Sub ChkITALIC_Click() If ChkITALIC.Value = 1 Then LBLTEKS.FontItalic = True Else LBLTEKS.FontItalic = False End If End Sub   … Continue reading →

  Private Sub Command1_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End Sub Private Sub Command2_Click()Text1.SetFocusText1 = “”Text2 = “”Text3 = “”End Sub Private Sub Command3_Click()Unload MeEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.SetFocusEnd IfEnd Sub Private Sub Text2_KeyPress(KeyAscii As Integer)If … Continue reading →