home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / saveit.frm < prev    next >
Text File  |  1995-02-27  |  2KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form Saveit 
  3.    Caption         =   "OGMESSAGE -Save As"
  4.    ClientHeight    =   1590
  5.    ClientLeft      =   1050
  6.    ClientTop       =   4590
  7.    ClientWidth     =   6240
  8.    Height          =   2115
  9.    Left            =   990
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   1590
  13.    ScaleWidth      =   6240
  14.    Top             =   4125
  15.    Width           =   6360
  16.    Begin CommandButton Cancel 
  17.       Caption         =   "&Cancel"
  18.       Height          =   375
  19.       Left            =   4560
  20.       TabIndex        =   2
  21.       Top             =   840
  22.       Width           =   1455
  23.    End
  24.    Begin TextBox savepath 
  25.       Height          =   375
  26.       Left            =   240
  27.       TabIndex        =   0
  28.       Top             =   840
  29.       Width           =   4215
  30.    End
  31.    Begin CommandButton ok_btn 
  32.       Caption         =   "&Ok"
  33.       Height          =   375
  34.       Left            =   4560
  35.       TabIndex        =   1
  36.       Top             =   240
  37.       Width           =   1455
  38.    End
  39.    Begin Label Label1 
  40.       Caption         =   "Enter Save Path"
  41.       Height          =   375
  42.       Left            =   240
  43.       TabIndex        =   3
  44.       Top             =   240
  45.       Width           =   3975
  46.    End
  47. End
  48. Sub cancel_Click ()
  49. Unload saveit
  50. End Sub
  51.  
  52. Sub ok_btn_Click ()
  53. If savepath.text <> "" Then
  54.     Open savepath.text For Output As #2
  55.         Print #2, savetext
  56.         savetext = ""
  57.     Close #2
  58. End If
  59. Unload saveit
  60. End Sub
  61.  
  62.