Computer Science Canada

A Few Functions

Author:

Studio [ 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

You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy