Tạo dòng chữ mờ trên combobox (1 người xem)

[nhapmon]

Chào mọi người

mình muốn tạo một dòng chữ mờ trên combobox (giống như chữ Google, trên web), và nghiên nghiên luôn nha. nhưng làm hoài mà không được, bà con chỉ dùm với

tks bà con nhiêu

 

[nghiaphuc]

Chào mọi người

mình muốn tạo một dòng chữ mờ trên combobox (giống như chữ Google, trên web), và nghiên nghiên luôn nha. nhưng làm hoài mà không được, bà con chỉ dùm với

tks bà con nhiêu

Có thể là thế này chăng:
[GPECODE=vb]Private Sub ComboBox1_GotFocus()
Me.ComboBox1.Value = ""
Me.ComboBox1.Font.Italic = False
Me.ComboBox1.ForeColor = 0
End Sub

Private Sub ComboBox1_LostFocus()
Me.ComboBox1.Value = "Hello, I am Here"
Me.ComboBox1.Font.Italic = True
Me.ComboBox1.ForeColor = &H808080
End Sub[/GPECODE]

 

[nhapmon]

đúng rồi, tks anh nhiều

 

[Hai Lúa Miền Tây]

Nên xử lý bẩy lổi như sau:

Private Sub ComboBox1_LostFocus()
On Error Resume Next
  With ComboBox1
     If .Value = "" Then
         .Value = "(Hello Iam Here)"
         .Font.Italic = True
         .ForeColor = &H80000000
     End If
End With

End Sub

Private Sub ComboBox1_GotFocus()
On Error Resume Next
With ComboBox1
    If .Value = "(Hello Iam Here)" Then
        .Value = ""
        .Font.Italic = False
        .ForeColor = 0
     End If
End With

End Sub

 

[DMQ]

Cấc AC cho em hỏi, nếu là ComboBox trên Userform và chữ là tiếng việt có dấu thì code viết làm sao ah??????????????

 

[Hoàng Trọng Nghĩa]

Cấc AC cho em hỏi, nếu là ComboBox trên Userform và chữ là tiếng việt có dấu thì code viết làm sao ah??????????????

Gõ trực tiếp vào combobox, đừng gõ trên properties.

 

[DMQ]

Em nói là trên userform, Anh Xem file đính kèm

 

[DMQ]

em thấy có nhiều người xem rồi mà chưa có câu trả lời. Mong mọi người giúp em

 

[DMQ]

Em thấy Bác Tuân cũng có đọc rồi,mà sao Bác không giúp em. Hay em dốt quá.

 

[Hoàng Trọng Nghĩa]

Em nói là trên userform, Anh Xem file đính kèm

Không gõ vào khung màu đỏ, gõ vào khung màu xanh!

em thấy có nhiều người xem rồi mà chưa có câu trả lời. Mong mọi người giúp em

Em thấy Bác Tuân cũng có đọc rồi,mà sao Bác không giúp em. Hay em dốt quá.

1) Người ta coi qua topic, chưa chắc người ta đã coi bài của bạn.

2) Người ta coi file của bạn, chưa chắc người ta có thời gian cũng như kiến thức hoặc cảm tình để giúp, họ chả có trách nhiệm gì ràng buộc giữa bạn và họ.

3) Cho nên bạn không phải hối thúc ai trên diễn đàn này, đồng thời nếu bạn cứ như thế sẽ bị BQT xóa bài và có biện pháp kỷ luật bạn.

 

[DMQ]

Xin lỗi Các AC, tại do em "Ngu" quá. Mong mọi người bỏ qua!!!!!

 

[DMQ]

Sao em mở Form lên rồi Click vào nút xổ của ComboBox mà chữ không mất đi . Chắc lỗi ở sự kiện ComboBox_GotFocus. Mong mọi người giúp em với.File đây Ah:

 

[DMQ]

Sao em làm trên UserForm vẫn không được vậy các AC, khi click vào dấu xổ của ComboBox vẫn không mất chữ trong comboBox. Mong mọi người giúp em với.

 

[DMQ]

Mong mọi người giải thích dùm bài #12 với???????

 

[sealand]

Bạn xem lại mấy vấn đề sau:
1/
-Trên Form của VBA Exc không hỗ trợ sự kiện Control.GotForcus() mà sự kiện tương đương là Control.Enter()
-Trên Form của VBA Exc không hỗ trợ sự kiện Control.LostForcus() mà sự kiện tương đương là Control.Exit()

2/Code của bạn tất cả các sự kiện đều With ComboBox1 nên nó chi thay đổi ComboBox1.Bạn điều chỉnh cho phù hợp.

3/Yêu cầu này muốn gọn gàng nên dùng Class Module

 

[DMQ]

Mong Thầy giúp em với!!!!!

 

[DMQ]

Sao em đã chỉnh lại sự kiện Enter và Exit, with CommandButton1,with CommandButton2, CommandButton3,CommandButton4 mà chả được mong mọi người giúp em với??????

 

[DMQ]

Em sửa code lại như vầy có đúng không ah, sao nó lỗi ngay Commandbutton1_Exit()

Private Sub ComboBox1_Enter()
On Error Resume Next
  With ComboBox1
     If .Value = "" Then
         .Value = "Don Hang"
         .Font.Italic = True
         .ForeColor = &H80000000
     End If
End With


End Sub


Private Sub ComboBox1_Exit()
On Error Resume Next
With ComboBox1
    If .Value = "Don Hang" Then
        .Value = ""
        .Font.Italic = False
        .ForeColor = 0
     End If
End With


End Sub


Private Sub ComboBox2_Exit()
On Error Resume Next
  With ComboBox2
     If .Value = "" Then
         .Value = "Don Vi Tinh"
         .Font.Italic = True
         .ForeColor = &H80000000
     End If
End With


End Sub


Private Sub ComboBox2_Enter()
On Error Resume Next
With ComboBox2
    If .Value = "Don Vi Tinh" Then
        .Value = ""
        .Font.Italic = False
        .ForeColor = 0
     End If
End With


End Sub
Private Sub ComboBox3_Exit()
On Error Resume Next
  With ComboBox3
     If .Value = "" Then
         .Value = "Khach Hang"
         .Font.Italic = True
         .ForeColor = &H80000000
     End If
End With


End Sub


Private Sub ComboBox3_Enter()
On Error Resume Next
With ComboBox3
    If .Value = "Khach Hang" Then
        .Value = ""
        .Font.Italic = False
        .ForeColor = 0
     End If
End With


End Sub


Private Sub ComboBox4_Exit()
On Error Resume Next
  With ComboBox4
     If .Value = "" Then
         .Value = "So Luong"
         .Font.Italic = True
         .ForeColor = &H80000000
     End If
End With


End Sub


Private Sub ComboBox4_Enter()
On Error Resume Next
With ComboBox4
    If .Value = "So Luong" Then
        .Value = ""
        .Font.Italic = False
        .ForeColor = 0
     End If
End With


End Sub

 

[tamtam333]

File của bạn đâu, tại sao bạn muốn làm thế, trong khi bản thân trong combobox đã có tính năng đó rôi (highlight khi bạn chọn nó, và mât highlight khi rời nó)

 

[DMQ]

File ở bài #12 đó bạn, mình đang làm Một Form, vì thiếu diện tích nên làm Combobox ẩn chữ như vậy. Mong mọi người chỉ giáo????