home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dynaflsh / test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-05-15  |  4.8 KB  |  160 lines
  1. VERSION 5.00
  2. Object = "*\ADynaFlashX.vbp"
  3. Begin VB.Form Test 
  4.    Caption         =   "DynaFlash Example - (c) DYNAMEDIA - www.station-media.com/dynamedia"
  5.    ClientHeight    =   5265
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8085
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5265
  11.    ScaleWidth      =   8085
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin DynaFlashX.DynaFlash DynaFlash1 
  14.       Height          =   615
  15.       Left            =   3735
  16.       TabIndex        =   12
  17.       Top             =   2040
  18.       Width           =   615
  19.       _ExtentX        =   1085
  20.       _ExtentY        =   1085
  21.    End
  22.    Begin VB.CommandButton Command3 
  23.       Caption         =   "CommandButton with Tag Property NOT set to 1"
  24.       Height          =   735
  25.       Left            =   3135
  26.       TabIndex        =   11
  27.       Top             =   855
  28.       Width           =   1770
  29.    End
  30.    Begin VB.OptionButton Option1 
  31.       Caption         =   "OptionButton"
  32.       Height          =   285
  33.       Left            =   90
  34.       TabIndex        =   9
  35.       Tag             =   "1"
  36.       Top             =   4245
  37.       Width           =   2955
  38.    End
  39.    Begin VB.CheckBox Check1 
  40.       Caption         =   "CheckBox"
  41.       Height          =   255
  42.       Left            =   135
  43.       TabIndex        =   8
  44.       Tag             =   "1"
  45.       Top             =   3900
  46.       Width           =   2925
  47.    End
  48.    Begin VB.ComboBox Combo1 
  49.       Height          =   315
  50.       Left            =   75
  51.       TabIndex        =   7
  52.       Tag             =   "1"
  53.       Text            =   "Combo1"
  54.       Top             =   3450
  55.       Width           =   2955
  56.    End
  57.    Begin VB.PictureBox Picture1 
  58.       Height          =   645
  59.       Left            =   60
  60.       ScaleHeight     =   585
  61.       ScaleWidth      =   2925
  62.       TabIndex        =   6
  63.       Tag             =   "1"
  64.       Top             =   1485
  65.       Width           =   2985
  66.    End
  67.    Begin VB.Frame Frame1 
  68.       Caption         =   "How does it work?"
  69.       Height          =   4935
  70.       Left            =   4980
  71.       TabIndex        =   4
  72.       Top             =   240
  73.       Width           =   3015
  74.       Begin VB.Label Label2 
  75.          Caption         =   $"Test.frx":0000
  76.          BeginProperty Font 
  77.             Name            =   "Arial"
  78.             Size            =   8.25
  79.             Charset         =   0
  80.             Weight          =   400
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   2940
  86.          Left            =   135
  87.          TabIndex        =   5
  88.          Top             =   270
  89.          Width           =   2805
  90.       End
  91.    End
  92.    Begin VB.CommandButton Command2 
  93.       Caption         =   "CommandButton"
  94.       Height          =   405
  95.       Left            =   60
  96.       Style           =   1  'Graphical
  97.       TabIndex        =   3
  98.       Tag             =   "1"
  99.       Top             =   855
  100.       Width           =   2985
  101.    End
  102.    Begin VB.ListBox List1 
  103.       Height          =   450
  104.       Left            =   60
  105.       TabIndex        =   2
  106.       Tag             =   "1"
  107.       Top             =   2865
  108.       Width           =   2985
  109.    End
  110.    Begin VB.TextBox Text1 
  111.       Height          =   540
  112.       Left            =   60
  113.       TabIndex        =   1
  114.       Tag             =   "1"
  115.       Text            =   "TextBox"
  116.       Top             =   2235
  117.       Width           =   2985
  118.    End
  119.    Begin VB.CommandButton Command1 
  120.       Caption         =   "Start Flashing"
  121.       Height          =   570
  122.       Left            =   45
  123.       TabIndex        =   0
  124.       Top             =   90
  125.       Width           =   1470
  126.    End
  127.    Begin VB.Label Label1 
  128.       Caption         =   "And every other object..."
  129.       BeginProperty Font 
  130.          Name            =   "Arial"
  131.          Size            =   8.25
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       Height          =   345
  139.       Left            =   60
  140.       TabIndex        =   10
  141.       Top             =   4815
  142.       Width           =   3120
  143.    End
  144. Attribute VB_Name = "Test"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Private Sub Command1_Click()
  151. 'When you register, put your name and password here:
  152.     DynaFlash1.User_Name = "Dynamedia"
  153.     DynaFlash1.User_Password = 123456
  154.     DynaFlash1.StartFade
  155.     Text1.SetFocus
  156. End Sub
  157. Private Sub Form_Unload(Cancel As Integer)
  158.     DynaFlash1.StopFade
  159. End Sub
  160.