home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD13443162001.psc / Test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-08  |  8.7 KB  |  289 lines
  1. VERSION 5.00
  2. Object = "{FE39306C-FD26-11D2-8003-00104BD28E91}#7.0#0"; "smCombo.ocx"
  3. Object = "*\AsmProgress\smProgress.vbp"
  4. Object = "*\AsmLabel3d\smLabel3d.vbp"
  5. Begin VB.Form frmTest 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "ActiveX Test"
  8.    ClientHeight    =   5310
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9060
  12.    Icon            =   "Test.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5310
  17.    ScaleWidth      =   9060
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.CommandButton Command10 
  20.       Caption         =   "Caption"
  21.       BeginProperty Font 
  22.          Name            =   "Tahoma"
  23.          Size            =   8.25
  24.          Charset         =   204
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   375
  31.       Left            =   3120
  32.       TabIndex        =   11
  33.       Top             =   4380
  34.       Width           =   1035
  35.    End
  36.    Begin smComboBox.smCombo smCombo1 
  37.       Height          =   315
  38.       Left            =   240
  39.       TabIndex        =   10
  40.       Top             =   1860
  41.       Width           =   2115
  42.       _ExtentX        =   3731
  43.       _ExtentY        =   556
  44.    End
  45.    Begin smLabel3d.smLabel smLabel1 
  46.       Height          =   315
  47.       Left            =   240
  48.       Top             =   240
  49.       Width           =   2115
  50.       _ExtentX        =   3731
  51.       _ExtentY        =   556
  52.    End
  53.    Begin smProgress.smProgresser smProgresser1 
  54.       Height          =   315
  55.       Left            =   240
  56.       TabIndex        =   9
  57.       Top             =   2940
  58.       Width           =   2115
  59.       _ExtentX        =   3731
  60.       _ExtentY        =   556
  61.       Caption         =   "Progress..."
  62.       Style           =   1
  63.    End
  64.    Begin VB.CommandButton Command9 
  65.       Caption         =   "Clear"
  66.       BeginProperty Font 
  67.          Name            =   "Tahoma"
  68.          Size            =   8.25
  69.          Charset         =   204
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   375
  76.       Left            =   3120
  77.       TabIndex        =   8
  78.       Top             =   3960
  79.       Width           =   1035
  80.    End
  81.    Begin VB.CommandButton Command8 
  82.       Caption         =   "StepIt!"
  83.       BeginProperty Font 
  84.          Name            =   "Tahoma"
  85.          Size            =   8.25
  86.          Charset         =   204
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   375
  93.       Left            =   3120
  94.       TabIndex        =   7
  95.       Top             =   3540
  96.       Width           =   1035
  97.    End
  98.    Begin VB.CommandButton Command7 
  99.       Caption         =   "Alignment"
  100.       BeginProperty Font 
  101.          Name            =   "Tahoma"
  102.          Size            =   8.25
  103.          Charset         =   204
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   375
  110.       Left            =   240
  111.       TabIndex        =   6
  112.       Top             =   4440
  113.       Width           =   1035
  114.    End
  115.    Begin VB.CommandButton Command6 
  116.       Caption         =   "Style"
  117.       BeginProperty Font 
  118.          Name            =   "Tahoma"
  119.          Size            =   8.25
  120.          Charset         =   204
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   375
  127.       Left            =   240
  128.       TabIndex        =   5
  129.       Top             =   4020
  130.       Width           =   1035
  131.    End
  132.    Begin VB.Timer Timer1 
  133.       Enabled         =   0   'False
  134.       Interval        =   100
  135.       Left            =   1560
  136.       Top             =   4020
  137.    End
  138.    Begin VB.CommandButton Command5 
  139.       Caption         =   "Progress"
  140.       BeginProperty Font 
  141.          Name            =   "Tahoma"
  142.          Size            =   8.25
  143.          Charset         =   204
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   375
  150.       Left            =   240
  151.       TabIndex        =   4
  152.       Top             =   3600
  153.       Width           =   1035
  154.    End
  155.    Begin VB.CommandButton Command3 
  156.       Caption         =   "Enabled"
  157.       BeginProperty Font 
  158.          Name            =   "Tahoma"
  159.          Size            =   8.25
  160.          Charset         =   204
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   375
  167.       Left            =   2580
  168.       TabIndex        =   3
  169.       Top             =   2220
  170.       Width           =   1035
  171.    End
  172.    Begin VB.CommandButton Command4 
  173.       Caption         =   "ItemData"
  174.       BeginProperty Font 
  175.          Name            =   "Tahoma"
  176.          Size            =   8.25
  177.          Charset         =   204
  178.          Weight          =   400
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   375
  184.       Left            =   2580
  185.       TabIndex        =   2
  186.       Top             =   1800
  187.       Width           =   1035
  188.    End
  189.    Begin VB.CommandButton Command2 
  190.       Caption         =   "Style 2"
  191.       BeginProperty Font 
  192.          Name            =   "Tahoma"
  193.          Size            =   8.25
  194.          Charset         =   204
  195.          Weight          =   400
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   375
  201.       Left            =   2580
  202.       TabIndex        =   1
  203.       Top             =   660
  204.       Width           =   1035
  205.    End
  206.    Begin VB.CommandButton Command1 
  207.       Caption         =   "Style 1"
  208.       BeginProperty Font 
  209.          Name            =   "Tahoma"
  210.          Size            =   8.25
  211.          Charset         =   204
  212.          Weight          =   400
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       Height          =   375
  218.       Left            =   2580
  219.       TabIndex        =   0
  220.       Top             =   240
  221.       Width           =   1035
  222.    End
  223. Attribute VB_Name = "frmTest"
  224. Attribute VB_GlobalNameSpace = False
  225. Attribute VB_Creatable = False
  226. Attribute VB_PredeclaredId = True
  227. Attribute VB_Exposed = False
  228. Option Explicit
  229. Private Sub Command1_Click()
  230.     smLabel1.Caption = "Style is 0"
  231.     smLabel1.Style = 0
  232. End Sub
  233. Private Sub Command10_Click()
  234.     smProgresser1.Caption = "Goto..."
  235. End Sub
  236. Private Sub Command2_Click()
  237.     smLabel1.Caption = "Style is 1"
  238.     smLabel1.Style = 1
  239. End Sub
  240. Private Sub Command3_Click()
  241.     smCombo1.Enabled = Not smCombo1.Enabled
  242. End Sub
  243. Private Sub Command4_Click()
  244.     With smCombo1
  245.         If .ItemData = 12345 Then
  246.             .ItemData = "Text string"
  247.         Else
  248.             .ItemData = 12345
  249.         End If
  250.         .Text = .ItemData
  251.     End With
  252. End Sub
  253. Private Sub Command5_Click()
  254.     With smProgresser1
  255.         .Position = 0
  256.         .Max = 103
  257.     End With
  258.     Timer1.Enabled = True
  259. End Sub
  260. Private Sub Command6_Click()
  261.     smProgresser1.Style = IIf(smProgresser1.Style = 0, 1, 0)
  262. End Sub
  263. Private Sub Command7_Click()
  264. Dim ix As Byte
  265.     ix = smProgresser1.Alignment
  266.     ix = ix + 1
  267.     If ix > 2 Then ix = 0
  268.     smProgresser1.Alignment = ix
  269. End Sub
  270. Private Sub Command8_Click()
  271.     smProgresser1.Max = 10
  272.     smProgresser1.StepIt
  273. End Sub
  274. Private Sub Command9_Click()
  275.     Timer1.Enabled = False
  276.     smProgresser1.Position = 0
  277. End Sub
  278. Private Sub Form_Load()
  279.     smLabel1.Caption = "This is a Smirnoff Label3d Control. Style is " & smLabel1.Style
  280.     smCombo1.Caption = "ComboBox Caption"
  281. End Sub
  282. Private Sub smCombo1_GetMore()
  283.     MsgBox "Get Me More!"
  284.     smCombo1.Text = "Get Me More!"
  285. End Sub
  286. Private Sub Timer1_Timer()
  287.     smProgresser1.Position = smProgresser1.Position + 1
  288. End Sub
  289.