Tùy chọn
Tạo comment cho button
- Tạo comment cho button
-
Tạo comment cho button
chigonvh > 03-10-15, 09:13 PM
Các pro cho e hỏi là có cách nào tạo một comment cho button được không?
Ví dụ khi ta đưa chuột vào button thì sẽ hiển thị comment cho biết button còn có chức năng khác khi kết hợp với phím Ctrl, Shift hoặc Alt. Nhân tiện hỏi các pro cách tạo nút kết hợp với trên.
Thank u! -
RE: Tạo comment cho button
cpucloi > 03-10-15, 09:18 PM
Bạn sử dụng thuộc tính ControlTip Text để hiển thị comment nhé, khi di chuyển chuột vào button thì comment tự hiện lên -
RE: Tạo comment cho button
haido92 > 08-10-15, 04:44 PM
(03-10-15, 09:13 PM)chigonvh Đã viết: Các pro cho e hỏi là có cách nào tạo một comment cho button được không?
Ví dụ khi ta đưa chuột vào button thì sẽ hiển thị comment cho biết button còn có chức năng khác khi kết hợp với phím Ctrl, Shift hoặc Alt. Nhân tiện hỏi các pro cách tạo nút kết hợp với trên.
Thank u!
Khi trước mình cũng làm thử một lần nhưng thời gian thấy nó không phù hợp lại bỏ đi ...
-
RE: Tạo comment cho button
tranthanhan1962 > 08-10-15, 06:20 PM
(08-10-15, 04:44 PM)haido92 Đã viết:
(03-10-15, 09:13 PM)chigonvh Đã viết: Các pro cho e hỏi là có cách nào tạo một comment cho button được không?
Ví dụ khi ta đưa chuột vào button thì sẽ hiển thị comment cho biết button còn có chức năng khác khi kết hợp với phím Ctrl, Shift hoặc Alt. Nhân tiện hỏi các pro cách tạo nút kết hợp với trên.
Thank u!
Khi trước mình cũng làm thử một lần nhưng thời gian thấy nó không phù hợp lại bỏ đi ...
Có nhiều cách để xử lý công việc này. Sử dụng thuộc tính ControlTip Text theo cách của bạn cpucloi cũng được. Cũng có thể tạo một LabelX dưới đáy Form hoặc nơi nào đó. Ví dụ co các commentA, commentB, commentC.
Sử dụng các code sau:
Mã:Private Sub commentA_Enter()
LabelX.Caption = "Đây là nút A"
End Sub
Private Sub commentA_Exit(Cancel As Integer)
LabelX.Caption = ""
End Sub
Private Sub commentB_Enter()
LabelX.Caption = "Đây là nút B"
End Sub
Private Sub commentB_Exit(Cancel As Integer)
LabelX.Caption = ""
End Sub
Private Sub commentC_Enter()
LabelX.Caption = "Đây là nút C"
End Sub
Private Sub commentC_Exit(Cancel As Integer)
LabelX.Caption = ""
End Sub
Có điều cách này phải viết code rườm rà hơn cách của bạn cpucloi