home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / USERINFO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-27  |  2.3 KB  |  82 lines
  1. VERSION 4.00
  2. Begin VB.Form UserInfo 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "User Info"
  5.    ClientHeight    =   1710
  6.    ClientLeft      =   6075
  7.    ClientTop       =   3450
  8.    ClientWidth     =   3690
  9.    ControlBox      =   0   'False
  10.    Height          =   2115
  11.    Left            =   6015
  12.    LinkTopic       =   "Form2"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1710
  17.    ScaleWidth      =   3690
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   3105
  20.    Width           =   3810
  21.    Begin VB.CommandButton Ok 
  22.       Caption         =   "OK"
  23.       Default         =   -1  'True
  24.       Height          =   435
  25.       Left            =   1425
  26.       TabIndex        =   4
  27.       Top             =   1035
  28.       Width           =   1080
  29.    End
  30.    Begin VB.TextBox Email 
  31.       Height          =   300
  32.       Left            =   1065
  33.       TabIndex        =   3
  34.       Text            =   "user@site.com"
  35.       Top             =   525
  36.       Width           =   2370
  37.    End
  38.    Begin VB.TextBox UserName 
  39.       Height          =   300
  40.       Left            =   1065
  41.       TabIndex        =   2
  42.       Text            =   "Your Name"
  43.       Top             =   165
  44.       Width           =   2385
  45.    End
  46.    Begin VB.Label Label1 
  47.       Alignment       =   1  'Right Justify
  48.       Caption         =   "E-mail :"
  49.       Height          =   240
  50.       Index           =   1
  51.       Left            =   -15
  52.       TabIndex        =   1
  53.       Top             =   555
  54.       Width           =   975
  55.    End
  56.    Begin VB.Label Label1 
  57.       Alignment       =   1  'Right Justify
  58.       Caption         =   "User Name:"
  59.       Height          =   240
  60.       Index           =   0
  61.       Left            =   -15
  62.       TabIndex        =   0
  63.       Top             =   210
  64.       Width           =   975
  65.    End
  66. Attribute VB_Name = "UserInfo"
  67. Attribute VB_Creatable = False
  68. Attribute VB_Exposed = False
  69. Option Explicit
  70. Private Sub Ok_Click()
  71.     Form1.EmailAddr = email.Text & " (" & UserName.Text & ")"
  72.     Unload Me
  73. End Sub
  74. Private Sub UserName_GotFocus()
  75.     UserName.SelStart = 0
  76.     UserName.SelLength = Len(UserName.Text)
  77. End Sub
  78. Private Sub Email_GotFocus()
  79.     email.SelStart = 0
  80.     email.SelLength = Len(email.Text)
  81. End Sub
  82.