Tùy chọn
Thay đổi Caption trên button ở mỗi lần click...
- Thay đổi Caption trên button ở mỗi lần click...
-
Thay đổi Caption trên button ở mỗi lần click...
bauauto > 19-06-11, 09:00 PM
chào mọi người !
tôi đang tìm cách thay đổi tên "caption" trên button ở mỗi lần click thì làm như thế nào...
ví dụ: tôi có 1 button có tên là "ON" . Sau khi tôi click thì tên sẽ chuyển thành "OFF" ...
xin mọi người chỉ giáo...
tks all!!
ps: hic! hình như dạo này mod hay admin busy nên thấy nhìu thắc mắc của ace chưa được giải đáp wá hả! tôi cũng có 1 topic xin chỉ giáo về cách tạo biến trong Querydef mà cũng đang đợi nè...
-
RE: Thay đổi Caption trên button ở mỗi lần click...
haquocquan > 19-06-11, 09:51 PM
button có tên ON, OFF: không đúng rồi.
button caption: ON, OFF thì đúng hơn đó.
Mã:Private Sub Button_click()
if Button.Caption ="ON" then
Button.Caption = "OFF"
Else
Button.Caption="ON"
End if
.....................
................
End Sub -
RE: Thay đổi Caption trên button ở mỗi lần click...
bauauto > 19-06-11, 10:05 PM
(19-06-11, 09:51 PM)haquocquan Đã viết: button có tên ON, OFF: không đúng rồi.
ac! mình nói tên button là sợ mọi người không hiểu ý mình hỏi đó mà...nên mình nói tên hiển thị trên button lun...hi
button caption: ON, OFF thì đúng hơn đó.
Trích dẫn:
Mã:Private Sub Button_click()
if Button.Caption ="ON" then
Button.Caption = "OFF"
Else
Button.Caption="ON"
End if
.....................
................
End Sub
SẶC! Mình vửa mới nghĩ ra tính lên Forum post lại ai dè haquocquan giúp rồi...hi..tks Bro nhìu nha!
tính lên post lại để hỏi mọi người là làm sao viết trong code thể để có caption có dấu được...
ví dụ: button.caption = "CẬP NHẬT" ....Không tài nào viết được...
xin chỉ giáo!!
-
RE: Thay đổi Caption trên button ở mỗi lần click...
khanhduycsgt > 21-06-11, 04:21 PM
Access sử dụng VBA không hỗ trợ Unicode, muốn có tiếng Việt thì cách nhanh nhất là bạn chọn font của Caption của cái nút đó là VNI-Times, bọn chọn cho đúng bảng mã trong Unikey rồi vào phần nhập code gõ như bình thường (nó hiển thị sai font cũng mặc kệ) sau đó chạy thử form xem kết quả. -
RE: Thay đổi Caption trên button ở mỗi lần click...
bauauto > 21-06-11, 08:26 PM
(21-06-11, 04:21 PM)khanhduycsgt Đã viết: Access sử dụng VBA không hỗ trợ Unicode, muốn có tiếng Việt thì cách nhanh nhất là bạn chọn font của Caption của cái nút đó là VNI-Times, bọn chọn cho đúng bảng mã trong Unikey rồi vào phần nhập code gõ như bình thường (nó hiển thị sai font cũng mặc kệ) sau đó chạy thử form xem kết quả.
Làm như bạn cũng đoc được nhưng chữ hơi "loằng ngoằng" ..!! hic!
Nhưng dù sao cũng thank Bạn! -
RE: Thay đổi Caption trên button ở mỗi lần click...
haquocquan > 21-06-11, 11:03 PM
Bạn gõ bằng bảng mã TCVN3 bình thường và dùng hàm convert fonts
button.Caption = ToUnicode(".. đoạn này gõ fonts của bảng mã TCVN3....")
Hàm Unicode, tham khảo tại: http://thuthuataccess.com/forum/Thread-c...-nguoc-lai -
RE: Thay đổi Caption trên button ở mỗi lần click...
bauauto > 22-06-11, 09:14 PM
(21-06-11, 11:03 PM)haquocquan Đã viết: Bạn gõ bằng bảng mã TCVN3 bình thường và dùng hàm convert fonts
button.Caption = ToUnicode(".. đoạn này gõ fonts của bảng mã TCVN3....")
Hàm Unicode, tham khảo tại: http://thuthuataccess.com/forum/Thread-c...-nguoc-lai
thank bạn! mình đã làm thử cách của bạn ...nếu như viết chữ thường thì nó hiển thị đẹp nhưng nếu viết chữ "in" (CapsLock) thì nó lung tung hết..lúc chữ in lúc chữ thường...??? mình đã chọn fontname cho button trong format là timenewroman hay VNI-TIMES , vntime,... đều không được...
-
RE: Thay đổi Caption trên button ở mỗi lần click...
haquocquan > 22-06-11, 11:16 PM
Bạn gõ chữ thuờng và thêm chuyển chữ thường thành chữ in hoa.
buttton.caption = Ucase(ToUnicode("..... bạn gõ ở đây ....."))