Programalama > VISUAL BASIC

Sub Kes(x As Form, CntTxt As Control)
If x.CntTxt.SelText > "" Then
Clipboard.SetText x.CntTxt.SelText
x.CntTxt.SelText = ""
End If
End Sub
'-----------
Sub kopyala(x As Form, CntTxt As Control)
If x.CntTxt.SelText > "" Then
Clipboard.SetText x.CntTxt.SelText
End If
End Sub
'------------
Sub yapıştır(x As Form, CntTxt As Control)
clp$ = Clipboard.GetText()
If clp$ > "" And Clipboard.GetFormat(1) Then
x.CntTxt.SelText = clp$
End If
End Sub