- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Kopyala Yapıştır Algoritması ;
Dim veri As String
Private Sub Timer1_Timer()
If veri <> Clipboard.GetText Then
Text1 = Text1 & Date & "/" & Time & "=" & Clipboard.GetText & Chr(13)
veri = Clipboard.GetText
End If
End Sub
Dim veri As String
Private Sub Timer1_Timer()
If veri <> Clipboard.GetText Then
Text1 = Text1 & Date & "/" & Time & "=" & Clipboard.GetText & Chr(13)
veri = Clipboard.GetText
End If
End Sub