by Wil W. (1 Submission)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Sun 7th June 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Reverses a word/sentence and copies it to your clipboard, a useless application to be honest...
API Declarations
Dim ReverseSent(500) As String
Dim ReverseDone(500) As String
Dim RevDone As String
Dim iRevCount As Integer
Dim iRevDone As Integer
TxtOut.Clear()
iRevLen = Len(TxtRev.Text)
iRevCount = 501
For iCount = 1 To iRevLen
ReverseSent(iCount) = Mid(TxtRev.Text, iCount, 1)
Next
For iCount = 1 To iRevLen
iRevCount = iRevCount - 1
ReverseDone(iRevCount) = ReverseSent(iCount)
Next
iRevDone = (501 - iRevLen)
For iCount = iRevDone To 500
RevDone = ReverseDone(iCount)
TxtOut.AppendText(RevDone)
Next
Clipboard.SetText(TxtOut.Text)
End Sub
No comments have been posted about Reverses a word/sentence and copies it to your clipboard, a useless application to be honest.... Why not be the first to post a comment about Reverses a word/sentence and copies it to your clipboard, a useless application to be honest....