Gán ngày tháng cho textbox từ calendar trong VB6 (1 người xem)

[maytinhvp01]

Tìm mãi trên diễn đàn nhưng không thấy.
Cho hỏi code gán ngày tháng cho text1 (Tên của textbox) từ calendar1 trong VB6 ra sao ạ
Code trong VBA thì mình biết là viết là:

text1.value = calenda1
text1.NumberFormat = "dd/mmm"

Anh em nào còn online không giúp nhanh với

 

[nghiaphuc]

Tìm mãi trên diễn đàn nhưng không thấy.
Cho hỏi code gán ngày tháng cho text1 (Tên của textbox) từ calendar1 trong VB6 ra sao ạ
Code trong VBA thì mình biết là viết là:

text1.value = calenda1
text1.NumberFormat = "dd/mmm"

Anh em nào còn online không giúp nhanh với

VB6 thì mình không biết nhưng ít ra thì trong VBA, 2 câu lệnh trên có thể viết gọn lại như vầy:

Text1 = Format(Calenda1, "dd/mmm")

 

[maytinhvp01]

VB6 thì mình không biết nhưng ít ra thì trong VBA, 2 câu lệnh trên có thể viết gọn lại như vầy:

Text1 = Format(Calenda1, "dd/mmm")

Cảm ơn bạn. Nhưng mình đang cần trong VB6 gấp quá!

 

[PhanTuHuong]

Tôi tạo Calendar và 2 Texbox chứa ngày, tháng. Code cho sự kiện của Calendar1:

Private Sub Calendar1_AfterUpdate()
Me.txtNgay = Day(Me.Calendar1)
Me.txtThang = Month(Me.Calendar1)
End Sub

 

[ndu96081631]

Cảm ơn bạn. Nhưng mình đang cần trong VB6 gấp quá!

Thì viết vậy thôi. Có điều hình như chữ "Calenda1" viết sai?
Sửa thành vầy xem

Text1 = Format(Calenda[B][COLOR=#ff0000]r[/COLOR][/B]1, "dd/mmm")

 

[maytinhvp01]

Thì viết vậy thôi. Có điều hình như chữ "Calenda1" viết sai?
Sửa thành vầy xem

Text1 = Format(Calenda[B][COLOR=#ff0000]r[/COLOR][/B]1, "dd/mmm")

Cảm ơn anh. Đợi mãi rùi cũng có anh giúp. Vậy là VB6 này không cần .value hay .text gì gì đó hả anh?

 

[maytinhvp01]

Tôi tạo Calendar và 2 Texbox chứa ngày, tháng. Code cho sự kiện của Calendar1:

Vâng cảm ơn anh nhiều ạ. Em sẽ áp dụng code của anh trong nhũng ứng dụng khi cần. Anh NDU thì hiểu ý em và em dùng code của anh cho bài của em ạ. Rất cảm ơn anh

 

[ndu96081631]

Cảm ơn anh. Đợi mãi rùi cũng có anh giúp. Vậy là VB6 này không cần .value hay .text gì gì đó hả anh?

Đúng ra phải viết tường minh thế này:

Text1.[COLOR=#ff0000]Text [/COLOR]= Format(Calendar1.[COLOR=#ff0000]Value[/COLOR], "dd/mmm")

TextBox có thuộc tính Text mà không có thuộc tính Value
Calendar có thuộc tính Value mà không có thuộc tính Text
Nói chung: Nhìn vào cửa sổ Properties thì thấy chứ cần gì phải hỏi (nếu chưa có cửa sổ này thì bấm F4 cho nó hiện ra)