home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 December / WIN95_DEC_1996_2.ISO / htmlmisc / vb5ccein.exe / RCDATA / CABINET / test.frm < prev    next >
Text File  |  1996-10-24  |  5KB  |  151 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. End
  97. Attribute VB_Name = "Test"
  98. Attribute VB_GlobalNameSpace = False
  99. Attribute VB_Creatable = False
  100. Attribute VB_PredeclaredId = True
  101. Attribute VB_Exposed = False
  102. Private Sub AXListPicker1_MoveToDestination(Cancel As Boolean, Count As Integer)
  103.   MsgBox "Moving " & Count & " items to the Destination!"
  104. End Sub
  105.  
  106. Private Sub AXListPicker1_MoveToSource(Cancel As Boolean, Count As Integer)
  107.   MsgBox "Moving " & Count & " items to the Source!"
  108. End Sub
  109.  
  110. Private Sub cmdAdd_Click(Index As Integer)
  111.   Dim sTmp As String
  112.   sTmp = InputBox("Add Item:")
  113.   If Len(sTmp) = 0 Then Exit Sub
  114.   If Index = 0 Then
  115.     AXListPicker1.AddItem sTmp, lspSource
  116.   Else
  117.     AXListPicker1.AddItem sTmp, lspDesintation
  118.   End If
  119. End Sub
  120.  
  121. Private Sub cmdClearAll_Click()
  122.   AXListPicker1.ClearAll
  123. End Sub
  124.  
  125. Private Sub cmdCurrent_Click(Index As Integer)
  126.   If Index = 0 Then
  127.     If AXListPicker1.SourceListIndex < 0 Then Exit Sub
  128.     MsgBox AXListPicker1.SourceList(AXListPicker1.SourceListIndex)
  129.   Else
  130.     If AXListPicker1.DestinationListIndex < 0 Then Exit Sub
  131.     MsgBox AXListPicker1.DestinationList(AXListPicker1.DestinationListIndex)
  132.   End If
  133. End Sub
  134.  
  135. Private Sub cmdShowAll_Click()
  136.   Dim sTmp As String
  137.   Dim i As Integer
  138.   For i = 0 To AXListPicker1.ListCount(lspDesintation) - 1
  139.     sTmp = sTmp & ":" & AXListPicker1.DestinationList(i)
  140.   Next
  141.   MsgBox sTmp
  142. End Sub
  143.  
  144. Private Sub Form_Load()
  145.   AXListPicker1.AddItem "AAA", lspSourceList
  146.   AXListPicker1.AddItem "BBB", lspSourceList
  147.   AXListPicker1.AddItem "DDD", lspSourceList
  148.   AXListPicker1.AddItem "CCC", lspSourceList
  149.   AXListPicker1.AddItem "ABC", lspSourceList
  150. End Sub
  151.