| 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
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |