Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 A Few Functions
Index -> Programming, Visual Basic and Other Basics -> Visual Basic Tutorials
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Studio




PostPosted: Sun Jan 29, 2006 10:39 am   Post subject: A Few Functions

Make unlimited windows:
code:
Private Sub Command1_Click()
Dim Form1 As New Form1
Form1.Visible = True
End Sub


Copy Selected Text:
code:

Private Sub MnuCpy_Click()
Clipboard.SetText Text1.SelText
End Sub


Cut Selected Text:
code:
Private Sub MnuCut_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub


Paste Text in Clipboard:
code:
Private Sub MnuPaste_Click()
Text1.SelText = Clipboard.GetText
End Sub


Select all text for specific form item:
code:
Private Sub MnuSel_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Visual Basic and Other Basics -> Visual Basic Tutorials
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: