World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/QBAS/5PAK20.ZIP/SNDX20.ZIP/SAMPLE.ZIP/GENERAPP.FRM

Text File | 1993-08-03 | 4KB | 158 lines

VERSION 2.00
Begin Form Clacker_Form
   Caption         =   "SndDexTest"
   ClientHeight    =   3885
   ClientLeft      =   1215
   ClientTop       =   1830
   ClientWidth     =   5055
   Height          =   4575
   Left            =   1155
   LinkTopic       =   "Form1"
   ScaleHeight     =   3885
   ScaleWidth      =   5055
   Top             =   1200
   Width           =   5175
   Begin SndDex SndDex1
      Left            =   720
      Top             =   720
   End
   Begin TextBox TXT_Result
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Text            =   "Result of compare"
      Top             =   3240
      Width           =   4815
   End
   Begin TextBox TXT_KeyString
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Text            =   "Dog"
      Top             =   1320
      Width           =   4815
   End
   Begin CommandButton BTN_Exit
      Caption         =   "Exit"
      Height          =   375
      Left            =   3720
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin TextBox TXT_SearchString
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Text            =   "Dawg"
      Top             =   2520
      Width           =   4815
   End
   Begin CommandButton Btn_Compare
      Caption         =   "Compare"
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Search String"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   2160
      Width           =   4815
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "Key String"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   960
      Width           =   4815
   End
   Begin Menu nmu_File
      Caption         =   "&File"
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Edit
      Caption         =   "&Edit"
      Begin Menu mnu_Cut
         Caption         =   "Cu&t"
      End
      Begin Menu mnu_Copy
         Caption         =   "&Copy"
      End
      Begin Menu mnu_Paste
         Caption         =   "&Paste"
      End
      Begin Menu mnu_submenu
         Caption         =   "SubMenu"
         Begin Menu mnu_submenu1
            Caption         =   "SubMenu 1"
         End
         Begin Menu mnu_submenu2
            Caption         =   "SubMenu 2"
         End
      End
   End
End
Option Explicit

Sub Btn_Compare_Click ()
Dim sStdTemp As String
Dim sIntTemp As String

    TXT_Result = ""

    ' load the words to match
    SndDex1.KeyText = TXT_KeyString.Text
    SndDex1.SearchText = TXT_SearchString.Text

    ' do it with std soundex search
    SndDex1.Action = 20   ''SNDEX_STDSEARCH
    ' store results
    ' NOTE: result VAR SoundsLike is an integer
    '       0 => no match
    '       1 => matches
    sStdTemp = Str$(SndDex1.SoundsLike)

    ' now do it with int soundex search
    SndDex1.Action = 21   ''SNDEX_STDSEARCH
    ' store results
    ' NOTE: result VAR SoundsLike is an integer
    '       0 => no match
    '       1 => matches
    sIntTemp = Str$(SndDex1.SoundsLike)

    TXT_Result = "Std = " + sStdTemp + "    Int = " + sIntTemp
End Sub

Sub BTN_Exit_Click ()
    mnu_Exit_Click
End Sub

Sub Form_Load ()

    Top = 0
    Left = 0

End Sub

Sub Form_Resize ()
    If Me.WindowState = 0 Then
        Me.Height = 5550
        Me.Width = 5175
    End If
End Sub

Sub mnu_Exit_Click ()
    End
End Sub