' This Pro From Aminu Aruwa

Option Explicit
Private flg As Boolean
Private FName As String

Private Sub Form_Load()

Form_Resize                             'Call Resize Event
flg = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
                                        'Unload Form
On Error Resume Next
If RTFtxt.Text = vbNullString Then
End
Else

Dim iResponse As String
iResponse = MsgBox("Do you want to save document  ", vbYesNo + vbInformation + vbApplicationModal + vbDefaultButton1, "Text Edit Pro")

Select Case iResponse
    Case vbYes:
      mnuSave_Click
      End
    Case vbNo:
     End
End Select
End If
End Sub

Private Sub Form_Resize()               'Resize RTF

On Error Resume Next                    'Err Trapping
RTFtxt.Move 100, 100, Me.ScaleWidth - 200, (Me.ScaleHeight + Status.Height) - 200
RTFtxt.RightMargin = RTFtxt.Width - 400

End Sub

Private Sub mnuAboutTextEditPro_Click() 'Help

On Error Resume Next
About.Show
End Sub

Private Sub mnuCopy_Click()             'Copy

On Error Resume Next
Clipboard.SetText RTFtxt.SelText

End Sub

Private Sub mnuCut_Click()              'Cut

On Error Resume Next
Clipboard.SetText RTFtxt.SelText
RTFtxt.SelText = vbNullString

End Sub

Private Sub mnuDelete_Click()           'Delete

On Error Resume Next
RTFtxt.SelText = vbNullString

End Sub

Private Sub mnuExit_Click()             'Exit

On Error Resume Next
If RTFtxt.Text = vbNullString Then
End
Else

Dim iResponse As String
iResponse = MsgBox("Do you want to save document  ", vbYesNo + vbInformation + vbApplicationModal + vbDefaultButton1, "Text Edit Pro")

Select Case iResponse
    Case vbYes:
     mnuSave_Click
     End
    Case vbNo:
      End
End Select
End If
End Sub

Private Sub mnuFind_Click()             'Call Form Find

On Error Resume Next
Find.Show

End Sub

Private Sub mnuFindNext_Click()         'Call Form Find

Find.Show

End Sub

Private Sub mnuFont_Click()             'Font Dlg

On Error Resume Next
DlgFont.CancelError = False
DlgFont.DialogTitle = "Select Font"
DlgFont.Flags = cdlCFBoth Or cdlCFEffects
DlgFont.ShowFont
RTFtxt.SelFontName = DlgFont.FontName
RTFtxt.SelFontSize = DlgFont.FontSize
RTFtxt.SelBold = DlgFont.FontBold
RTFtxt.SelColor = DlgFont.Color
RTFtxt.SelItalic = DlgFont.FontItalic
RTFtxt.SelStrikeThru = DlgFont.FontStrikethru
RTFtxt.SelUnderline = DlgFont.FontUnderline

End Sub

Private Sub mnuNew_Click()              'New

On Error Resume Next
If RTFtxt.Text = vbNullString Then
Exit Sub
Else
Dim iResponse As String
iResponse = MsgBox("Do you want to save document  ", vbYesNo + vbInformation + vbApplicationModal + vbDefaultButton1, "Text Edit Pro")

Select Case iResponse
    Case vbYes:
      
    Case vbNo:
      RTFtxt.Text = vbNullString
End Select
End If

End Sub

Private Sub mnuOpen_Click()             'Open

On Error Resume Next
If RTFtxt.Text = vbNullString Then
DlgOpen.DefaultExt = "Open"
DlgOpen.CancelError = True
DlgOpen.Filter = "Text Documents (*.txt)|*.txt|RTF Document (*.rtf)|*.rtf|All Files (*.*)|*.*"
DlgOpen.ShowOpen
FName = DlgOpen.FileName
RTFtxt.LoadFile FName
Else
Dim iResponse As String
iResponse = MsgBox("Do you want to save document  ", vbYesNo + vbInformation + vbApplicationModal + vbDefaultButton1, "Text Edit Pro")

Select Case iResponse
    Case vbYes:
      mnuSave_Click
    Case vbNo:
      
DlgOpen.DefaultExt = "Open"
DlgOpen.CancelError = True
DlgOpen.Filter = "Text Documents (*.txt)|*.txt|RTF Document (*.rtf)|*.rtf|All Files (*.*)|*.*"
DlgOpen.ShowOpen
FName = DlgOpen.FileName
RTFtxt.LoadFile FName

