UserFormda MonthView Control 6.0 Takvim nesnesi

[sdegirmenci]

Merhaba; Forn Üzerine eklemiş olduğum takvim nesnesinin Textbox seçilince açılmasını ve seçilen tarihi ilgili TextBox lara atama konusunda yardımcı olabilirseniz Çok sevinirim. İlginiz için şimdiden çok teşekkür ediyorum. Saygılarımla

 

[hamitcan]

Böyle bir deneyin.

Dim act As Object
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
act = MonthView1.Value
End Sub

Private Sub tarih1_Enter()
MonthView1.Visible = True
Set act = tarih1
tarih2 = ""
tarih3 = ""
End Sub
Private Sub tarih2_Enter()
MonthView1.Visible = True
Set act = tarih2
tarih1 = ""
tarih3 = ""
End Sub
Private Sub tarih3_Enter()
MonthView1.Visible = True
Set act = tarih3
tarih1 = ""
tarih2 = ""
End Sub

 

[sdegirmenci]

Merhaba; Hamit Hocam ilginize çok teşekkür ederim,
Kodları uyguladım, Örnek dosyamdan farklı olarak TextBox lar ayrı yerlerde, TextBox seçildiği anda hemen yanında takvim açılıp, seçimden donra tekrar kaybolması mümkünmü acaba?

 

[hamitcan]

Date and Picker nesnesini kullanmanızı öneririm. Çünkü çakışma oluyor.

 

[sdegirmenci]

Hamitcan Hocam merhaba;
Date and Picker nesnesini kullanmak istemememin nedeni her bilgisayarda çalışmıyor, malum dosyaları eklemek gerekiyor.Bu yüzden MonthView kullanmak istemiştim.

 

[hamitcan]

Galiba bu kodlar istediğinize biraz daha yakın oldu.
MonthView1 nesnesini görüntüleyebilmek için form üzerindeki yerine gelip tıklamanız gerekiyor.

Dim act As Object

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
act = Format(DateClicked, "dd/mm/yyyy")
End Sub

Private Sub MonthView1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MonthView1.Visible = False
End Sub

Private Sub tarih1_Enter()
Set act = tarih1
End Sub
Private Sub tarih2_Enter()
Set act = tarih2
End Sub
Private Sub tarih3_Enter()
Set act = tarih3
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MonthView1.Visible = True
End Sub