Liren Large Software Subsidy 10/10.iso/l/l406/1.ddi/NOTEPAD.FR_/NOTEPAD.bin

Visual Basic Form | 1992-10-21 | 7.3 KB | 277 lines

VERSION 2.00
Begin Form frmNotePad
   Caption         =   "Untitled"
   Height          =   4665
   Left            =   840
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3975
   ScaleWidth      =   5610
   Top             =   1740
   Visible         =   0   'False
   Width           =   5730
   Begin TextBox Text1
      Height          =   3855
      HideSelection   =   0   'False
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   5655
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFNew
         Caption         =   "&New"
      End
      Begin Menu mnuFOpen
         Caption         =   "&Open..."
      End
      Begin Menu mnuFClose
         Caption         =   "&Close"
      End
      Begin Menu mnuFSave
         Caption         =   "&Save"
      End
      Begin Menu mnuFSaveAs
         Caption         =   "Save &As..."
      End
      Begin Menu mnuFSep
         Caption         =   "-"
      End
      Begin Menu mnuFExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuEdit
      Caption         =   "&Edit"
      Begin Menu mnuECut
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin Menu mnuECopy
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin Menu mnuEPaste
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
      Begin Menu mnuEDelete
         Caption         =   "De&lete"
         Shortcut        =   {DEL}
      End
      Begin Menu mnuESep1
         Caption         =   "-"
      End
      Begin Menu mnuESelectAll
         Caption         =   "Select &All"
      End
      Begin Menu mnuETime
         Caption         =   "Time/&Date"
      End
   End
   Begin Menu mnuSearch
      Caption         =   "&Search"
      Begin Menu mnuSFind
         Caption         =   "&Find"
      End
      Begin Menu mnuSFindNext
         Caption         =   "Find &Next"
         Shortcut        =   {F3}
      End
   End
   Begin Menu mnuOptions
      Caption         =   "&Options"
      Begin Menu mnuOToolbar
         Caption         =   "&Toolbar"
      End
      Begin Menu mnuFont
         Caption         =   "&Font"
         Begin Menu mnuFontName
            Caption         =   "FontName"
            Index           =   0
         End
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin Menu mnuWCascade
         Caption         =   "&Cascade"
      End
      Begin Menu mnuWTile
         Caption         =   "&Tile"
      End
      Begin Menu mnuWArrange
         Caption         =   "&Arrange Icons"
      End
   End
Sub Form_Load ()
    Dim i As Integer
    mnuFontName(0).Caption = screen.Fonts(0)
    For i = 1 To screen.FontCount - 1
    Load mnuFontName(i)
    mnuFontName(0).Caption = screen.Fonts(i)
    Next
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    Dim Msg, Filename, NL
    Dim Response As Integer
    If FState(Me.Tag).Dirty Then
    Filename = Me.Caption
    NL = Chr$(10) & Chr$(13)
    Msg = "The text in [" & Filename & "] has changed."
    Msg = Msg & NL
    Msg = Msg & "Do you want to save the changes?"
    Response = MsgBox(Msg, 51, frmMDI.Caption)
    Select Case Response
    ' User selects Yes
    ' Load the File Save dialog
    Case 6
        ' Invoke the Save As procedure
        Call mnuFSaveAs_Click
        ' If the user has selected the Cancel button on
        ' the File Save dialog (not the msgbox), then the txtFileName
        ' text box is set to empty and the unload needs to be canceled.
        If IsEmpty(FileForm.txtFileName.Text) Then
        Cancel = True
        End If
    ' User selects No
    ' Ok to unload

    Case 7
        Cancel = False
    ' User selects Cancel
    ' Cancel the unload
    Case 2
        Cancel = True
    End Select
    End If
End Sub
Sub Form_Resize ()
    If windowstate <> 1 And ScaleHeight <> 0 Then
    Text1.Visible = False
    Text1.Height = ScaleHeight
    Text1.Width = ScaleWidth
    Text1.Visible = True
    End If
