Tạo dòng chữ mờ trên combobox (2 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

 

[tamtam333]

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????

Xem file ở #12 rồi, nhưng không biết bạn muốn gì, vì vẫn có đủ 4 combobox vẫn chọn được đó thôi

 

[Hoàng Trọng Nghĩa]

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????

Làm mãi rồi vẫn chưa vừa ý chứ gì! Cho tự mày mò đã rồi để có nhiều kinh nghiệm, thấy bạn muốn hụt hơi rồi, giúp cho bạn một vé nè!

Như tôi đã nói, cực chẳng đã mới làm cái kiểu này vì nếu không có diện tích trên form để cho các Label ghi tiêu đề thì mới sử dụng chúng.

Chỉ một cái ComboBox1 thôi, khi làm hoàn chỉnh, bạn nghĩ làm cái đó có biết bao nhiêu sự kiện?

1) Enter

2) KeyPress

3) MouseDown

4) DropButtonClick

5) Change

6) Exit.

Và đây là code của nó:

Private IsFocus As Boolean
Private Const XanhNhat = &HFF0000, XanhDam = &H800000
Private DonHang As String, DonVi As String, KhachHang As String, SoLuong As String
'*******************************************************************************************


Private Sub UserForm_Initialize()
    DonHang = ChrW(272) & ChrW(417) & "n hàng"
    DonVi = ChrW(272) & ChrW(417) & "n v" & ChrW(7883) & " tính"
    KhachHang = "Khách hàng"
    SoLuong = "S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng"
    Dim i As Byte
    With ComboBox1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
        For i = 1 To 20
            .AddItem "Hoàng Tr" & ChrW(7885) & "ng Ngh" & ChrW(297) & "a " & i
        Next
    End With
End Sub
'*******************************************************************************************


Private Sub ComboBox1_Enter()
    IsFocus = False
End Sub


Private Sub ComboBox1_Change()
    With ComboBox1
        If .ForeColor <> XanhNhat Then
            .Font.Italic = False
            .ForeColor = XanhNhat
        End If
    End With
End Sub


Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With ComboBox1
        If .Text = DonHang Then .Text = ""
    End With
End Sub


Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ComboBox1
        If .Text = DonHang Then
            .Text = ""
            .Font.Italic = False
            .ForeColor = XanhNhat
        Else
            If IsFocus = False Then
                .SelStart = 0
                .SelLength = Len(.Text)
            End If
        End If
    End With
    IsFocus = True
End Sub


Private Sub ComboBox1_DropButtonClick()
    With ComboBox1
        If .ForeColor <> XanhNhat Then
            .Font.Italic = False
            .ForeColor = XanhNhat
        End If
    End With
End Sub


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With ComboBox1
        If .Text = "" Then
            .Text = DonHang
            .Font.Italic = True
            .ForeColor = XanhDam
        End If
    End With
End Sub
'*******************************************************************************************

 

[DMQ]

Cám ơn Anh Nghĩa!!!! Em đang tính kết hợp với Zoom Form mà Anh đã chỉ em. Nhưng sao em thấy với form có Multipage thì cùng một thông số nhưng page này cân đối còn page kia "hơi" không cân đối mấy.

 

[Hoàng Trọng Nghĩa]

Cám ơn Anh Nghĩa!!!! Em đang tính kết hợp với Zoom Form mà Anh đã chỉ em. Nhưng sao em thấy với form có Multipage thì cùng một thông số nhưng page này cân đối còn page kia "hơi" không cân đối mấy.

Thắc mắc vấn đề gì, tại đâu, thì gửi bài tại đó hoặc tạo đề tài mới nha bạn! Đừng để chúng tôi phải nhắc nhở bạn nhiều lần!