求教ComboBox在可编辑状态下的，从右往左的选中

[ccccffff]

ComboBox为DropDown，是可编辑的。
长度为10，但是现在TEXT比较长，有30左右，默认的选中效果是，从左往右，光标直接移动到TEXT的最右边了。
现在需要的是把TEXT选中，并且光标是在最左边。

[ccccffff]

就没人来回答了？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

[lhblxm]

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Long, ByVal dy As Integer, _
                                          ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
    Public Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键释放
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 '模拟鼠标中间键按下
    Public Const MOUSEEVENTF_MIDDLEUP = &H40 '模拟鼠标中间键释放
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下
    Public Const MOUSEEVENTF_RIGHTUP = &H10 '模拟鼠标右键释放
    Public Const MOUSEEVENTF_MOVE = &H1 '模拟鼠标指针移动

    Declare Function SetCursorPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer

    Private Sub ComboBox1_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDownClosed

        Dim p0 As Point = Cursor.Position
        Dim p As Point = ComboBox1.PointToScreen(New Point(ComboBox1.Width - 23, 5))
        Dim p1 As Point = ComboBox1.PointToScreen(New Point(0, 5))
        SetCursorPos(p.X, p.Y)
        mouse_event(MOUSEEVENTF_LEFTDOWN, p.X, p.Y, 0, 0)
        mouse_event(MOUSEEVENTF_MOVE, -2000, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, p1.X, p.Y, 0, 0)
        SetCursorPos(p0.X, p0.Y)
    End Sub

一时大意，被楼主讽刺了一下

[ccccffff]

哎，最讨厌的就是像楼上那样的，自己都不明白，就随便教人了。

[大笨蛋]

你的意思是文字选中后光标要在左边？
选中文字的情况下，你还能看到光标？

[ccccffff]

是这样的意思，需要在选中文字的情况下，光标在最左边

[ccccffff]

楼上的，谢谢你的代码。你这个代码，下拉的时候问题是解决了。但是又出现了一个新的问题，在原先ComboBox的TEXT里面有值的情况下，无法下拉并且在下拉选项里选择了。

[ccccffff]

描述错了，我的意思是在 ComboBox1_Click 事件里面也加上你这段话后，就出现上面的问题了。因为还需要在点击这个ComboBox的时候，实现被选中，并且光标在最左边的情况。

[ccccffff]

CSDN上的高手呢？？？

[ccccffff]

晕了，CSDN上的高手呢?跑哪里去了

[笨熊熊]

這個問題沒有遇到過。。
因爲沒有這麽想。。

[ccccffff]

可能要重写某个方法，但是我不知道要重写那个方法

[ccccffff]

我也想自己写一个combobox，但是不会写。。。请问下，应该如何写呢？

[ccccffff]

lhblxm你写的方法还是问题多多啊，要是下拉框里面的值还要更长，比如有50个字符的话，就不正确了。

[lhblxm]

 Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim p0 As Point = Cursor.Position
        Dim p As Point = ComboBox1.PointToScreen(New Point(ComboBox1.Width - 23, 5))
        Dim p1 As Point = ComboBox1.PointToScreen(New Point(0, 5))

        If p0.X > p1.X And p0.X < p.X Then
            ComboBox1.SelectionStart = ComboBox1.Text.Length
            ComboBox1.SelectionLength = 0
            SendKeys.Send("+{LEFT " & ComboBox1.Text.Length & "}")
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        SendKeys.Send("{RIGHT}")
        SendKeys.Send("+{LEFT " & ComboBox1.Text.Length & "}")
    End Sub

[lhblxm]

    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click

        Dim p0 As Point = Cursor.Position
        Dim p As Point = ComboBox1.PointToScreen(New Point(ComboBox1.Width - 23, 5))
        Dim p1 As Point = ComboBox1.PointToScreen(New Point(0, 5))

        If p0.X > p1.X And p0.X < p.X Then
            SetCursorPos(p.X, p.Y)
            mouse_event(MOUSEEVENTF_LEFTDOWN, p.X, p.Y, 0, 0)
            mouse_event(MOUSEEVENTF_MOVE, -2000, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, p1.X, p.Y, 0, 0)
            SetCursorPos(p0.X, p0.Y)
        End If
    End Sub

[ccccffff]

还是有问题啊，选中的情况下，再点击，你会发现选中的长度都变短了。

[兔子-顾问]

自己写一个combobox吧。textbox+button+listview

[lhblxm]

  Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click

        Dim p0 As Point = Cursor.Position
        Dim p As Point = ComboBox1.PointToScreen(New Point(ComboBox1.Width - 23, 5))
        Dim p1 As Point = ComboBox1.PointToScreen(New Point(0, 5))

        If p0.X > p1.X And p0.X < p.X Then
            ComboBox1.SelectionStart = ComboBox1.Text.Length  要加上这一句
            ComboBox1.SelectionLength = 0
            SetCursorPos(p.X, p.Y)
            mouse_event(MOUSEEVENTF_LEFTDOWN, p.X, p.Y, 0, 0)
            mouse_event(MOUSEEVENTF_MOVE, -2000, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, p1.X, p.Y, 0, 0)
            SetCursorPos(p0.X, p0.Y)
        End If
    End Sub

[ccccffff]

谢谢哦
还差最后一个效果，在被选中的情况下，再点击的话，要去掉选中。没有被选中的话，点击就选中。

[lhblxm]

 Dim IsSelectedAll As Boolean

    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim p0 As Point = Cursor.Position
        Dim p As Point = ComboBox1.PointToScreen(New Point(ComboBox1.Width - 23, 5))
        Dim p1 As Point = ComboBox1.PointToScreen(New Point(0, 5))

        If p0.X > p1.X And p0.X < p.X Then
            If Not IsSelectedAll Then
                ComboBox1.SelectionStart = ComboBox1.Text.Length
                ComboBox1.SelectionLength = 0
                SendKeys.Send("+{LEFT " & ComboBox1.Text.Length & "}")
                IsSelectedAll = True
            Else
                IsSelectedAll = False
            End If
          
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        SendKeys.Send("{RIGHT}")
        SendKeys.Send("+{LEFT " & ComboBox1.Text.Length & "}")
        IsSelectedAll = True
    End Sub

你自应该想一想的。。。