home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / toolbox / vb5ccein.exe / test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-24  |  4.6 KB  |  144 lines
  1. VERSION 5.00
  2. Object = "*\AAXLstpik.vbp"
  3. Begin VB.Form Test 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3870
  6.    ClientLeft      =   4320
  7.    ClientTop       =   3285
  8.    ClientWidth     =   6090
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   3870
  12.    ScaleWidth      =   6090
  13.    Begin VB.CommandButton cmdAdd 
  14.       Caption         =   "Add Destination Item"
  15.       Height          =   465
  16.       Index           =   1
  17.       Left            =   3135
  18.       TabIndex        =   2
  19.       Top             =   2040
  20.       Width           =   2160
  21.    End
  22.    Begin VB.CommandButton cmdAdd 
  23.       Caption         =   "Add Source Item"
  24.       Height          =   465
  25.       Index           =   0
  26.       Left            =   210
  27.       TabIndex        =   1
  28.       Top             =   2040
  29.       Width           =   2160
  30.    End
  31.    Begin VB.CommandButton cmdClearAll 
  32.       Caption         =   "Clear All"
  33.       Height          =   480
  34.       Left            =   210
  35.       TabIndex        =   5
  36.       Top             =   3240
  37.       Width           =   2160
  38.    End
  39.    Begin VB.CommandButton cmdShowAll 
  40.       Caption         =   "Show All Items Picked"
  41.       Height          =   480
  42.       Left            =   3135
  43.       TabIndex        =   6
  44.       Top             =   3210
  45.       Width           =   2160
  46.    End
  47.    Begin VB.CommandButton cmdCurrent 
  48.       Caption         =   "Show Current Dest. Item"
  49.       Height          =   465
  50.       Index           =   1
  51.       Left            =   3135
  52.       TabIndex        =   4
  53.       Top             =   2640
  54.       Width           =   2160
  55.    End
  56.    Begin VB.CommandButton cmdCurrent 
  57.       Caption         =   "Show Current Source Item"
  58.       Height          =   465
  59.       Index           =   0
  60.       Left            =   210
  61.       TabIndex        =   3
  62.       Top             =   2640
  63.       Width           =   2160
  64.    End
  65.    Begin AXLstPik.AXListPicker AXListPicker1 
  66.       Height          =   1785
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   195
  70.       Width           =   5820
  71.       _ExtentX        =   10266
  72.       _ExtentY        =   3149
  73.       SourceCaption   =   "&Source:"
  74.       DestinationCaption=   "&Destination:"
  75.       SourceSortType  =   1
  76.       DestinationSortType=   2
  77.       BeginProperty ListBoxFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   8.25
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.    End
  96. Attribute VB_Name = "Test"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Private Sub AXListPicker1_MoveToDestination(Cancel As Boolean, Count As Integer)
  102.   MsgBox "Moving " & Count & " items to the Destination!"
  103. End Sub
  104. Private Sub AXListPicker1_MoveToSource(Cancel As Boolean, Count As Integer)
  105.   MsgBox "Moving " & Count & " items to the Source!"
  106. End Sub
  107. Private Sub cmdAdd_Click(Index As Integer)
  108.   Dim sTmp As String
  109.   sTmp = InputBox("Add Item:")
  110.   If Len(sTmp) = 0 Then Exit Sub
  111.   If Index = 0 Then
  112.     AXListPicker1.AddItem sTmp, lspSource
  113.   Else
  114.     AXListPicker1.AddItem sTmp, lspDesintation
  115.   End If
  116. End Sub
  117. Private Sub cmdClearAll_Click()
  118.   AXListPicker1.ClearAll
  119. End Sub
  120. Private Sub cmdCurrent_Click(Index As Integer)
  121.   If Index = 0 Then
  122.     If AXListPicker1.SourceListIndex < 0 Then Exit Sub
  123.     MsgBox AXListPicker1.SourceList(AXListPicker1.SourceListIndex)
  124.   Else
  125.     If AXListPicker1.DestinationListIndex < 0 Then Exit Sub
  126.     MsgBox AXListPicker1.DestinationList(AXListPicker1.DestinationListIndex)
  127.   End If
  128. End Sub
  129. Private Sub cmdShowAll_Click()
  130.   Dim sTmp As String
  131.   Dim i As Integer
  132.   For i = 0 To AXListPicker1.ListCount(lspDesintation) - 1
  133.     sTmp = sTmp & ":" & AXListPicker1.DestinationList(i)
  134.   Next
  135.   MsgBox sTmp
  136. End Sub
  137. Private Sub Form_Load()
  138.   AXListPicker1.AddItem "AAA", lspSourceList
  139.   AXListPicker1.AddItem "BBB", lspSourceList
  140.   AXListPicker1.AddItem "DDD", lspSourceList
  141.   AXListPicker1.AddItem "CCC", lspSourceList
  142.   AXListPicker1.AddItem "ABC", lspSourceList
  143. End Sub
  144.