AllSyntax.com: » Code » Visual Basic » 42 » Text Editor


	Maybe this world is another planet's Hell. - Aldous Huxley

[login] | [Register]

Text Editor

by: bs0d

Description:

This text editor is by no means complete, just an example for searching within the editor, cut, copy and pasting text as well. All of the options are in the menu of the program.

See Full Size

Code:

Private Sub Form_Resize()
    txtEdit.Height = frmEdit.ScaleHeight
    txtEdit.Width = frmEdit.ScaleWidth
    
End Sub

Private Sub mnuEdit_Click()
If txtEdit.SelText = "" Then
    mnuEditCut.Enabled = False
    mnuEditCopy.Enabled = False
Else
    mnuEditCut.Enabled = True
    mnuEditCopy.Enabled = True
End If

If Clipboard.GetText() = "" Then
    mnuEditPaste.Enabled = False
Else
    mnuEditPaste.Enabled = True
End If

End Sub

Private Sub mnuEditCopy_Click()

Clipboard.Clear                     'clear clipboard
    Clipboard.SetText txtEdit.SelText   'send text to clipboard
    
End Sub

Private Sub mnuEditCut_Click()

Clipboard.Clear                      'clear clipboard
    Clipboard.SetText txtEdit.SelText    'send text to clipboard
    txtEdit.SelText = ""                 'remove selected text from text box

End Sub

Private Sub mnuEditFind_Click()
    Const conBtns As Integer = vbOKOnly + vbInformation _
                + vbDefaultButton1 + vbApplicationModal
    Const conMsg As String = "The search string was not found."
    Dim intRetVal As Integer
    Dim intFoundPos As Integer
    strSearchFor = InputBox("Find what?", "Find")
    intFoundPos = InStr(1, txtEdit.Text, strSearchFor, 1)
    If intFoundPos = 0 Then
        intRetVal = MsgBox(conMsg, conBtns, "Find")
    Else
        txtEdit.SelStart = intFoundPos - 1
        txtEdit.SelLength = Len(strSearchFor)
    End If
    
    
End Sub

Private Sub mnuEditFindNext_Click()
Const conBtns As Integer = vbOKOnly + vbInformation _
            + vbDefaultButton1 + vbApplicationModal
Const conMsg As String = "The search has been completed."
Dim intRetVal As Integer
Dim intFoundPos As Integer, intBegSearch As Integer
intBegSearch = txtEdit.SelStart + 2
intFoundPos = InStr(intBegSearch, txtEdit.Text, strSearchFor, 1)
If intFoundPos = 0 Then
    intRetVal = MsgBox(conMsg, conBtns, "Find Next")
Else
    txtEdit.SelStart = intFoundPos - 1
    txtEdit.SelLength = Len(strSearchFor)
End If

End Sub

Private Sub mnuEditPaste_Click()
    
    'Retrieve text from clipboard, paste into textbox
        
        txtEdit.SelText = Clipboard.GetText()
        
End Sub

Private Sub mnuFileExit_Click()
    Unload frmEdit
    
End Sub

No Comments for this page.

You Must be signed in or a member to comment.