home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pc3270sa.zip / vbdde / formsave.frm < prev    next >
Text File  |  2002-02-28  |  3KB  |  111 lines
  1. VERSION 4.00
  2. Begin VB.Form FormSaveLog 
  3.    Caption         =   "Save Log File"
  4.    ClientHeight    =   1452
  5.    ClientLeft      =   168
  6.    ClientTop       =   1428
  7.    ClientWidth     =   5448
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   7.8
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    ForeColor       =   &H80000008&
  18.    Height          =   1776
  19.    Left            =   120
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   1452
  23.    ScaleWidth      =   5448
  24.    Top             =   1152
  25.    Width           =   5544
  26.    Begin VB.CommandButton CancelButton 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "Cancel"
  29.       Height          =   372
  30.       Left            =   4224
  31.       TabIndex        =   3
  32.       Top             =   960
  33.       Width           =   972
  34.    End
  35.    Begin VB.CommandButton OkButton 
  36.       Caption         =   "OK"
  37.       Default         =   -1  'True
  38.       Height          =   372
  39.       Left            =   480
  40.       TabIndex        =   2
  41.       Top             =   960
  42.       Width           =   972
  43.    End
  44.    Begin VB.TextBox FileName 
  45.       BeginProperty Font 
  46.          name            =   "System"
  47.          charset         =   0
  48.          weight          =   700
  49.          size            =   9.6
  50.          underline       =   0   'False
  51.          italic          =   0   'False
  52.          strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   &H00000000&
  55.       Height          =   405
  56.       Left            =   1320
  57.       TabIndex        =   1
  58.       Top             =   360
  59.       Width           =   3870
  60.    End
  61.    Begin VB.Label Label1 
  62.       Caption         =   "File Name"
  63.       ForeColor       =   &H80000008&
  64.       Height          =   252
  65.       Left            =   192
  66.       TabIndex        =   0
  67.       Top             =   360
  68.       Width           =   1164
  69.    End
  70. End
  71. Attribute VB_Name = "FormSaveLog"
  72. Attribute VB_Creatable = False
  73. Attribute VB_Exposed = False
  74. Private Sub CancelButton_Click()
  75.     Hide
  76. End Sub
  77.  
  78. Private Sub FileName_Change()
  79.   If Len(filename.Text) > 0 Then
  80.     OkButton.Enabled = True
  81.   Else
  82.     OkButton.Enabled = False
  83.   End If
  84.  
  85. End Sub
  86.  
  87. Private Sub OkButton_Click()
  88.  
  89.   If (LogTop > 0) Or (LogEnd > 0) Then
  90.     Open filename.Text For Output As 1
  91.     If LogTop > LogEnd Then
  92.        For i% = LogTop To 99
  93.          temp$ = temp$ + LogData$(i%)
  94.        Next
  95.        For i% = 0 To LogEnd
  96.          temp$ = temp$ + LogData$(i%)
  97.        Next
  98.     ElseIf LogTop < LogEnd Then
  99.        For i% = LogTop To LogEnd
  100.          temp$ = temp$ + LogData$(i%)
  101.        Next
  102.     Else
  103.        temp$ = LogData$(i%)
  104.     End If
  105.     Print #1, temp$
  106.     Close #1
  107.   End If
  108.   Hide
  109. End Sub
  110.  
  111.