home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD76567102000.psc / FrmNotepad.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-08  |  1.6 KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmNotepad 
  3.    Caption         =   "Untitled - Notepad"
  4.    ClientHeight    =   5040
  5.    ClientLeft      =   3615
  6.    ClientTop       =   3315
  7.    ClientWidth     =   8415
  8.    Icon            =   "FrmNotepad.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5040
  11.    ScaleWidth      =   8415
  12.    Begin VB.TextBox txtWindow 
  13.       BeginProperty Font 
  14.          Name            =   "Fixedsys"
  15.          Size            =   9
  16.          Charset         =   0
  17.          Weight          =   400
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   3735
  23.       Left            =   0
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   3  'Both
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   5535
  29.    End
  30.    Begin VB.Menu MnuFile 
  31.       Caption         =   "&File"
  32.    End
  33.    Begin VB.Menu Mnuserach 
  34.       Caption         =   "&Edit"
  35.    End
  36.    Begin VB.Menu Mnusearch 
  37.       Caption         =   "&Search"
  38.    End
  39.    Begin VB.Menu Mnuhelp 
  40.       Caption         =   "&Help"
  41.    End
  42. Attribute VB_Name = "FrmNotepad"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47. Private Sub Form_Resize()
  48. Me.txtWindow.Height = Me.ScaleHeight
  49. Me.txtWindow.Width = Me.ScaleWidth
  50. End Sub
  51. Private Sub txtWindow_KeyDown(KeyCode As Integer, Shift As Integer)
  52. If KeyCode = 13 And txtWindow.Text = "chat" Then
  53. FrmNotepad.Visible = False
  54. FrmChat.Visible = True
  55. End If
  56. End Sub
  57.