home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VBCCE / SAMPLES / AXLstPck / AXLstPck.EXE / RCDATA / CABINET / Form1.frm < prev    next >
Text File  |  1996-10-22  |  4KB  |  121 lines
  1. VERSION 5.00
  2. Object = "*\AAXLstpik.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3420
  6.    ClientLeft      =   5445
  7.    ClientTop       =   3975
  8.    ClientWidth     =   6090
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3420
  11.    ScaleWidth      =   6090
  12.    Begin VB.CommandButton cmdClearAll 
  13.       Caption         =   "Clear All"
  14.       Height          =   480
  15.       Left            =   210
  16.       TabIndex        =   4
  17.       Top             =   2760
  18.       Width           =   2160
  19.    End
  20.    Begin VB.CommandButton cmdShowAll 
  21.       Caption         =   "Show All Items Picked"
  22.       Height          =   480
  23.       Left            =   3135
  24.       TabIndex        =   3
  25.       Top             =   2730
  26.       Width           =   2160
  27.    End
  28.    Begin VB.CommandButton cmdCurrent 
  29.       Caption         =   "Show Current Source Item"
  30.       Height          =   465
  31.       Index           =   1
  32.       Left            =   3135
  33.       TabIndex        =   2
  34.       Top             =   2160
  35.       Width           =   2160
  36.    End
  37.    Begin VB.CommandButton cmdCurrent 
  38.       Caption         =   "Show Current Source Item"
  39.       Height          =   465
  40.       Index           =   0
  41.       Left            =   210
  42.       TabIndex        =   1
  43.       Top             =   2160
  44.       Width           =   2160
  45.    End
  46.    Begin AXLstPik.AXListPicker AXListPicker1 
  47.       Height          =   1785
  48.       Left            =   120
  49.       TabIndex        =   0
  50.       Top             =   195
  51.       Width           =   5820
  52.       _ExtentX        =   10266
  53.       _ExtentY        =   3149
  54.       SourceCaption   =   "&Source:"
  55.       DestinationCaption=   "&Destination:"
  56.       SourceSortType  =   1
  57.       DestinationSortType=   2
  58.       BeginProperty ListBoxFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  59.          Name            =   "MS Sans Serif"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   8.25
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.    End
  77. End
  78. Attribute VB_Name = "Form1"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Private Sub AXListPicker1_MoveToDestination(Cancel As Boolean, Count As Integer)
  84.   MsgBox "Moving " & Count & " items to the Destination!"
  85. End Sub
  86.  
  87. Private Sub AXListPicker1_MoveToSource(Cancel As Boolean, Count As Integer)
  88.   MsgBox "Moving " & Count & " items to the Source!"
  89. End Sub
  90.  
  91. Private Sub cmdClearAll_Click()
  92.   AXListPicker1.ClearAll
  93. End Sub
  94.  
  95. Private Sub cmdCurrent_Click(Index As Integer)
  96.   If Index = 0 Then
  97.     If AXListPicker1.SourceListIndex < 0 Then Exit Sub
  98.     MsgBox AXListPicker1.SourceList(AXListPicker1.SourceListIndex)
  99.   Else
  100.     If AXListPicker1.DestinationListIndex < 0 Then Exit Sub
  101.     MsgBox AXListPicker1.DestinationList(AXListPicker1.DestinationListIndex)
  102.   End If
  103. End Sub
  104.  
  105. Private Sub cmdShowAll_Click()
  106.   Dim sTmp As String
  107.   Dim i As Integer
  108.   For i = 0 To AXListPicker1.ListCount(lspDesintation) - 1
  109.     sTmp = sTmp & ":" & AXListPicker1.DestinationList(i)
  110.   Next
  111.   MsgBox sTmp
  112. End Sub
  113.  
  114. Private Sub Form_Load()
  115.   AXListPicker1.AddItem "AAA", lspSourceList
  116.   AXListPicker1.AddItem "BBB", lspSourceList
  117.   AXListPicker1.AddItem "DDD", lspSourceList
  118.   AXListPicker1.AddItem "CCC", lspSourceList
  119.   AXListPicker1.AddItem "ABC", lspSourceList
  120. End Sub
  121.