Kes, Kopyala, Yapıştır

Bir TextBox'ta Kes, Kopyala, Yapıştır, Geri Al işlemlerinin yapılması için iki tane çok kolay yol mevcut. Aşağıdaki örnekler SendKeys methodunu kullanıyor. 

İşte birinci örnek: 

Sub DoEditThing(whatThing As String, onWhat As Object)
    Select Case whatThing
        Case "Copy"
            onWhat.SetFocus
            SendKeys "^C"
        Case "Cut"
            onWhat.SetFocus
            SendKeys "^X"
        Case "Paste"
            onWhat.SetFocus
            SendKeys "^V"
        Case "Undo"
            onWhat.SetFocus
            SendKeys "^Z"
    End Select
End Sub

Aşağıdaki kod aynı işi yapan ikinci örnek: 

Sub DoEditThing(whatThing As String, onWhat As Object)
Dim Send$    
   Select Case whatThing
        Case "Copy"
            Send = "^C"
        Case "Cut"
            Send = "^X"
        Case "Paste"
            Send = "^V"
        Case "Undo"
            Send = "^Z"
    End Select
    If Len(Send) Then 
        onWhat.SetFocus 
        SendKeys Send
    End If
End Sub

Şimdi, yukarıdaki iki örnekten birini formunuza ekledikten sonra aşağıdaki kod satırıyla istediğiniz işlemi yapabilirsiniz. 

DoEditThing Copy|Cut|Paste|Undo*, On_Which_Object** 

* - Bir tanesini seçin; Copy, Cut, Paste veya Undo
** - TextBox'ı seçin; (ör. Text1)