End Select
End If
End Sub

Private Sub mnuPageSetup_Click()        'PageSetUp

On Error Resume Next
DlgPrintSetup.Flags = cdlPDPrintSetup
DlgPrintSetup.DialogTitle = "Page Setup"
DlgPrintSetup.ShowPrinter
DlgPrintSetup.CancelError = True

End Sub

Private Sub mnuPaste_Click()            'Paste

On Error Resume Next
RTFtxt.SelText = Clipboard.GetText

End Sub

Private Sub mnuPrint_Click()            'Print

On Error Resume Next
If RTFtxt.Text = vbNullString Then
Call MsgBox("There is no text to print  ", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "Text Edit Pro")
Exit Sub
Else
DlgPrint.CancelError = True
DlgPrint.DialogTitle = "Print"
DlgPrint.ShowPrinter
End If

End Sub

Private Sub mnuReplace_Click()          'Call Form Replace
Replace.Show
End Sub

Private Sub mnuSave_Click()             'Save

On Error Resume Next
If flg = False Then
flg = True
DlgSave.DefaultExt = "txt"
DlgSave.CancelError = True
DlgSave.DialogTitle = "Save"
DlgSave.Filter = "Text Documents (*.txt)|*.txt|RTF Document (*.RTF)|*.rtf|All Files (*.*)|*.*"
DlgSave.FilterIndex = 2
DlgSave.InitDir = App.Path
DlgSave.ShowSave
FName = DlgSave.FileName
RTFtxt.SaveFile FName
Else
RTFtxt.SaveFile FName
End If
End Sub

Private Sub mnuSaveAs_Click()           'Save As

On Error Resume Next
DlgSave.DefaultExt = "txt"
DlgSave.CancelError = True
DlgSave.DialogTitle = "Save As"
DlgSave.Filter = "Text Documents (*.txt)|*.txt|RTF Document (*.RTF)|*.rtf|All Files (*.*)|*.*"
DlgSave.FilterIndex = 2
DlgSave.InitDir = App.Path
DlgSave.ShowSave
FName = DlgSave.FileName
RTFtxt.SaveFile FName


End Sub

Private Sub mnuSelectAll_Click()        'Select All

On Error Resume Next
RTFtxt.SelStart = 0
RTFtxt.SelLength = Len(RTFtxt.Text)

End Sub

Private Sub mnuStatusBar_Click()        'Show Or Hide Status Bar

On Error Resume Next
mnuStatusBar.Checked = Not mnuStatusBar.Checked
Status.Visible = mnuStatusBar.Checked

End Sub

Private Sub mnuTimeDate_Click()         'Insert Date And Time

On Error Resume Next
RTFtxt.SelText = Now

End Sub

Private Sub mnuUndo_Click()             'Undo

On Error Resume Next
SendKeys "^Z"

End Sub
------------
'This Pro From Neosoft
'Chairman       : Rinto Andrews
'Date Created   : Dec 3 / 2007
'Created by     : Rinto Andrews

Option Explicit

Private Sub Command1_Click()            'Find text

On Error Resume Next
Dim options As String
Text_Edit.RTFtxt.SelStart = 0

If Text_Edit.RTFtxt.Find(Text1.Text, Text_Edit.RTFtxt.SelStart + Text_Edit.RTFtxt.SelLength) = -1 Then
MsgBox "Unable to Find", vbInformation, "Text Edit Pro"
End If

End Sub

Private Sub Command2_Click()            'Replace

Text_Edit.RTFtxt.SelText = Text2.Text

End Sub

Private Sub Command3_Click()            'Hide

Me.Hide

End Sub
-----------------

'This Pro From Neosoft
'Chairman       : Rinto Andrews
'Date Created   : Dec 3 /2007
'Created by     : Rinto Andrews

Option Explicit


Private Sub Command1_Click()            'Find

On Error Resume Next
Dim options As String
Text_Edit.RTFtxt.SelStart = 0

If Text_Edit.RTFtxt.Find(Text1.Text, Text_Edit.RTFtxt.SelStart + Text_Edit.RTFtxt.SelLength) = -1 Then
MsgBox "Unable to Find", vbInformation, "Text Edit Pro"
End If


End Sub

Private Sub Command2_Click()            'Hide Form

On Error Resume Next
Me.Hide

End Sub