wincit/editbbs.frm

   1 VERSION 4.00
   2 Begin VB.Form EditBBS
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    ClientHeight    =   1875
   7    ClientLeft      =   1005
   8    ClientTop       =   1830
   9    ClientWidth     =   6420
  10    ControlBox      =   0   'False
  11    BeginProperty Font
  12       name            =   "MS Sans Serif"
  13       charset         =   0
  14       weight          =   700
  15       size            =   8.25
  16       underline       =   0   'False
  17       italic          =   0   'False
  18       strikethrough   =   0   'False
  19    EndProperty
  20    ForeColor       =   &H80000008&
  21    Height          =   2280
  22    Left            =   945
  23    LinkTopic       =   "Form1"
  24    MaxButton       =   0   'False
  25    MDIChild        =   -1  'True
  26    MinButton       =   0   'False
  27    ScaleHeight     =   1875
  28    ScaleWidth      =   6420
  29    Top             =   1485
  30    Width           =   6540
  31    Begin VB.CommandButton cancel_button
  32       Appearance      =   0  'Flat
  33       BackColor       =   &H80000005&
  34       Cancel          =   -1  'True
  35       Caption         =   "Cancel"
  36       Height          =   495
  37       Left            =   5280
  38       TabIndex        =   6
  39       Top             =   1320
  40       Width           =   1095
  41    End
  42    Begin VB.CommandButton save_button
  43       Appearance      =   0  'Flat
  44       BackColor       =   &H80000005&
  45       Caption         =   "Save"
  46       Height          =   495
  47       Left            =   4080
  48       TabIndex        =   5
  49       Top             =   1320
  50       Width           =   1095
  51    End
  52    Begin Threed.SSFrame fPhoneOrAddress
  53       Height          =   615
  54       Left            =   120
  55       TabIndex        =   1
  56       Top             =   600
  57       Width           =   6255
  58       _Version        =   65536
  59       _ExtentX        =   11033
  60       _ExtentY        =   1085
  61       _StockProps     =   14
  62       Caption         =   "Internet address"
  63       Begin VB.TextBox uPhoneOrAddress
  64          Alignment       =   2  'Center
  65          Appearance      =   0  'Flat
  66          BackColor       =   &H00C0C0C0&
  67          BorderStyle     =   0  'None
  68          Height          =   285
  69          Left            =   120
  70          TabIndex        =   4
  71          Text            =   "Text11"
  72          Top             =   240
  73          Width           =   6015
  74       End
  75    End
  76    Begin Threed.SSFrame Frame3D1
  77       Height          =   615
  78       Left            =   120
  79       TabIndex        =   0
  80       Top             =   0
  81       Width           =   6255
  82       _Version        =   65536
  83       _ExtentX        =   11033
  84       _ExtentY        =   1085
  85       _StockProps     =   14
  86       Caption         =   "Name"
  87       Begin VB.TextBox uName
  88          Alignment       =   2  'Center
  89          Appearance      =   0  'Flat
  90          BackColor       =   &H00C0C0C0&
  91          BorderStyle     =   0  'None
  92          Height          =   288
  93          Left            =   120
  94          TabIndex        =   3
  95          Text            =   "Text11"
  96          Top             =   240
  97          Width           =   6012
  98       End
  99    End
 100    Begin Threed.SSFrame fTCPport
 101       Height          =   615
 102       Left            =   120
 103       TabIndex        =   2
 104       Top             =   1200
 105       Width           =   3255
 106       _Version        =   65536
 107       _ExtentX        =   5741
 108       _ExtentY        =   1085
 109       _StockProps     =   14
 110       Caption         =   "Port number"
 111       Begin VB.TextBox uTCPport
 112          Appearance      =   0  'Flat
 113          BackColor       =   &H00C0C0C0&
 114          BorderStyle     =   0  'None
 115          Height          =   288
 116          Left            =   120
 117          TabIndex        =   7
 118          Top             =   240
 119          Width           =   3012
 120       End
 121    End
 122 End
 123 Attribute VB_Name = "EditBBS"
 124 Attribute VB_Creatable = False
 125 Attribute VB_Exposed = False
 126
 127 Private Sub cancel_button_Click()
 128     Load SelectBBS
 129     Unload EditBBS
 130 End Sub
 131
 132 Private Sub Form_Load()
 133     uname.Text = StripTrailingWhiteSpace(CurrBBS.Name)
 134     If uname.Text = "newbbs000" Then uname.Text = "New BBS entry"
 135     uPhoneOrAddress = StripTrailingWhiteSpace(CurrBBS.PhoneOrAddress)
 136
 137     EditBBS.Height = 2550
 138     uTCPport.Text = Str$(CurrBBS.TCPport)
 139
 140
 141 End Sub
 142
 143 Private Sub save_button_Click()
 144     CurrBBS.Name = uname.Text
 145     CurrBBS.PhoneOrAddress = uPhoneOrAddress.Text
 146     On Error Resume Next
 147     CurrBBS.TCPport = Int(uTCPport)
 148     If Err <> 0 Then CurrBBS.TCPport = DefaultPort
 149
 150     Load SelectBBS
 151     Unload EditBBS
 152 End Sub
 153
 154