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 SelectEnd 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 IfEnd 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) (alıntıdır)
Kolay Gelsin