• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Notepad with other options such as copy, paste, cut , fonts

Notepad with other options such as copy, paste, cut , fonts

Notepad with other options such as copy, paste, cut , fonts

Rate Notepad with other options such as copy, paste, cut , fonts

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

write this code
Private Sub menucopy_Click()
On Error Resume Next
Clipboard.SetText rtbox.SelText
menupaste.Enabled = True
' this is the function to copy the text from the clipboard'
End Sub
*************************************************************************
on the paste event write this code
Private Sub menupaste_Click()
On Error Resume Next
rtbox.SelText = Clipboard.GetText
' this is the function to paste the text to the clipboard'
End Sub
*************************************************************************
on the cut event write this code
Private Sub menucut_Click()
On Error Resume Next
rtbox.Text = ""
end sub
*************************************************************************
on the select all event write this code
Private Sub menuall_Click()
On Error Resume Next
rtbox.SelStart = 0
rtbox.SelLength = Len(rtbox.Text)
end sub
**************************************************************************
on the time/date write this code
Private Sub menutimedate_Click()
On Error Resume Next
' this syntax helps to write both the time and date into the textbox'
rtbox.Text = Time & Format(Date)
End Sub
**************************************************************************
to show the font box write this code
Private Sub menufont_Click()
On Error Resume Next
    cd.Flags = cdlCFBoth
    cd.ShowFont
    rtbox.SelFontName = cd.FontName
    rtbox.SelFontSize = cd.FontSize
    rtbox.SelBold = cd.FontBold
    rtbox.SelItalic = cd.FontItalic
    rtbox.SelUnderline = cd.FontUnderline
    ' this displays the font dialog box'
End Sub
***************************************************************************
to search the code in the note pad use the following code
On Error Resume Next
private sub search_click()
Dim compare As String
  If Text Then
  compare = vbTextCompare
  Else
  compare = vbBinaryCompare
    End If
 position = InStr(position + 1, frmmain.rtbox.Text, text1.Text, compare)
   If position > 0 Then
   frmmain.rtbox.SelStart = position - 1
   frmmain.rtbox.SelLength = Len(text1.Text)
     frmmain.SetFocus
     frmmain.rtbox.SelBold = position - 1
     frmmain.rtbox.SelColor = vbBlue
     Else
     MsgBox " Notepad finished searching"
     End If
End Sub
*****************************************************************************
thats it easy naaaa you can make many pad applications like this...
 If you want to ask me questions you are free to email me at [email protected]