Loading

Membuat Kalender Jawa dengan VB6

Private Sub BlnAtas_Click(Index As Integer)
    If (CmbBulan.ListIndex = 11) Then
        CmbBulan.ListIndex = 0
    Else
    CmbBulan.ListIndex = CmbBulan.ListIndex + 1
    End If
End Sub
Private Sub BlnBawah_Click(Index As Integer)
    If (CmbBulan.ListIndex = 0) Then
        CmbBulan.ListIndex = 11
    Else
    CmbBulan.ListIndex = CmbBulan.ListIndex - 1
    End If
End Sub
Private Sub keluar_Click()
    End
End Sub
Private Sub SysTrayBtn_Click()
    Me.Hide
    Dim nid As NOTIFYICONDATA

    With nid

    .cbSize = Len(nid)
    .hWnd = FormMain.hWnd
    .uID = 0
    .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
    .uCallbackMessage = 1400
    .hIcon = FormMain.Icon
    .szTip = TextTanggalSekarang & vbNullChar

    End With
    Shell_NotifyIconA NIM_ADD, nid
    oldproc = SetWindowLongA(Me.hWnd, -4, AddressOf proc)
    Me.Hide
End Sub
Private Sub ThnAtas_Click(Index As Integer)
    If (CmbTahun.ListIndex = MaxTahun - MinTahun) Then
        CmbTahun.ListIndex = 0
    Else
    CmbTahun.ListIndex = CmbTahun.ListIndex + 1
    End If
End Sub
Private Sub ThnBawah_Click(Index As Integer)
    If (CmbTahun.ListIndex = 0) Then
        CmbTahun.ListIndex = MaxTahun - MinTahun
    Else
    CmbTahun.ListIndex = CmbTahun.ListIndex - 1
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Dim nid As NOTIFYICONDATA
  With nid
    .hWnd = Me.hWnd
    .cbSize = Len(nid)
    .uID = 0
  End With
  Shell_NotifyIconA NIM_DELETE, nid
  SetWindowLongA Me.hWnd, -4, oldproc
End Sub
Private Sub KeluarTray_Click()
  Unload FormMain
End Sub
Private Sub Form_Paint()
  formloaded = True
End Sub
Private Sub KalenderTray_Click()
    Dim nid As NOTIFYICONDATA
    With nid
    .hWnd = Me.hWnd
    .cbSize = Len(nid)
    .uID = 0
    End With
    Shell_NotifyIconA NIM_DELETE, nid
    SetWindowLongA Me.hWnd, -4, oldproc
    Me.Show
    Form_Load
End Sub
Private Sub AboutTray_Click()
  FormAbout.Show
End Sub
Private Sub Timer1_Timer()
Label9.ForeColor = QBColor(Int(Rnd * 15))
shari = ahari(Abs(Weekday(Date) - 1))
Label5(1).Caption = "" & shari & ", " & Format(Date, "dd mmmm yyyy")
Label4(1).Caption = Format(Time, "hh:mm:ss")
End Sub



Artikel Terkait:

6 komentar:

January 28, 2012 at 10:22 AM rizki_ris said...

Kunjungan pagi sobatt
Memang terkadang kita butuh tanggalan jawa untuk menghitung peristiwa- peristiwa tertentu

January 28, 2012 at 11:43 AM wongcrewchild said...

penting neh, buat hitung2an hari jawa

January 28, 2012 at 3:20 PM I-One said...

dengan kemajuan jaman tanggalan jawa semakin menghilang......

January 29, 2012 at 9:25 AM Keluarga ALe said...

wow,, artikelnya unik nih gan,,, kalo ane punya primbon gan di rumah hehehe

January 29, 2012 at 10:56 AM I-One said...

udah kagak jamannya primbon.... mas Ale....jamannya elektronik....

February 26, 2012 at 11:45 PM Fajar345 said...

Tulisan bagus sob,,
Thanks infonya nambah ilmu buat saya..:-)

Post a Comment

 
Subscribe to Novel I-One

Enter your email address: