home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / choreo / shipaddr.fr_ / shipaddr.bin (.txt)
Encoding:
Visual Basic Form  |  1995-08-23  |  4.4 KB  |  141 lines
  1. VERSION 2.00
  2. Begin Form cfrmShippingAddr 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Shipping Address"
  5.    ClientHeight    =   2025
  6.    ClientLeft      =   7575
  7.    ClientTop       =   3105
  8.    ClientWidth     =   5385
  9.    Height          =   2430
  10.    Left            =   7515
  11.    LinkTopic       =   "Form3"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2025
  14.    ScaleWidth      =   5385
  15.    Top             =   2760
  16.    Width           =   5505
  17.    Begin SSFrame fra3dShipMethod 
  18.       Caption         =   "Ship Method"
  19.       ForeColor       =   &H00000000&
  20.       Height          =   1815
  21.       Left            =   3960
  22.       TabIndex        =   11
  23.       Top             =   120
  24.       Width           =   1335
  25.       Begin SSOption opt3d2ndDay 
  26.          Caption         =   "2nd Day"
  27.          Height          =   255
  28.          Left            =   120
  29.          TabIndex        =   10
  30.          Top             =   1440
  31.          Width           =   1095
  32.       End
  33.       Begin SSOption opt3dNextDay 
  34.          Caption         =   "Next Day"
  35.          Height          =   255
  36.          Left            =   120
  37.          TabIndex        =   8
  38.          Top             =   1080
  39.          Width           =   1095
  40.       End
  41.       Begin SSOption opt3dAfternoon 
  42.          Caption         =   "Afternoon"
  43.          Height          =   255
  44.          Left            =   120
  45.          TabIndex        =   7
  46.          Top             =   720
  47.          Width           =   1095
  48.       End
  49.       Begin SSOption opt3dMorning 
  50.          Caption         =   "Morning"
  51.          Height          =   255
  52.          Left            =   120
  53.          TabIndex        =   6
  54.          Top             =   360
  55.          Width           =   975
  56.       End
  57.    End
  58.    Begin SSFrame fra3dSendOrderTo 
  59.       Caption         =   "Send Order To:"
  60.       ForeColor       =   &H00000000&
  61.       Height          =   1815
  62.       Left            =   120
  63.       TabIndex        =   9
  64.       Top             =   120
  65.       Width           =   3735
  66.       Begin TextBox txtZipCode 
  67.          Height          =   300
  68.          Left            =   2880
  69.          TabIndex        =   5
  70.          Top             =   1320
  71.          Width           =   735
  72.       End
  73.       Begin TextBox txtState 
  74.          Height          =   300
  75.          Left            =   2415
  76.          TabIndex        =   4
  77.          Top             =   1320
  78.          Width           =   495
  79.       End
  80.       Begin TextBox txtCity 
  81.          Height          =   300
  82.          Left            =   960
  83.          TabIndex        =   3
  84.          Top             =   1320
  85.          Width           =   1455
  86.       End
  87.       Begin TextBox txtAddress2 
  88.          Height          =   300
  89.          Left            =   960
  90.          TabIndex        =   2
  91.          Top             =   1020
  92.          Width           =   2655
  93.       End
  94.       Begin TextBox txtAddress1 
  95.          Height          =   300
  96.          Left            =   960
  97.          TabIndex        =   1
  98.          Top             =   720
  99.          Width           =   2655
  100.       End
  101.       Begin TextBox txtName 
  102.          Height          =   300
  103.          Left            =   960
  104.          TabIndex        =   0
  105.          Top             =   360
  106.          Width           =   2655
  107.       End
  108.       Begin Label lblAddress 
  109.          BackColor       =   &H00C0C0C0&
  110.          Caption         =   "Address:"
  111.          Height          =   255
  112.          Left            =   120
  113.          TabIndex        =   13
  114.          Top             =   600
  115.          Width           =   855
  116.       End
  117.       Begin Label lblShipTo 
  118.          BackColor       =   &H00C0C0C0&
  119.          Caption         =   "Ship To"
  120.          Height          =   255
  121.          Left            =   120
  122.          TabIndex        =   12
  123.          Top             =   360
  124.          Width           =   735
  125.       End
  126.    End
  127. Sub Form_Load ()
  128.     cfrmShippingAddr.Height = 2430
  129.     cfrmShippingAddr.Width = 5505
  130.     cfrmShippingAddr.Top = cfrmCustService.Height + 700
  131.     cfrmShippingAddr.Left = cfrmCustService.Left + 1050
  132.     mdifrmMain.mnuWindowShippingAddress.Enabled = False
  133.     If cfrmReviewOrders.Enabled Then
  134.         cfrmReviewOrders.cmb3dShipAddr.Enabled = False
  135.     End If
  136. End Sub
  137. Sub Form_Unload (Cancel As Integer)
  138.     cfrmReviewOrders.cmb3dShipAddr.Enabled = True
  139.     mdifrmMain.mnuWindowShippingAddress.Enabled = True
  140. End Sub
  141.