Могу ли я указать culomn правой кнопкой мыши в ListBox? - PullRequest
Новая
       56

Могу ли я указать culomn правой кнопкой мыши в ListBox?

0 голосов
/ 05 апреля 2020

Я пытаюсь добавить опцию щелчка правой кнопкой мыши в своем списке. Я использую его, чтобы открыть всплывающее меню, чтобы изменить информацию о строках, но я могу сделать это только с одним столбцом, но в моем списке есть 7 столбцов. Могу ли я указать столбец, который щелкнув правой кнопкой мыши по нему 

Private Sub ListBox5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Sheet6.ListBox5.ListIndex = Null Or Sheet6.ListBox5.ListIndex = -1 Then Exit Sub

    Call MakePopUp

    If Button = 2 Then
        Application.CommandBars("MyPopUp").ShowPopup
    End If
End Sub

Sub MakePopUp()
    Dim sss
    'Remove any old instance of MyPopUp
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0


    With CommandBars.Add(Name:="MyPopUp", Position:=msoBarPopup)
        sss = Sheet25.Range("y" & Sheet6.ListBox5.ListIndex + 3).Address
        .Controls.Add Type:=msoControlButton
             .Controls(1).Caption = Sheet25.Range("y" & Sheet6.ListBox5.ListIndex + 3)

             .Controls(1).OnAction = "aks1"
             .Controls(1).FaceId = 3526
        .Controls.Add Type:=msoControlButton
             .Controls(2).Caption = Sheet25.Range("z" & Sheet6.ListBox5.ListIndex + 3)
             .Controls(2).OnAction = "aks2"
             .Controls(2).FaceId = 3526
        .Controls.Add Type:=msoControlButton
             .Controls(3).Caption = Sheet25.Range("aa" & Sheet6.ListBox5.ListIndex + 3)
             .Controls(3).OnAction = "aks3"
             .Controls(3).FaceId = 3526

    End With
End Sub

Sub KillPopUp()
    On Error Resume Next
    CommandBars("MyPopUp").Delete
    On Error GoTo 0
End Sub

Sub aks1()
    With Sheet6.ListBox5
        .List(.ListIndex, 2) = Sheet25.Range("y" & .ListIndex + 3).Text
    End With
End Sub
...