home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / alphan_1 / alphanum.cab / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-08  |  1.9 KB  |  70 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Sample"
  4.    ClientHeight    =   3720
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5250
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3720
  10.    ScaleWidth      =   5250
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.ListBox lstUnsorted 
  13.       Height          =   3180
  14.       Left            =   218
  15.       Sorted          =   -1  'True
  16.       TabIndex        =   1
  17.       Top             =   360
  18.       Width           =   2055
  19.    End
  20.    Begin VB.ListBox lstSorted 
  21.       Height          =   3180
  22.       Left            =   3000
  23.       TabIndex        =   0
  24.       Top             =   360
  25.       Width           =   2055
  26.    End
  27.    Begin VB.Label Label2 
  28.       Caption         =   "Sorted AlphaNumericly"
  29.       Height          =   255
  30.       Left            =   3000
  31.       TabIndex        =   3
  32.       Top             =   120
  33.       Width           =   1935
  34.    End
  35.    Begin VB.Label Label1 
  36.       Caption         =   "Sorted Alpabeticly"
  37.       Height          =   255
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   120
  41.       Width           =   1935
  42.    End
  43. Attribute VB_Name = "Form1"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Option Explicit
  49. Dim Sort As New AlphaNumSort
  50. Private Sub Form_Load()
  51.     Set Sort = New AlphaNumSort
  52.     lstUnsorted.AddItem "XB132"
  53.     lstUnsorted.AddItem "XB90"
  54.     lstUnsorted.AddItem "XB1"
  55.     lstUnsorted.AddItem "XB34"
  56.     lstUnsorted.AddItem "XB003"
  57.     lstUnsorted.AddItem "DX24"
  58.     Sort.Add "XB132"
  59.     Sort.Add "XB90"
  60.     Sort.Add "XB1"
  61.     Sort.Add "XB34"
  62.     Sort.Add "XB003"
  63.     Sort.Add "DX24"
  64.     Sort.MoveFirst
  65.     Do Until Sort.EOF
  66.         lstSorted.AddItem Sort.Fetch
  67.         Sort.MoveNext
  68.     Loop
  69. End Sub
  70.