home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / ACTIVEX / MABRY / SOUNDX.EXE / SOUNDXS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-30  |  6.0 KB  |  192 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmSoundXSample1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "SoundX Sample"
  7.    ClientHeight    =   3555
  8.    ClientLeft      =   1860
  9.    ClientTop       =   2745
  10.    ClientWidth     =   3630
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3960
  22.    Left            =   1800
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3555
  27.    ScaleWidth      =   3630
  28.    Top             =   2400
  29.    Width           =   3750
  30.    Begin VB.TextBox Word 
  31.       Appearance      =   0  'Flat
  32.       Height          =   285
  33.       Left            =   240
  34.       TabIndex        =   0
  35.       Top             =   1800
  36.       Width           =   3135
  37.    End
  38.    Begin SoundxLib.Soundx Soundx1 
  39.       Left            =   3000
  40.       Top             =   1200
  41.       _Version        =   65536
  42.       _ExtentX        =   741
  43.       _ExtentY        =   741
  44.       _StockProps     =   0
  45.    End
  46.    Begin VB.Label Label5 
  47.       Appearance      =   0  'Flat
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   $"soundxs1.frx":0000
  50.       BeginProperty Font 
  51.          name            =   "MS Sans Serif"
  52.          charset         =   0
  53.          weight          =   400
  54.          size            =   9.75
  55.          underline       =   0   'False
  56.          italic          =   0   'False
  57.          strikethrough   =   0   'False
  58.       EndProperty
  59.       ForeColor       =   &H80000008&
  60.       Height          =   1335
  61.       Left            =   240
  62.       TabIndex        =   8
  63.       Top             =   120
  64.       Width           =   3375
  65.    End
  66.    Begin VB.Label ExtSoundex 
  67.       Alignment       =   2  'Center
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H80000005&
  70.       ForeColor       =   &H80000008&
  71.       Height          =   255
  72.       Left            =   2280
  73.       TabIndex        =   7
  74.       Top             =   3120
  75.       Width           =   1095
  76.    End
  77.    Begin VB.Label Soundex 
  78.       Alignment       =   2  'Center
  79.       Appearance      =   0  'Flat
  80.       BackColor       =   &H80000005&
  81.       ForeColor       =   &H80000008&
  82.       Height          =   255
  83.       Left            =   2280
  84.       TabIndex        =   6
  85.       Top             =   2760
  86.       Width           =   1095
  87.    End
  88.    Begin VB.Label Metaphone 
  89.       Alignment       =   2  'Center
  90.       Appearance      =   0  'Flat
  91.       BackColor       =   &H80000005&
  92.       ForeColor       =   &H80000008&
  93.       Height          =   255
  94.       Left            =   2280
  95.       TabIndex        =   5
  96.       Top             =   2400
  97.       Width           =   1095
  98.    End
  99.    Begin VB.Label Label4 
  100.       Appearance      =   0  'Flat
  101.       BackColor       =   &H00C0C0C0&
  102.       Caption         =   "Extended Soundex Output:"
  103.       BeginProperty Font 
  104.          name            =   "MS Sans Serif"
  105.          charset         =   0
  106.          weight          =   400
  107.          size            =   8.25
  108.          underline       =   0   'False
  109.          italic          =   0   'False
  110.          strikethrough   =   0   'False
  111.       EndProperty
  112.       ForeColor       =   &H80000008&
  113.       Height          =   255
  114.       Left            =   240
  115.       TabIndex        =   4
  116.       Top             =   3120
  117.       Width           =   2055
  118.    End
  119.    Begin VB.Label Label3 
  120.       Appearance      =   0  'Flat
  121.       BackColor       =   &H00C0C0C0&
  122.       Caption         =   "Soundex Output:"
  123.       BeginProperty Font 
  124.          name            =   "MS Sans Serif"
  125.          charset         =   0
  126.          weight          =   400
  127.          size            =   8.25
  128.          underline       =   0   'False
  129.          italic          =   0   'False
  130.          strikethrough   =   0   'False
  131.       EndProperty
  132.       ForeColor       =   &H80000008&
  133.       Height          =   255
  134.       Left            =   240
  135.       TabIndex        =   3
  136.       Top             =   2760
  137.       Width           =   1935
  138.    End
  139.    Begin VB.Label Label2 
  140.       Appearance      =   0  'Flat
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   "Metaphone Output:"
  143.       BeginProperty Font 
  144.          name            =   "MS Sans Serif"
  145.          charset         =   0
  146.          weight          =   400
  147.          size            =   8.25
  148.          underline       =   0   'False
  149.          italic          =   0   'False
  150.          strikethrough   =   0   'False
  151.       EndProperty
  152.       ForeColor       =   &H80000008&
  153.       Height          =   255
  154.       Left            =   240
  155.       TabIndex        =   2
  156.       Top             =   2400
  157.       Width           =   1695
  158.    End
  159.    Begin VB.Label Label1 
  160.       Appearance      =   0  'Flat
  161.       BackColor       =   &H00C0C0C0&
  162.       Caption         =   "Input Word:"
  163.       BeginProperty Font 
  164.          name            =   "MS Sans Serif"
  165.          charset         =   0
  166.          weight          =   400
  167.          size            =   8.25
  168.          underline       =   0   'False
  169.          italic          =   0   'False
  170.          strikethrough   =   0   'False
  171.       EndProperty
  172.       ForeColor       =   &H80000008&
  173.       Height          =   255
  174.       Left            =   240
  175.       TabIndex        =   1
  176.       Top             =   1560
  177.       Width           =   1935
  178.    End
  179. Attribute VB_Name = "FrmSoundXSample1"
  180. Attribute VB_Creatable = False
  181. Attribute VB_Exposed = False
  182. Option Explicit
  183. Private Sub Form_Unload(Cancel As Integer)
  184.     End
  185. End Sub
  186. Private Sub Word_Change()
  187.     SoundX1.Word = Word
  188.     Metaphone = SoundX1.Metaphone
  189.     Soundex = SoundX1.Soundex
  190.     ExtSoundex = SoundX1.ExtSoundex
  191. End Sub
  192.