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

Download Tutorial Membuat Kalender Jawa

Artikel Terkait: