Right-Click Menü kodunda hata...

[tamer42]

Merhabalar,
TextBox üzerinde sağ-click ile ilgili aşağıdaki video' ya bakarak bir uygulama hazırlamaya çalışıyordum

With CommandBars.Add(menuName, msoBarPopup)
satırında ekli görseldeki hata mesajını veriyor,

sorun neden kaynaklanabilir?

desteğiniz için şimdiden teşekkürler,
iyib Çalışmalar.

ublic Sub popRightClickMenu()

deleteMenu

With CommandBars.Add(menuName, msoBarPopup)

    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Cut"
        .Caption = "&Cut"
    End With
    
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Copy"
        .Caption = "&Copy"
    End With
    
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Paste"
        .Caption = "&Paste"
    End With
    
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Clear"
        .Caption = "&Clear"
    End With
    
      
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Select"
        .Caption = "&Select"
    End With
        
     .ShowPopup

End With

deleteMenu

End Sub

 

[Hakan ERDOST]

Merhabalar,
TextBox üzerinde sağ-click ile ilgili aşağıdaki video' ya bakarak bir uygulama hazırlamaya çalışıyordum

With CommandBars.Add(menuName, msoBarPopup)
satırında ekli görseldeki hata mesajını veriyor,

sorun neden kaynaklanabilir?

desteğiniz için şimdiden teşekkürler,
iyib Çalışmalar.

ublic Sub popRightClickMenu()

deleteMenu

With CommandBars.Add(menuName, msoBarPopup)

    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Cut"
        .Caption = "&Cut"
    End With
  
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Copy"
        .Caption = "&Copy"
    End With
  
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Paste"
        .Caption = "&Paste"
    End With
  
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Clear"
        .Caption = "&Clear"
    End With
  
    
    With .Controls.Add(msoControlButton)
        .OnAction = "tBox_Select"
        .Caption = "&Select"
    End With
      
     .ShowPopup

End With

deleteMenu

End Sub

Public txtObj As MSForms.TextBox
Const menuName As String = "tempMenu"

Public Sub popRightClickMenu()
    DeleteMenu

    Dim myBar As CommandBar
    Set myBar = CommandBars.Add(menuName, msoBarPopup)

    With myBar.Controls.Add(msoControlButton)
        .OnAction = "tBox_Cut"
        .Caption = "&Kes"
    End With
    
    With myBar.Controls.Add(msoControlButton)
        .OnAction = "tBox_Copy"
        .Caption = "&Kopyala"
    End With
    
    With myBar.Controls.Add(msoControlButton)
        .OnAction = "tBox_Paste"
        .Caption = "&Yapıştır"
    End With
    
    With myBar.Controls.Add(msoControlButton)
        .OnAction = "tBox_Clear"
        .Caption = "&Temizle"
    End With
    
    With myBar.Controls.Add(msoControlButton)
        .OnAction = "tBox_Select"
        .Caption = "&Seç"
    End With

    myBar.ShowPopup
    DeleteMenu
End Sub

Sub DeleteMenu()
    On Error Resume Next
    CommandBars(menuName).Delete
End Sub

Sub tBox_Cut()
    txtObj.Cut
End Sub

Sub tBox_Copy()
    txtObj.Copy
End Sub

Sub tBox_Paste()
    txtObj.Paste
End Sub

Sub tBox_Clear()
    txtObj.Text = ""
End Sub

Sub tBox_Select()
    txtObj.SelStart = 0
    txtObj.SelLength = Len(txtObj.Text)
End Sub

 

[Hakan ERDOST]

Dosya.

 

[tamer42]

Dosya.

Çok Teşekkürler Hakan Hocam
iyi akşamlar.

 

[Hakan ERDOST]

Çok Teşekkürler Hakan Hocam
iyi akşamlar.

Rica ederim.İyi akşamlar.