Thiết kế UserForm bài số 03: Ô textbox chuyển màu tùy biến theo sự kiện con trỏ

[tuhocvba]

Bài học thiết kế số 01

Bạn cần đăng nhập để thấy link

Bài học thiết kế số 02

Bạn cần đăng nhập để thấy link

________
Chúng ta mong muốn ô textbox sẽ chuyển màu xanh nếu con trỏ đang ở trong ô textbox. Và ô textbox trả lại màu trắng nếu con trỏ ra ngoài ô textbox đó.
Như vậy chúng ta dùng hai sự kiện Enter và Exit.
Cụ thể code:

Private Sub TextBox1_Enter()  'Khi con tro chuyen vao o textbox thi doi mau o textbox
    TextBox1.BackColor = RGB(&H0, &HFF, &HFF)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'Khi con tro thoat ra ngoai o textbox thi tra lai mau cu
    TextBox1.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub

Private Sub TextBox2_Enter()  'Khi con tro chuyen vao o textbox thi doi mau o textbox
    TextBox2.BackColor = RGB(&H0, &HFF, &HFF)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'Khi con tro thoat ra ngoai o textbox thi tra lai mau cu
    TextBox2.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub

Về màu RGB bạn có thể tham khảo

Bạn cần đăng nhập để thấy link

Video các bạn xem ở đây:

Bạn cần đăng nhập để thấy đa phương tiện

Nguồn tham khảo:

Bạn cần đăng nhập để thấy link

 

[giaiphapvba]

Bổ sung một số thứ liên quan tới ô Textbox:
1. Cho nhập nhiều dòng trên ô textbox, dùng phím Enter để xuống dòng:

Private Sub UserForm_Initialize()
    With TextBox1
        .MultiLine = True            'Có thể nhập nhiều dòng trên ô textbox
        .EnterKeyBehavior = True    'Dùng phím Enter để xuống dòng
    End With
End Sub

Bạn cần đăng nhập để thấy đính kèm

MultiLine	EnterKeyBehavior	Nội dung
TRUE​	TRUE​	Cho nhập nhiều dòng. Dùng phím Enter để xuống dòng.
TRUE​	FALSE​	Cho nhập nhiều dòng. Shift+Enter để xuống dòng.
FALSE​	TRUE​	Không thể thiết định
FALSE​	FALSE​	Không thể xuống dòng

2. Cho hiện thanh cuộn
Nếu chúng ta nhập ký tự quá dài, và lại còn cho phép xuống dòng nữa. Thì chúng ta đừng quên thuộc tính sau, cho phép hiển thị thanh cuộn.

Bạn cần đăng nhập để thấy đính kèm

Thuộc tính này có 4 trạng thái:
0-fｍScrollBarsNone :Không có thanh cuộn
1-fmScrollBarsHorizonta : Hiển thị thanh cuộn nằm ngang, hiện chưa thực nghiệm kiểm chứng được
2-fmScrollBarsVertical : Hiển thị thanh cuộn nằm dọc: Hiện mới chỉ thực nghiệm kiểm chứng hiện thanh cuộn dọc
3-fmScrollBarsBoth : Hiển thị cả thanh cuộn ngan và dọc: Hiện mới chỉ thực nghiệm kiểm chứng hiện thanh cuộn dọc

3. AutoSize
Thuộc tính này sẽ cho phép ô textbox tự thay đổi kích thước cho vừa với chữ gõ vào.

Bạn cần đăng nhập để thấy đính kèm

Bạn cần đăng nhập để thấy đính kèm

 

[nguyễn Thành Quang]

Bài học thiết kế số 01

Bạn cần đăng nhập để thấy link

Bài học thiết kế số 02

Bạn cần đăng nhập để thấy link

________
Chúng ta mong muốn ô textbox sẽ chuyển màu xanh nếu con trỏ đang ở trong ô textbox. Và ô textbox trả lại màu trắng nếu con trỏ ra ngoài ô textbox đó.
Như vậy chúng ta dùng hai sự kiện Enter và Exit.
Cụ thể code:

Private Sub TextBox1_Enter()  'Khi con tro chuyen vao o textbox thi doi mau o textbox
    TextBox1.BackColor = RGB(&H0, &HFF, &HFF)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'Khi con tro thoat ra ngoai o textbox thi tra lai mau cu
    TextBox1.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub

Private Sub TextBox2_Enter()  'Khi con tro chuyen vao o textbox thi doi mau o textbox
    TextBox2.BackColor = RGB(&H0, &HFF, &HFF)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'Khi con tro thoat ra ngoai o textbox thi tra lai mau cu
    TextBox2.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub

Về màu RGB bạn có thể tham khảo

Bạn cần đăng nhập để thấy link

Video các bạn xem ở đây:

Bạn cần đăng nhập để thấy đa phương tiện

Nguồn tham khảo:

Bạn cần đăng nhập để thấy link

Bài viết Hay quá ad
hi vọng AD cho ra nhiều cái hay và hưu ích

 

[nguyễn Thành Quang]

Bổ sung một số thứ liên quan tới ô Textbox:
1. Cho nhập nhiều dòng trên ô textbox, dùng phím Enter để xuống dòng:

Private Sub UserForm_Initialize()
    With TextBox1
        .MultiLine = True            'Có thể nhập nhiều dòng trên ô textbox
        .EnterKeyBehavior = True    'Dùng phím Enter để xuống dòng
    End With
End Sub

Bạn cần đăng nhập để thấy đính kèm

MultiLine	EnterKeyBehavior	Nội dung
TRUE​	TRUE​	Cho nhập nhiều dòng. Dùng phím Enter để xuống dòng.
TRUE​	FALSE​	Cho nhập nhiều dòng. Shift+Enter để xuống dòng.
FALSE​	TRUE​	Không thể thiết định
FALSE​	FALSE​	Không thể xuống dòng

2. Cho hiện thanh cuộn
Nếu chúng ta nhập ký tự quá dài, và lại còn cho phép xuống dòng nữa. Thì chúng ta đừng quên thuộc tính sau, cho phép hiển thị thanh cuộn.

Bạn cần đăng nhập để thấy đính kèm

Thuộc tính này có 4 trạng thái:
0-fｍScrollBarsNone :Không có thanh cuộn
1-fmScrollBarsHorizonta : Hiển thị thanh cuộn nằm ngang, hiện chưa thực nghiệm kiểm chứng được
2-fmScrollBarsVertical : Hiển thị thanh cuộn nằm dọc: Hiện mới chỉ thực nghiệm kiểm chứng hiện thanh cuộn dọc
3-fmScrollBarsBoth : Hiển thị cả thanh cuộn ngan và dọc: Hiện mới chỉ thực nghiệm kiểm chứng hiện thanh cuộn dọc

3. AutoSize
Thuộc tính này sẽ cho phép ô textbox tự thay đổi kích thước cho vừa với chữ gõ vào.

Bạn cần đăng nhập để thấy đính kèm

Bạn cần đăng nhập để thấy đính kèm

Bài viết của bạn quá tuyệt vời.
Hi vọng bạn sẽ cho ra nhiều bài viết hay.