home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / envprt / raddress.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-05-08  |  3.5 KB  |  130 lines
  1. VERSION 2.00
  2. Begin Form Raddress 
  3.    BackColor       =   &H00404040&
  4.    Caption         =   "Return Address"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   1725
  7.    ClientTop       =   2460
  8.    ClientWidth     =   6525
  9.    ControlBox      =   0   'False
  10.    Height          =   3600
  11.    Left            =   1665
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3195
  17.    ScaleWidth      =   6525
  18.    Top             =   2115
  19.    Width           =   6645
  20.    Begin CommandButton StoreButton 
  21.       Caption         =   "&Done"
  22.       Height          =   380
  23.       Left            =   2640
  24.       TabIndex        =   7
  25.       Top             =   2280
  26.       Width           =   975
  27.    End
  28.    Begin TextBox Ra4 
  29.       Height          =   380
  30.       Left            =   480
  31.       TabIndex        =   3
  32.       Top             =   1680
  33.       Width           =   3255
  34.    End
  35.    Begin TextBox Ra3 
  36.       Height          =   380
  37.       Left            =   480
  38.       TabIndex        =   2
  39.       Top             =   1200
  40.       Width           =   3255
  41.    End
  42.    Begin TextBox Ra2 
  43.       Height          =   380
  44.       Left            =   480
  45.       TabIndex        =   1
  46.       Top             =   720
  47.       Width           =   3255
  48.    End
  49.    Begin Frame Frame1 
  50.       BackColor       =   &H0000FF00&
  51.       Caption         =   "Use Return Address"
  52.       Height          =   1220
  53.       Left            =   3840
  54.       TabIndex        =   4
  55.       Top             =   360
  56.       Width           =   1935
  57.       Begin OptionButton NoButton 
  58.          BackColor       =   &H0000FF00&
  59.          Caption         =   "&No"
  60.          Height          =   260
  61.          Left            =   240
  62.          TabIndex        =   6
  63.          Top             =   720
  64.          Width           =   975
  65.       End
  66.       Begin OptionButton YesButton 
  67.          BackColor       =   &H0000FF00&
  68.          Caption         =   "&Yes"
  69.          Height          =   260
  70.          Left            =   240
  71.          TabIndex        =   5
  72.          Top             =   360
  73.          Value           =   -1  'True
  74.          Width           =   1095
  75.       End
  76.    End
  77.    Begin TextBox Ra1 
  78.       Height          =   380
  79.       Left            =   480
  80.       TabIndex        =   0
  81.       Top             =   240
  82.       Width           =   3255
  83.    End
  84. Sub NoButton_Click ()
  85.     UseRa = 0
  86. End Sub
  87. Sub Ra1_KeyPress (keyascii As Integer)
  88.     If keyascii = 13 Then
  89.     keyascii = 0
  90.     SendKeys "{TAB}"
  91.     End If
  92. End Sub
  93. Sub Ra2_KeyPress (keyascii As Integer)
  94.     If keyascii = 13 Then
  95.     keyascii = 0
  96.     SendKeys "{TAB}"
  97.     End If
  98. End Sub
  99. Sub Ra3_KeyPress (keyascii As Integer)
  100.     If keyascii = 13 Then
  101.     keyascii = 0
  102.     SendKeys "{TAB}"
  103.     End If
  104. End Sub
  105. Sub Ra4_KeyPress (keyascii As Integer)
  106.     If keyascii = 13 Then
  107.     keyascii = 0
  108.     Ra1.SetFocus
  109.     End If
  110. End Sub
  111. Sub StoreButton_Click ()
  112.     If YesButton.value = True Then UseRa = -1 Else UseRa = 0
  113.     If UseRa <> 0 And Len(RTrim$(LTrim$(Ra1.text))) > 0 Then
  114.        Form1.r1.caption = Ra1.text
  115.        Form1.r2.caption = Ra2.text
  116.        Form1.r3.caption = Ra3.text
  117.        Form1.R4.caption = Ra4.text
  118.     Else
  119.     Form1.r1.caption = "No Return Address"
  120.     Form1.r2.caption = ""
  121.     Form1.r3.caption = ""
  122.     Form1.r3.caption = ""
  123.     End If
  124.     Ra1.SetFocus
  125.     Raddress.Hide
  126. End Sub
  127. Sub YesButton_Click ()
  128.     UseRa = -1
  129.     End Sub
  130.