home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD67576142000.psc / PHONE.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-13  |  9.3 KB  |  310 lines
  1. VERSION 5.00
  2. Begin VB.Form PHONE 
  3.    BackColor       =   &H00404040&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "PHONE A FRIEND"
  6.    ClientHeight    =   4680
  7.    ClientLeft      =   2445
  8.    ClientTop       =   1935
  9.    ClientWidth     =   7440
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4680
  14.    ScaleWidth      =   7440
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.Timer Timer2 
  17.       Left            =   6840
  18.       Top             =   1440
  19.    End
  20.    Begin VB.TextBox Text3 
  21.       Height          =   495
  22.       Left            =   120
  23.       TabIndex        =   11
  24.       Text            =   "Text3"
  25.       Top             =   1320
  26.       Visible         =   0   'False
  27.       Width           =   615
  28.    End
  29.    Begin VB.Timer Timer1 
  30.       Interval        =   1
  31.       Left            =   240
  32.       Top             =   840
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "BACK"
  36.       Enabled         =   0   'False
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   13.5
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   375
  47.       Left            =   0
  48.       TabIndex        =   10
  49.       Top             =   4320
  50.       Width           =   7455
  51.    End
  52.    Begin VB.CommandButton Command1 
  53.       Caption         =   "RING"
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   13.5
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   375
  64.       Left            =   2640
  65.       TabIndex        =   4
  66.       Top             =   1680
  67.       Visible         =   0   'False
  68.       Width           =   2295
  69.    End
  70.    Begin VB.TextBox Text2 
  71.       BeginProperty Font 
  72.          Name            =   "MS Sans Serif"
  73.          Size            =   18
  74.          Charset         =   0
  75.          Weight          =   400
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   615
  81.       Left            =   2400
  82.       TabIndex        =   3
  83.       Top             =   1080
  84.       Width           =   4215
  85.    End
  86.    Begin VB.TextBox Text1 
  87.       BeginProperty Font 
  88.          Name            =   "MS Sans Serif"
  89.          Size            =   18
  90.          Charset         =   0
  91.          Weight          =   400
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       Height          =   615
  97.       Left            =   2400
  98.       TabIndex        =   0
  99.       Top             =   360
  100.       Width           =   4215
  101.    End
  102.    Begin VB.Label Label7 
  103.       BorderStyle     =   1  'Fixed Single
  104.       Caption         =   "..................................................................ITS OPTION"
  105.       BeginProperty Font 
  106.          Name            =   "MS Sans Serif"
  107.          Size            =   13.5
  108.          Charset         =   0
  109.          Weight          =   400
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       ForeColor       =   &H00FF0000&
  115.       Height          =   375
  116.       Left            =   360
  117.       TabIndex        =   9
  118.       Top             =   3720
  119.       Visible         =   0   'False
  120.       Width           =   15
  121.    End
  122.    Begin VB.Label Label6 
  123.       BorderStyle     =   1  'Fixed Single
  124.       Caption         =   "POBABLY OPTION 2 BUT IM NOT SURE"
  125.       BeginProperty Font 
  126.          Name            =   "MS Sans Serif"
  127.          Size            =   13.5
  128.          Charset         =   0
  129.          Weight          =   400
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       ForeColor       =   &H00FF0000&
  135.       Height          =   375
  136.       Left            =   360
  137.       TabIndex        =   8
  138.       Top             =   3360
  139.       Visible         =   0   'False
  140.       Width           =   15
  141.    End
  142.    Begin VB.Label Label5 
  143.       BorderStyle     =   1  'Fixed Single
  144.       Caption         =   "I HAVE NO IDEA,.............. SORRY"
  145.       BeginProperty Font 
  146.          Name            =   "MS Sans Serif"
  147.          Size            =   13.5
  148.          Charset         =   0
  149.          Weight          =   400
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       ForeColor       =   &H00FF0000&
  155.       Height          =   375
  156.       Left            =   360
  157.       TabIndex        =   7
  158.       Top             =   3000
  159.       Visible         =   0   'False
  160.       Width           =   15
  161.    End
  162.    Begin VB.Label Label4 
  163.       BorderStyle     =   1  'Fixed Single
  164.       Caption         =   "DEFINATLY OPTION 4"
  165.       BeginProperty Font 
  166.          Name            =   "MS Sans Serif"
  167.          Size            =   13.5
  168.          Charset         =   0
  169.          Weight          =   400
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       ForeColor       =   &H00FF0000&
  175.       Height          =   375
  176.       Left            =   360
  177.       TabIndex        =   6
  178.       Top             =   2640
  179.       Visible         =   0   'False
  180.       Width           =   15
  181.    End
  182.    Begin VB.Label Label3 
  183.       BorderStyle     =   1  'Fixed Single
  184.       Caption         =   "ERM I THINK ITS OPTION1 OR OPTION2"
  185.       BeginProperty Font 
  186.          Name            =   "MS Sans Serif"
  187.          Size            =   13.5
  188.          Charset         =   0
  189.          Weight          =   400
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       ForeColor       =   &H00FF0000&
  195.       Height          =   375
  196.       Left            =   360
  197.       TabIndex        =   5
  198.       Top             =   2280
  199.       Visible         =   0   'False
  200.       Width           =   15
  201.    End
  202.    Begin VB.Shape Shape1 
  203.       BorderWidth     =   2
  204.       Height          =   2055
  205.       Left            =   240
  206.       Top             =   2160
  207.       Width           =   6975
  208.    End
  209.    Begin VB.Label Label2 
  210.       BorderStyle     =   1  'Fixed Single
  211.       Caption         =   "   TEL"
  212.       BeginProperty Font 
  213.          Name            =   "MS Sans Serif"
  214.          Size            =   18
  215.          Charset         =   0
  216.          Weight          =   400
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       Height          =   615
  222.       Left            =   960
  223.       TabIndex        =   2
  224.       Top             =   1080
  225.       Width           =   1455
  226.    End
  227.    Begin VB.Label Label1 
  228.       BorderStyle     =   1  'Fixed Single
  229.       Caption         =   " NAME"
  230.       BeginProperty Font 
  231.          Name            =   "MS Sans Serif"
  232.          Size            =   18
  233.          Charset         =   0
  234.          Weight          =   400
  235.          Underline       =   0   'False
  236.          Italic          =   0   'False
  237.          Strikethrough   =   0   'False
  238.       EndProperty
  239.       Height          =   615
  240.       Left            =   960
  241.       TabIndex        =   1
  242.       Top             =   360
  243.       Width           =   1455
  244.    End
  245. Attribute VB_Name = "PHONE"
  246. Attribute VB_GlobalNameSpace = False
  247. Attribute VB_Creatable = False
  248. Attribute VB_PredeclaredId = True
  249. Attribute VB_Exposed = False
  250. Dim MyValue
  251. Private Sub Command1_Click()
  252. Command1.Enabled = False
  253. Timer1.Interval = 0
  254. Timer2.Interval = 1
  255. End Sub
  256. Private Sub Command2_Click()
  257. PHONE.Visible = False
  258. End Sub
  259. Private Sub Text2_Change()
  260. Command1.Visible = True
  261. End Sub
  262. Private Sub Timer1_Timer()
  263. Randomize
  264. MyValue = Int((4 * Rnd) + 1)
  265. Text3.Text = MyValue
  266. End Sub
  267. Private Sub Timer2_Timer()
  268. If Text3.Text = 1 Then
  269. Label3.Visible = True
  270. Label3.Width = Label3.Width + 90
  271. End If
  272.     If Text3.Text = 2 Then
  273.     Label4.Visible = True
  274.     Label4.Width = Label4.Width + 90
  275.     End If
  276.         If Text3.Text = 3 Then
  277.         Label5.Visible = True
  278.         Label5.Width = Label5.Width + 90
  279.         End If
  280.             If Text3.Text = 4 Then
  281.             Label6.Visible = True
  282.             Label6.Width = Label6.Width + 90
  283.             End If
  284.                 If Text3.Text = 5 Then
  285.                 Label7.Visible = True
  286.                 Label7.Width = Label7.Width + 90
  287.                 End If
  288.                 
  289. If Label3.Width > 6735 Then
  290. Timer2.Interval = 0
  291. Command2.Enabled = True
  292. End If
  293. If Label4.Width > 6735 Then
  294. Timer2.Interval = 0
  295. Command2.Enabled = True
  296. End If
  297. If Label5.Width > 6735 Then
  298. Timer2.Interval = 0
  299. Command2.Enabled = True
  300. End If
  301. If Label6.Width > 6735 Then
  302. Timer2.Interval = 0
  303. Command2.Enabled = True
  304. End If
  305. If Label7.Width > 6735 Then
  306. Timer2.Interval = 0
  307. Command2.Enabled = True
  308. End If
  309. End Sub
  310.