-
[Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
maidinhdan > 25-10-16, 10:54 PM
Hôm trước mình có giới thiệu [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt)
Phiên bản này được các bạn tải về rất nhiều, và từ sự góp ý của anh TranThanhAn về bổ sung hiện ngày nếu ô cần điền có ngày sẳn nó sẽ tự nhảy đến đó....và không chỉ bổ sung cái này mà còn bổ sung thêm code chỉ 1 dòng và có vài chữ là chạy ầm ầm, có lẽ là trên tất cả các phiên bản office vì không sử dụng dll calender của hệ thống
Xin trích dẫn lại
Trích dẫn:Nhiều lần rắc rối, khi điền ngày tháng vào ô bằng tay, nhập vào 01 tháng 02, nhưng máy lại hiểu là 02 tháng 01 mới ghê chứ. Từ đó quyết định thiết kế bằng nút chọn bằng control Calander như thế này đây.
Và bạn nhìn thấy, thật khủng khiếp và cũng ngốn data của tôi. Tôi tự hỏi, chẳng lẽ nếu có 10 ô điền ngày tháng thì tôi vẽ 10 cái Control Calander sau? chưa tính tới việc viết từng đoạn code thật là nhọc nhằn. Không những thế 10 cái control Calander sẽ che đi hết các ô khác làm tôi chả nhìn được gì ngoài một mớ rác bừa bộn. Mặt khác nó là tiếng anh nửa chứ, thao tác thì phức tạp, phải khai báo Thư viện DLL...đủ thứ chuyện
Chính vì lẽ đó, ngày hôm nay xin giới thiệu các bạn tính ưu việt của Demo đó là "ĐIỀN NGÀY THÁNG BẰNG 1 NÚT NHẤN (Không sử dụng Control Canlender).
Hình chạy thử:
Hình Design:
Phần II này có những gì mới
1. Bạn chỉ gọi bằng 1 dòng code duy nhất
2. Nếu ô bạn định lấy ngày tháng có ngày sẳn, khi gọi lịch lên nó sẽ chạy đến ngày đó. Ngược lại lấy ngày hiện tại
Hình minh họa
Cách thứ sử dụng: Như hình trên khi ô nào cần điền ngày tháng bạn cứ chọn vào sự kiện nào bạn thích, ở phía trên mình chọn sự kiện nhấp chuôt 2 lần vào ô cần điền,
Mã PHP:Private Sub txtNgay1_DblClick(Cancel As Integer)
LichVN Me.txtNgay1, Me, 110, 350
End Sub
Mã PHP:Cú pháp là: LichVN( Tên ô cần điền, Me, Khoảng cách bên trái, Độ cao của formHeader)
Như vậy bạn chỉ cần nhớ tên cái text box bạn cần điền ngày là được.
+ Nếu bạn muốn lịch sang trái thì tăng số 110 lên
+ Muốn xuống thấp thì tằng số 350 lên.
* Để áp dụng vào bài của các bạn, các bạn chỉ cần Import 2form và 1 Modules như hình cuối cùng rồi gọi câu thần chú trên đây là ok
Vui lòng để lại email để nhận được file ( khóa bằng *.MDE để khỏi bẻ mất công)
Đính kèm Demo ( nhấp DoubleClick vào ô sẽ hiện Lịch cho các bạn chọn)
Thân ái, chúc vui khỏe tất cả
Demo kế tiếp trong tuần này: [Phân II] quyền chi tiết từng cm
Phần bổ sung: Rất tuyệt vời.... -
RE: [Update Phần II] Chọn ngày tháng bằng tay [No Calendar]
huuduy.duy > 25-10-16, 11:48 PM
Cho em xin với nhe anh. Mail em là huuduy.duy@gmail.com
Trân trọng cảm ơn -
RE: [Update Phần II] Chọn ngày tháng bằng tay [No Calendar]
btnnhut > 13-11-16, 01:46 AM
Bạn ơi cho minh xin Pass với
Mail mình: btnnhut@gmail.com
Cám ơn nhe. -
RE: [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
phungminhluan > 13-11-16, 05:31 PM
Cho mình xin một bản với, phungminhluan@gmail.com. Xin cảm ơn -
RE: [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
maidinhdan > 14-11-16, 10:48 AM
-
RE: [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
thanh.thkt > 16-11-16, 03:37 PM
Nhờ bạn maidinhdan cho mình xin file .mdb và pass VBA vào mail thanh0826@gmail.com với. Cảm ơn bạn nhiều. -
RE: [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
allmylove162 > 19-11-16, 01:29 AM
em xin một bản với ạ, em cám ơn .
Mail : mrchien1602@gmail.com -
RE: [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]
huuduy.duy > 26-11-16, 09:31 AM
Chào anh!
Em đã import form và module lịch của anh vào ứng dụng của em. Nhưng khi em double click thì báo lỗi như hình. Nhờ anh xem và giúp em khác phục
[img] http://[/img]
https://drive.google.com/file/d/0Bz23-2t...sp=sharing
Trân trọng cảm ơn
P/s: Hôm trước em đã có đăng bài hỏi, nhưng do sự cố nên đã mất bài.