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
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