End Sub
Sub Form_Unload (Cancel As Integer)
    FState(Me.Tag).Deleted = True
'Hide toolbar edit buttons if no notepad windows
    If Not AnyPadsLeft() Then
    frmMDI!imgCutButton.Visible = False
    frmMDI!imgCopyButton.Visible = False
    frmMDI!imgPasteButton.Visible = False
    End If
End Sub
Sub mnuECopy_Click ()
    EditCopyProc
End Sub
Sub mnuECut_Click ()
    EditCutProc
End Sub
Sub mnuEDelete_Click ()
    ' Delete selected text.
    If screen.ActiveControl.SelLength = 0 Then
       screen.ActiveControl.SelLength = 1
    End If
    screen.ActiveControl.SelText = ""
End Sub
Sub mnuEPaste_Click ()
    EditPasteProc
End Sub
Sub mnuESelectAll_Click ()
    frmMDI.ActiveForm.Text1.SelStart = 0
    frmMDI.ActiveForm.Text1.SelLength = Len(frmMDI.ActiveForm.Text1.Text)
End Sub
Sub mnuETime_Click ()
    Dim TimeStr As String, DateStr As String
    Text1.SelText = Now
End Sub
Sub mnuFClose_Click ()
    Unload Me
End Sub
Sub mnuFExit_Click ()
    ' Unloading the MDI form invokes the QueryUnload event
    ' for each child form, then the MDI form - before unloading
    ' the MDI form. Setting the Cancel argument to True in any of the
    ' QueryUnload events aborts the unload.
    Unload frmMDI
End Sub
Sub mnuFNew_Click ()
    FileNew
End Sub
Sub mnuFontName_Click (Index As Integer)
    Text1.FontName = mnuFontName(Index).Caption
End Sub
Sub mnuFOpen_Click ()
    FOpenProc
End Sub
Sub mnuFSave_Click ()
    Dim Filename As String
    If Left(Me.Caption, 8) = "Untitled" Then
    ' The file hasn't been saved yet,
    ' get the filename, then call the
    ' save procedure
    Filename = GetFilename("Save As")
    Else
    ' The caption contains the name of the open file
    Filename = Me.Caption
    End If
    ' call the save procedure, if Filename = Empty then
    ' the user selected Cancel in the Save As dialog, otherwise
    ' save the file
    If Filename <> "" Then
    SaveFileAs Filename
    End If
End Sub
Sub mnuFSaveAs_Click ()
    Dim SaveFileName As String
    SaveFileName = GetFilename("Save As")
    If SaveFileName <> "" Then
    SaveFileAs (SaveFileName)
    End If
End Sub
Sub mnuOptions_Click ()
    mnuOToolbar.Checked = frmMDI!picToolbar.Visible
End Sub
Sub mnuOToolbar_Click ()
    OptionsToolbarProc Me
End Sub
Sub mnuSFind_Click ()
    If Me!Text1.SelText <> "" Then
    frmFind!Text1.Text = Me!Text1.SelText
    Else
    frmFind!Text1.Text = FindString
    End If
    gFirstTime = True
    frmFind.Show
End Sub
Sub mnuSFindNext_Click ()
    If Len(gFindString) > 0 Then
    FindIt
    Else
    mnuSFind_Click
    End If
End Sub
Sub mnuWArrange_Click ()
    frmMDI.Arrange ARRANGE_ICONS
End Sub
Sub mnuWCascade_Click ()
    frmMDI.Arrange CASCADE
End Sub
Sub mnuWTile_Click ()
    frmMDI.Arrange TILE_HORIZONTAL
End Sub
Sub Text1_Change ()
    FState(Me.Tag).Dirty = True
End Sub
Sub Text1_GotFocus ()
    If frmFind.Visible Then
    frmFind.ZOrder 0
    End If
End Sub