home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / mlist460.zip / DEMO.FRM < prev    next >
Text File  |  1995-09-04  |  29KB  |  1,118 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Multi-Column Demo"
  5.    ClientHeight    =   4410
  6.    ClientLeft      =   450
  7.    ClientTop       =   1800
  8.    ClientWidth     =   8595
  9.    FontBold        =   0   'False
  10.    FontItalic      =   -1  'True
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   12
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5100
  16.    Left            =   390
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   4410
  19.    ScaleWidth      =   8595
  20.    Top             =   1170
  21.    Width           =   8715
  22.    Begin CommandButton Command3 
  23.       Caption         =   "Price"
  24.       Height          =   240
  25.       Left            =   3072
  26.       TabIndex        =   10
  27.       Top             =   2448
  28.       Width           =   1644
  29.    End
  30.    Begin CommandButton Command2 
  31.       Caption         =   "Description"
  32.       Height          =   240
  33.       Left            =   1152
  34.       TabIndex        =   9
  35.       Top             =   2448
  36.       Width           =   1884
  37.    End
  38.    Begin CommandButton Command1 
  39.       Caption         =   "Item"
  40.       Height          =   240
  41.       Left            =   48
  42.       TabIndex        =   8
  43.       Top             =   2448
  44.       Width           =   1068
  45.    End
  46.    Begin MListBox MList4 
  47.       AddItemHeight   =   0
  48.       Alignment       =   0  'None
  49.       AllowFocusRect  =   -1  'True
  50.       AutoCheck       =   -1  'True
  51.       BackColor       =   &H00C0C0C0&
  52.       BorderStyle     =   1  'Raised
  53.       CheckColor      =   &H00000000&
  54.       CheckStyle      =   0  'Cross Style
  55.       DefPicture      =   DEMO.FRX:0000
  56.       DrawRegions     =   1
  57.       EnableVirtualMsgs=   0   'False
  58.       ExtendedSelect  =   0   'False
  59.       FallColor       =   &H00808080&
  60.       FindDirection   =   0  'Forward
  61.       FindResult      =   0  'Update ListIndex
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       GridColor       =   &H00000000&
  69.       GridStyle       =   0  'Solid
  70.       Height          =   1524
  71.       HiliteBackColor =   &H00000000&
  72.       HiliteForeColor =   &H00000000&
  73.       HorizontalGrids =   0   'False
  74.       ImageRegion     =   0
  75.       ImageType       =   3  'Aligned Bitmap
  76.       ItemHeight      =   300
  77.       ItemWidth       =   1500
  78.       Left            =   4944
  79.       ListBoxStyle    =   0  'Fixed
  80.       MaskingColor    =   &H00C0C0C0&
  81.       MultiColumn     =   -1  'True
  82.       MultiSelect     =   0   'False
  83.       NoIntegralHeight=   0   'False
  84.       OwnerCompare    =   0   'False
  85.       OwnerDraw       =   0   'False
  86.       Partner         =   0
  87.       RiseColor       =   &H00FFFFFF&
  88.       SearchCompare   =   1  'Case Insensitive
  89.       SelectMode      =   0  'Normal
  90.       SortColumn      =   0
  91.       Sorted          =   0   'False
  92.       SortOrder       =   0  'Ascending
  93.       SortType        =   0  'String
  94.       StringCompare   =   0  'Case Sensitive
  95.       TabIndex        =   7
  96.       Top             =   2592
  97.       Version         =   "04.60"
  98.       VerticalGrids   =   0   'False
  99.       VirtualMsgZone  =   0
  100.       Width           =   3420
  101.    End
  102.    Begin MListBox MList3 
  103.       AddItemHeight   =   0
  104.       Alignment       =   1  'Left
  105.       AllowFocusRect  =   -1  'True
  106.       AutoCheck       =   -1  'True
  107.       BackColor       =   &H00C0C0C0&
  108.       BorderStyle     =   2  'Inset
  109.       CheckColor      =   &H00000000&
  110.       CheckStyle      =   0  'Cross Style
  111.       DefPicture      =   DEMO.FRX:011A
  112.       DrawRegions     =   1
  113.       EnableVirtualMsgs=   0   'False
  114.       ExtendedSelect  =   0   'False
  115.       FallColor       =   &H00808080&
  116.       FindDirection   =   0  'Forward
  117.       FindResult      =   0  'Update ListIndex
  118.       FontBold        =   0   'False
  119.       FontItalic      =   0   'False
  120.       FontName        =   "MS Sans Serif"
  121.       FontSize        =   8.25
  122.       FontStrikethru  =   0   'False
  123.       FontUnderline   =   0   'False
  124.       GridColor       =   &H00000000&
  125.       GridStyle       =   0  'Solid
  126.       Height          =   1515
  127.       HiliteBackColor =   &H00000000&
  128.       HiliteForeColor =   &H00FFFFFF&
  129.       HorizontalGrids =   0   'False
  130.       ImageRegion     =   0
  131.       ImageType       =   3  'Aligned Bitmap
  132.       ItemHeight      =   500
  133.       ItemWidth       =   780
  134.       Left            =   4944
  135.       ListBoxStyle    =   0  'Fixed
  136.       MaskingColor    =   &H00C0C0C0&
  137.       MultiColumn     =   0   'False
  138.       MultiSelect     =   0   'False
  139.       NoIntegralHeight=   0   'False
  140.       OwnerCompare    =   0   'False
  141.       OwnerDraw       =   0   'False
  142.       Partner         =   0
  143.       RiseColor       =   &H00FFFFFF&
  144.       SearchCompare   =   1  'Case Insensitive
  145.       SelectMode      =   0  'Normal
  146.       SortColumn      =   0
  147.       Sorted          =   0   'False
  148.       SortOrder       =   0  'Ascending
  149.       SortType        =   0  'String
  150.       StringCompare   =   0  'Case Sensitive
  151.       TabIndex        =   4
  152.       Top             =   480
  153.       Version         =   "04.60"
  154.       VerticalGrids   =   0   'False
  155.       VirtualMsgZone  =   0
  156.       Width           =   3420
  157.    End
  158.    Begin MListBox MList2 
  159.       AddItemHeight   =   0
  160.       Alignment       =   0  'None
  161.       AllowFocusRect  =   -1  'True
  162.       AutoCheck       =   -1  'True
  163.       BackColor       =   &H00FFFF00&
  164.       BorderStyle     =   0  'Normal
  165.       CheckColor      =   &H00000000&
  166.       CheckStyle      =   1  'Check Mark
  167.       DefPicture      =   DEMO.FRX:0234
  168.       DrawRegions     =   4
  169.       EnableVirtualMsgs=   -1  'True
  170.       ExtendedSelect  =   0   'False
  171.       FallColor       =   &H00808080&
  172.       FindDirection   =   0  'Forward
  173.       FindResult      =   0  'Update ListIndex
  174.       FontBold        =   0   'False
  175.       FontItalic      =   -1  'True
  176.       FontName        =   "MS Sans Serif"
  177.       FontSize        =   8.25
  178.       FontStrikethru  =   0   'False
  179.       FontUnderline   =   0   'False
  180.       ForeColor       =   &H00004080&
  181.       GridColor       =   &H00000000&
  182.       GridStyle       =   0  'Solid
  183.       Height          =   1524
  184.       HiliteBackColor =   &H00000000&
  185.       HiliteForeColor =   &H00000000&
  186.       HorizontalGrids =   0   'False
  187.       ImageRegion     =   1
  188.       ImageType       =   0  'None
  189.       ItemHeight      =   300
  190.       ItemWidth       =   780
  191.       Left            =   48
  192.       ListBoxStyle    =   0  'Fixed
  193.       MaskingColor    =   &H00C0C0C0&
  194.       MultiColumn     =   0   'False
  195.       MultiSelect     =   0   'False
  196.       NoIntegralHeight=   0   'False
  197.       OwnerCompare    =   0   'False
  198.       OwnerDraw       =   0   'False
  199.       Partner         =   0
  200.       RiseColor       =   &H00FFFFFF&
  201.       SearchCompare   =   1  'Case Insensitive
  202.       SelectMode      =   0  'Normal
  203.       SortColumn      =   1
  204.       Sorted          =   -1  'True
  205.       SortOrder       =   0  'Ascending
  206.       SortType        =   0  'String
  207.       StringCompare   =   0  'Case Sensitive
  208.       TabIndex        =   0
  209.       Top             =   2688
  210.       Version         =   "04.60"
  211.       VerticalGrids   =   0   'False
  212.       VirtualMsgZone  =   10
  213.       Width           =   4668
  214.    End
  215.    Begin MListBox MList1 
  216.       AddItemHeight   =   0
  217.       Alignment       =   0  'None
  218.       AllowFocusRect  =   -1  'True
  219.       AutoCheck       =   -1  'True
  220.       BorderStyle     =   0  'Normal
  221.       CheckColor      =   &H00000000&
  222.       CheckStyle      =   0  'Cross Style
  223.       DragIcon        =   DEMO.FRX:034E
  224.       DrawRegions     =   2
  225.       EnableVirtualMsgs=   0   'False
  226.       ExtendedSelect  =   -1  'True
  227.       FallColor       =   &H00808080&
  228.       FindDirection   =   0  'Forward
  229.       FindResult      =   0  'Update ListIndex
  230.       FontBold        =   0   'False
  231.       FontItalic      =   0   'False
  232.       FontName        =   "MS Sans Serif"
  233.       FontSize        =   8.25
  234.       FontStrikethru  =   0   'False
  235.       FontUnderline   =   0   'False
  236.       GridColor       =   &H00C0C0C0&
  237.       GridStyle       =   0  'Solid
  238.       Height          =   1785
  239.       HiliteBackColor =   &H00000000&
  240.       HiliteForeColor =   &H00000000&
  241.       HorizontalGrids =   -1  'True
  242.       ImageRegion     =   0
  243.       ImageType       =   0  'None
  244.       ItemHeight      =   195
  245.       ItemWidth       =   780
  246.       Left            =   45
  247.       ListBoxStyle    =   1  'Variable
  248.       MaskingColor    =   &H00FFFFFF&
  249.       MultiColumn     =   0   'False
  250.       MultiSelect     =   -1  'True
  251.       NoIntegralHeight=   0   'False
  252.       OwnerCompare    =   0   'False
  253.       OwnerDraw       =   0   'False
  254.       Partner         =   0
  255.       RiseColor       =   &H00FFFFFF&
  256.       SearchCompare   =   1  'Case Insensitive
  257.       SelectMode      =   1  'Drag Mode
  258.       SortColumn      =   0
  259.       Sorted          =   -1  'True
  260.       SortOrder       =   0  'Ascending
  261.       SortType        =   0  'String
  262.       StringCompare   =   0  'Case Sensitive
  263.       TabIndex        =   1
  264.       Top             =   450
  265.       Version         =   "04.60"
  266.       VerticalGrids   =   -1  'True
  267.       VirtualMsgZone  =   0
  268.       Width           =   4665
  269.    End
  270.    Begin Label Label4 
  271.       BorderStyle     =   1  'Fixed Single
  272.       Caption         =   "Multi-Column Style Bitmapped List Box"
  273.       Height          =   252
  274.       Left            =   4944
  275.       TabIndex        =   6
  276.       Top             =   2304
  277.       Width           =   3420
  278.    End
  279.    Begin Label Label3 
  280.       BorderStyle     =   1  'Fixed Single
  281.       Caption         =   "Bitmapped List Box"
  282.       Height          =   252
  283.       Left            =   4944
  284.       TabIndex        =   5
  285.       Top             =   144
  286.       Width           =   3420
  287.    End
  288.    Begin Image Image1 
  289.       Height          =   300
  290.       Left            =   90
  291.       Picture         =   DEMO.FRX:0650
  292.       Top             =   4170
  293.       Visible         =   0   'False
  294.       Width           =   225
  295.    End
  296.    Begin Label Label2 
  297.       BorderStyle     =   1  'Fixed Single
  298.       Caption         =   "Normal List Box - Color, Font, Bitmaps, CheckBoxes"
  299.       Height          =   252
  300.       Left            =   48
  301.       TabIndex        =   3
  302.       Top             =   2208
  303.       Width           =   4668
  304.    End
  305.    Begin Label Label1 
  306.       BorderStyle     =   1  'Fixed Single
  307.       Caption         =   "Multi-Select Sorted List Box/Drag Drop ---->"
  308.       Height          =   252
  309.       Left            =   48
  310.       TabIndex        =   2
  311.       Top             =   144
  312.       Width           =   4668
  313.    End
  314.    Begin Menu mnuMultiSelect 
  315.       Caption         =   "&Multi-Select"
  316.       Begin Menu mnuSelected 
  317.          Caption         =   "&Selected"
  318.       End
  319.       Begin Menu mnuMListCount 
  320.          Caption         =   "&ListCount"
  321.       End
  322.       Begin Menu mnuSelCount 
  323.          Caption         =   "Sel&Count"
  324.       End
  325.       Begin Menu mnuMListIndex 
  326.          Caption         =   "List&Index"
  327.       End
  328.       Begin Menu mnuRange 
  329.          Caption         =   "Select/&Deselect Range"
  330.       End
  331.       Begin Menu mnuFocus 
  332.          Caption         =   "&Focus"
  333.       End
  334.    End
  335.    Begin Menu mnuNormal 
  336.       Caption         =   "&Normal"
  337.       Begin Menu mnuText 
  338.          Caption         =   "&Text"
  339.       End
  340.       Begin Menu mnuListCount 
  341.          Caption         =   "&ListCount"
  342.       End
  343.       Begin Menu mnuListIndex 
  344.          Caption         =   "List&Index"
  345.       End
  346.       Begin Menu mnuNSep1 
  347.          Caption         =   "-"
  348.       End
  349.       Begin Menu mnuRegular 
  350.          Caption         =   "&Regular"
  351.          Checked         =   -1  'True
  352.       End
  353.       Begin Menu mnuBitmap 
  354.          Caption         =   "&Bitmap"
  355.       End
  356.       Begin Menu mnuCheckBox 
  357.          Caption         =   "&CheckBox"
  358.       End
  359.       Begin Menu mnuNSep2 
  360.          Caption         =   "-"
  361.       End
  362.       Begin Menu mnuCheckRange 
  363.          Caption         =   "Chec&k Range"
  364.          Enabled         =   0   'False
  365.       End
  366.    End
  367.    Begin Menu mnuBitmapped 
  368.       Caption         =   "&Bitmapped"
  369.       Begin Menu mnuLeft 
  370.          Caption         =   "&Left"
  371.       End
  372.       Begin Menu mnuTop 
  373.          Caption         =   "&Top"
  374.       End
  375.       Begin Menu mnuRight 
  376.          Caption         =   "&Right"
  377.       End
  378.       Begin Menu mnuBottom 
  379.          Caption         =   "&Bottom"
  380.       End
  381.    End
  382.    Begin Menu mnuMisc 
  383.       Caption         =   "M&isc"
  384.       Begin Menu mnuItemData 
  385.          Caption         =   "&ItemData"
  386.       End
  387.       Begin Menu mnuTopIndex 
  388.          Caption         =   "&TopIndex"
  389.       End
  390.       Begin Menu mnuNewIndex 
  391.          Caption         =   "&NewIndex"
  392.       End
  393.       Begin Menu mnuList 
  394.          Caption         =   "&List"
  395.       End
  396.       Begin Menu mnuActiveRegion 
  397.          Caption         =   "&ActiveRegion"
  398.       End
  399.       Begin Menu mnuListRegion 
  400.          Caption         =   "L&istRegion"
  401.       End
  402.       Begin Menu mnuChecked 
  403.          Caption         =   "Checked"
  404.       End
  405.       Begin Menu mnuCheckItem2 
  406.          Caption         =   "Check Item 2"
  407.       End
  408.       Begin Menu mnuUncheckTwo 
  409.          Caption         =   "Uncheck Item Two"
  410.       End
  411.       Begin Menu mnuTest 
  412.          Caption         =   "Test Horz. Scroll Bar"
  413.       End
  414.       Begin Menu mnuRemoveItem 
  415.          Caption         =   "&Remove Item"
  416.       End
  417.       Begin Menu mnuMove 
  418.          Caption         =   "&Move"
  419.       End
  420.       Begin Menu mnuTestFont 
  421.          Caption         =   "Test &Font"
  422.       End
  423.    End
  424. End
  425. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  426. Const LB_SETCOLUMNWIDTH = &H400 + 22
  427.  
  428. Sub Command1_Click ()
  429.  
  430.   If MList2.SortColumn <> 1 Then
  431.     MList2.SortColumn = 1
  432.     MList2.Resort = 1
  433.   End If
  434.  
  435. End Sub
  436.  
  437. Sub Command2_Click ()
  438.   
  439.   If MList2.SortColumn <> 2 Then
  440.     MList2.SortColumn = 2
  441.     MList2.Resort = 1
  442.   End If
  443.  
  444. End Sub
  445.  
  446. Sub Command3_Click ()
  447.  
  448.   If MList2.SortColumn <> 3 Then
  449.     MList2.SortColumn = 3
  450.     MList2.Resort = 1
  451.   End If
  452.  
  453. End Sub
  454.  
  455. Sub Command4_Click ()
  456.  
  457.   Debug.Print "MList2 Count: " + MList2.ListCount
  458.  
  459. End Sub
  460.  
  461. Sub Command5_Click ()
  462.  
  463.   Debug.Print "MList2 Selected Text: " + MList2.Text
  464.  
  465. End Sub
  466.  
  467. Sub Command7_Click ()
  468.  
  469.   MList2.TopIndex = 3
  470.  
  471. End Sub
  472.  
  473. Sub Command8_Click ()
  474.  
  475.   Debug.Print "MList2.TopIndex = "; MList2.TopIndex
  476.  
  477. End Sub
  478.  
  479. Sub Form_Load ()
  480.  
  481.   Const DT_RIGHT = 2
  482.   Const DT_VCENTER = 4
  483.   Const DT_SINGLELINE = 32
  484.  
  485. ' Columns are separated by the Tab character
  486. ' We could set the number of columns ourselves by setting MList1.DrawRegions = ####
  487.   MList1.ItemLength(1) = 750
  488.   MList1.ItemLength(2) = 4000
  489.  
  490.   ' Set MList1.ListBoxStyle to FIXED and uncomment these lines for a variable line
  491.   ' list box.  Uncomment the code in MList3.Click for more examples!
  492.  
  493.   MList1.AddItemHeight = 195
  494.   MList1.AddItem "Item1" + Chr$(9) + "Information One"
  495.   MList1.AddItemHeight = 395
  496.   MList1.AddItem "Item2" + Chr$(9) + "Information Two"
  497.   MList1.IndItemHeight(1) = 395
  498.   MList1.AddItemHeight = 195
  499.   MList1.AddItem "Item3" + Chr$(9) + "Information Three"
  500.   MList1.AddItemHeight = 295
  501.   MList1.AddItem "Item4" + Chr$(9) + "Information Four"
  502.   MList1.AddItemHeight = 295
  503.   MList1.AddItem "Item1" + Chr$(9) + "Information One"
  504.   MList1.AddItemHeight = 195
  505.   MList1.AddItem "Item2" + Chr$(9) + "Information Two"
  506.   MList1.AddItemHeight = 295
  507.   MList1.AddItem "Item3" + Chr$(9) + "Information Three"
  508.   MList1.AddItemHeight = 195
  509.   MList1.AddItem "Item4" + Chr$(9) + "Information Four"
  510.  
  511. ' Change the font of item 1
  512.   MList1.ItemFontName(1) = "MS Sans Serif"
  513.   MList1.ItemFontSize(1) = 7.8
  514.   MList1.ItemFontItalic(1) = True
  515.   MList1.ItemFontBold(1) = True
  516.   ' MList1.ItemFontUnderline(1) = True
  517.   ' MList1.ItemFontStrikeThru(1) = True
  518.   
  519.   MList1.ItemFontSize(4) = 9
  520.   MList1.ItemFontName(4) = "Courier"
  521.   MList1.ItemFontItalic(4) = True
  522.   MList1.ItemFontBold(4) = True
  523.   MList1.ItemFontUnderline(4) = True
  524.   ' MList1.ItemFontStrikeThru(4) = True
  525.  
  526. ' Print the default flags for item 1
  527.   Debug.Print "Item1 DrawFlags: " + MList1.DrawFlags(1)
  528.   Debug.Print "Font Size: "; MList1.ItemFontSize(1)
  529.   Debug.Print "Font Name: "; MList1.ItemFontName(1)
  530.   Debug.Print "Italic:    "; MList1.ItemFontItalic(1)
  531.   Debug.Print "Bold:      "; MList1.ItemFontBold(1)
  532.   Debug.Print "Underline: "; MList1.ItemFontUnderline(1)
  533.   Debug.Print "StrikeThru:"; MList1.ItemFontStrikeThru(1)
  534.  
  535. ' When you set or change DrawRegions, the default flags are DT_LEFT + DT_VCENTER + DT_SINGLELINE
  536. ' You can set the flags to any legal value used by the Windows API call DrawText
  537. ' Change the dollar column to be right justified instead
  538.   MList2.DrawFlags(3) = DT_RIGHT + DT_VCENTER + DT_SINGLELINE
  539.  
  540.   Dim I As Integer
  541.  
  542.   For I = 0 To 4
  543.     MList2.AddItem "Item1" + Chr$(9) + "Information One" + Chr$(9) + "$45.00"
  544.     MList2.AddItem "Item2" + Chr$(9) + "Information Two" + Chr$(9) + "$36.69"
  545.     MList2.AddItem "Item3" + Chr$(9) + "Information Three" + Chr$(9) + "$2234.00"
  546.     MList2.AddItem "Item4" + Chr$(9) + "Information Four" + Chr$(9) + "$4.00"
  547.     MList2.AddItem "Item5" + Chr$(9) + "Information Five" + Chr$(9) + "$0.25"
  548.   Next I
  549.  
  550.   MList2.ItemLength(1) = 1000
  551.   MList2.ItemLength(2) = 1700
  552.   MList2.ItemLength(3) = 1300
  553.  
  554.   MList2.ItemForeColor(1) = RGB(255, 255, 255)
  555.   MList2.ItemBkColor(1) = RGB(0, 0, 0)
  556.  
  557.   MList2.ItemHiliteForeColor(1) = RGB(255, 0, 0)
  558.   MList2.ItemHiliteBackColor(1) = RGB(0, 0, 255)
  559.   MList2.HiliteBackColor = RGB(192, 192, 192)
  560.   MList2.HiliteForeColor = RGB(0, 0, 0)
  561.  
  562.   MList2.ItemData(0) = 199
  563.   MList2.ItemData(1) = 200
  564.   MList2.ItemData(2) = 201
  565.   MList2.ItemData(3) = 202
  566.   MList2.ItemData(4) = 203
  567.   MList2.ItemData(5) = 204
  568.   MList2.ItemData(6) = 205
  569.   MList2.ItemData(7) = 206
  570.   MList2.ItemData(8) = 207
  571.   MList2.ItemData(9) = 208
  572.   MList2.ItemData(10) = 209
  573.   MList2.ItemData(11) = 210
  574.   MList2.ItemData(12) = 211
  575.   MList2.ItemData(13) = 212
  576.   MList2.ItemData(14) = 213
  577.  
  578. ' Print the default flags for item 1
  579.   Debug.Print "Item3 DrawFlags: " + MList2.DrawFlags(3)
  580.   Debug.Print "ItemLength(2): "; MList2.ItemLength(2)
  581.  
  582.   MList3.AddItem "Bitmap string one"
  583.   MList3.AddItem "Bitmap string two"
  584.   MList3.AddItem "Bitmap string three"
  585.   MList3.AddItem "Bitmap string four"
  586.   MList3.AddItem "Bitmap string five"
  587.  
  588.   MList3.ItemPicture(1) = Image1.Picture
  589.  
  590.   Dim X As Integer
  591.  
  592.   For X = 1 To 20
  593.     MList4.AddItem "DOC" + Trim$(Str$(X)) + ".DOC"
  594.   Next X
  595.  
  596.   MList4.ItemPicture(4) = Image1.Picture
  597.  
  598.   ' X = SendMessage(MList4.hWnd, LB_SETCOLUMNWIDTH, 100, 0)
  599.  
  600. End Sub
  601.  
  602. Sub MList1_Click ()
  603.  
  604.   ' MsgBox "Multi-Select List Box Click", 0, "MList1"
  605.  
  606. End Sub
  607.  
  608. Sub MList1_DblClick ()
  609.  
  610. '  MsgBox "Multi-Select List Box Double Click", 0, "MList1"
  611.  
  612. End Sub
  613.  
  614. Sub MList1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  615.  
  616.   If Button And 1 Then MList1.Drag 1
  617.  
  618. End Sub
  619.  
  620. Sub MList1_SelChange ()
  621.  
  622.   Debug.Print "MList1 SelChange"; MList1.ListIndex; " - "; MList1.ClickRegion
  623.  
  624. End Sub
  625.  
  626. Sub MList2_CompareItem (Item1 As String, Item2 As String, Result As Long)
  627.  
  628.   Result = StrComp(Item1, Item2)
  629.  
  630.   ' Debug.Print Item1 + ":" + Item2 + ":" + Str$(Result)
  631.  
  632. End Sub
  633.  
  634. Sub MList2_DblClick ()
  635.  
  636.   If MList2.ImageType = 1 Then
  637.     
  638.     If MList2.ItemPicture(MList2.ListIndex) <> Image1.Picture Then
  639.       MList2.ItemPicture(MList2.ListIndex) = Image1.Picture
  640.     Else
  641.       MList2.ItemPicture(MList2.ListIndex) = MList2.DefPicture
  642.     End If
  643.  
  644.   End If
  645. End Sub
  646.  
  647. Sub MList2_KeyPress (KeyAscii As Integer)
  648.  
  649.   If MList2.ImageType = 1 Then
  650.     
  651.     If MList2.ItemPicture(MList2.ListIndex) <> Image1.Picture Then
  652.       MList2.ItemPicture(MList2.ListIndex) = Image1.Picture
  653.     Else
  654.       MList2.ItemPicture(MList2.ListIndex) = MList2.DefPicture
  655.     End If
  656.   
  657.   Else
  658.     
  659.     If KeyAscii = 32 Then
  660.       MList2.Checked(MList2.ListIndex) = Not MList2.Checked(MList2.ListIndex)
  661.     End If
  662.   
  663.   End If
  664. End Sub
  665.  
  666. Sub MList2_ScrollMessage (Offset As Integer)
  667.  
  668.   Debug.Print "Scroll Message:" + Str$(Offset)
  669.   
  670. End Sub
  671.  
  672. Sub MList2_SelChange ()
  673.  
  674.   Debug.Print "SelChange on line "; MList2.ListIndex; " - "; MList2.ClickRegion
  675.  
  676. End Sub
  677.  
  678. Sub MList2_SelCheck (Index As Integer, CheckState As Integer)
  679.  
  680.   Dim aString As String
  681.  
  682.   If CheckState Then
  683.     aString = " On"
  684.   Else
  685.     aString = " Off"
  686.   End If
  687.  
  688.   Debug.Print "Line "; Index; " is"; aString
  689.  
  690. End Sub
  691.  
  692. Sub MList2_VirtualMessage (Message As Integer)
  693.  
  694.   Dim aString As String
  695.  
  696.   Select Case Message
  697.     Case 1
  698.       aString = "Add At Bottom"
  699.     Case 2
  700.       aString = "Add At Top"
  701.     Case 3
  702.       aString = "Home"
  703.     Case 4
  704.       aString = "End"
  705.   End Select
  706.  
  707.   Debug.Print "Scroll Message: "; aString
  708.  
  709. End Sub
  710.  
  711. Sub MList3_Click ()
  712.  
  713.   ' Uncomment this line to test adjusting individual line heights
  714.   ' MList1.IndItemHeight(2) = 495
  715.  
  716. End Sub
  717.  
  718. Sub MList3_DragDrop (Source As Control, X As Single, Y As Single)
  719.  
  720.   MList3.ItemX = X
  721.   MList3.ItemY = Y
  722.  
  723.   Debug.Print "MList3 has been dropped upon at Item" + Str$(MList3.Item) + "!"
  724.  
  725. End Sub
  726.  
  727. Sub MList3_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
  728.  
  729.   MList3.ItemX = X
  730.   MList3.ItemY = Y
  731.  
  732.   If MList3.ListIndex <> MList3.Item Then MList3.ListIndex = MList3.Item
  733.  
  734. End Sub
  735.  
  736. Sub mnuActiveRegion_Click ()
  737.  
  738.   MList2.ActiveRegion = 2
  739.  
  740.   If MList2.ListIndex <> -1 Then
  741.  
  742.     Dim aString As String
  743.  
  744.     aString = "MList2.TextRegion = " + MList2.TextRegion
  745.     MsgBox aString, 0, "MList2"
  746.  
  747.     MList2.TextRegion = "Replace"
  748.     MList2.ActiveRegion = 3
  749.     MList2.TextRegion = "$1.00"
  750.  
  751.   End If
  752.  
  753.   aString = "MList2.ListRegion(3) = " + MList2.ListRegion(3)
  754.   MsgBox aString, 0, "MList2"
  755.  
  756.   MList2.ListRegion(3) = "Replace"
  757.  
  758.   MList1.ActiveRegion = 2
  759.  
  760.   If MList1.ListIndex <> -1 Then
  761.  
  762.     aString = "MList1.TextRegion = " + MList1.TextRegion
  763.     MsgBox aString, 0, "MList1"
  764.  
  765.     MList1.TextRegion = "Replace"
  766.  
  767.   End If
  768.  
  769. End Sub
  770.  
  771. Sub mnuBitmap_Click ()
  772.  
  773.     If mnuBitmap.Checked Then
  774.         Exit Sub
  775.     End If
  776.  
  777.     mnuRegular.Checked = False
  778.     mnuBitmap.Checked = True
  779.     mnuCheckBox.Checked = False
  780.     mnuCheckRange.Enabled = False
  781.  
  782.   MList2.ItemLength(1) = 300
  783.   MList2.ItemLength(2) = 1000
  784.   MList2.ItemLength(3) = 1700
  785.   MList2.ItemLength(4) = 1300
  786.  
  787.   MList2.ItemPicture(1) = Image1.Picture
  788.  
  789.   If MList2.ImageType <> 1 Then
  790.     MList2.ImageType = 1
  791.     MList2.Refresh
  792.     MList2.ItemBkColor(1) = MList2.BackColor
  793.     MList2.ItemForeColor(1) = MList2.ForeColor
  794.   End If
  795.  
  796. End Sub
  797.  
  798. Sub mnuBottom_Click ()
  799.  
  800.   MList3.Alignment = 4
  801.   MList3.Refresh
  802.  
  803. End Sub
  804.  
  805. Sub mnuCheckBox_Click ()
  806.  
  807.     If mnuCheckBox.Checked Then
  808.         Exit Sub
  809.     End If
  810.  
  811.     mnuRegular.Checked = False
  812.     mnuBitmap.Checked = False
  813.     mnuCheckBox.Checked = True
  814.     mnuCheckRange.Enabled = True
  815.  
  816.     MList2.ItemLength(1) = 300
  817.     MList2.ItemLength(2) = 1000
  818.     MList2.ItemLength(3) = 1700
  819.     MList2.ItemLength(4) = 1300
  820.  
  821.     If MList2.ImageType <> 2 Then
  822.         MList2.ImageType = 2
  823.         MList2.Refresh
  824.         MList2.ItemBkColor(1) = MList2.BackColor
  825.         MList2.ItemForeColor(1) = MList2.ForeColor
  826.     End If
  827.  
  828. End Sub
  829.  
  830. Sub mnuChecked_Click ()
  831.  
  832.   MList2.Checked(1) = True
  833.  
  834.   Dim X%
  835.  
  836.   For X% = 0 To MList2.ListCount - 1
  837.  
  838.     If MList2.Checked(X%) Then
  839.       Debug.Print "MList2.Checked("; X%; ") = Checked"
  840.     Else
  841.       Debug.Print "MList2.Checked("; X%; ") = Unchecked"
  842.     End If
  843.  
  844.   Next X%
  845.  
  846. End Sub
  847.  
  848. Sub mnuCheckItem2_Click ()
  849.  
  850.   If MList2.ImageType = 2 Then
  851.     MList2.Checked(2) = True
  852.   End If
  853.  
  854. End Sub
  855.  
  856. Sub mnuCheckRange_Click ()
  857.  
  858.     If mnuCheckRange.Caption = "Chec&k Range" Then
  859.         mnuCheckRange.Caption = "&Uncheck Range"
  860.     Else
  861.         mnuCheckRange.Caption = "Chec&k Range"
  862.     End If
  863.  
  864.     If MList2.ImageType = 2 Then
  865.         MList2.RangeStart = 0
  866.         MList2.RangeEnd = 3
  867.  
  868.         If MList2.Checked(0) Then
  869.             MList2.RangeChecked = False
  870.         Else
  871.             MList2.RangeChecked = True
  872.         End If
  873.     End If
  874.  
  875. End Sub
  876.  
  877. Sub mnuFocus_Click ()
  878.  
  879.   MList1.SetFocus
  880.  
  881. End Sub
  882.  
  883. Sub mnuItemData_Click ()
  884.  
  885.   Dim Count As Integer
  886.   Dim X As Integer
  887.   Dim aString As String
  888.  
  889.   Count = MList2.ListCount
  890.  
  891.   For X = 0 To Count - 1
  892.     Debug.Print "ItemData" + Str$(X) + ": " + Str$(MList2.ItemData(X))
  893.   Next
  894.  
  895. End Sub
  896.  
  897. Sub mnuLeft_Click ()
  898.  
  899.   MList3.Alignment = 1
  900.   MList3.Refresh
  901.  
  902. End Sub
  903.  
  904. Sub mnuList_Click ()
  905.  
  906.   For I = 0 To MList2.ListCount - 1
  907.     Debug.Print I; " - "; MList2.List(I)
  908.   Next I
  909.  
  910.   MList2.List(2) = "Rep" + Chr$(9) + "Replacement" + Chr$(9) + "$100.00"
  911.  
  912. End Sub
  913.  
  914. Sub mnuListCount_Click ()
  915.  
  916.   Dim aString As String
  917.  
  918.   aString = "MList2.ListCount = " + Str$(MList2.ListCount)
  919.   MsgBox aString, 0, "MList2"
  920.  
  921. End Sub
  922.  
  923. Sub mnuListIndex_Click ()
  924.  
  925.   Dim aString As String
  926.  
  927.   aString = "MList2.ListIndex = " + Str$(MList2.ListIndex)
  928.   MsgBox aString, 0, "MList2"
  929.   MList2.ListIndex = 2
  930.  
  931. End Sub
  932.  
  933. Sub mnuListRegion_Click ()
  934.  
  935.   MList1.ListIndex = 4
  936.   MList1.ActiveRegion = 1
  937.   MList1.ListRegion(4) = "List"
  938.  
  939.   MList1.ActiveRegion = 2
  940.   MList1.TextRegion = "Change by menu"
  941.  
  942. End Sub
  943.  
  944. Sub mnuMListCount_Click ()
  945.  
  946.   Dim aString As String
  947.  
  948.   aString = "MList1.ListCount = " + Str$(MList1.ListCount)
  949.   MsgBox aString, 0, "MList1"
  950.  
  951. End Sub
  952.  
  953. Sub mnuMListIndex_Click ()
  954.  
  955.   Dim aString As String
  956.  
  957.   aString = "MList1.ListIndex = " + Str$(MList1.ListIndex)
  958.   MsgBox aString, 0, "MList1"
  959.  
  960.   MList1.ListIndex = 2
  961.  
  962. End Sub
  963.  
  964. Sub mnuMove_Click ()
  965.  
  966.   MList1.Move 0, 0
  967.  
  968. End Sub
  969.  
  970. Sub mnuMSText_Click ()
  971.  
  972.   MsgBox MList1.Text, 0, "Text-MList1"
  973.  
  974. End Sub
  975.  
  976. Sub mnuNewIndex_Click ()
  977.  
  978.   MList1.AddItem "Item21" + Chr$(9) + "Information TwoOne"
  979.  
  980.   Dim aString As String
  981.  
  982.   aString = "MList1.NewIndex = " + Str$(MList1.NewIndex)
  983.   MsgBox aString, 0, "MList1"
  984.  
  985. End Sub
  986.  
  987. Sub mnuRange_Click ()
  988.  
  989.   MList1.RangeStart = 0
  990.   MList1.RangeEnd = 3
  991.  
  992.   If MList1.Selected(1) Then
  993.     MList1.RangeSelected = False
  994.   Else
  995.     MList1.RangeSelected = True
  996.   End If
  997.  
  998. End Sub
  999.  
  1000. Sub mnuRegular_Click ()
  1001.  
  1002.     If mnuRegular.Checked Then
  1003.         Exit Sub
  1004.     End If
  1005.  
  1006.     mnuRegular.Checked = True
  1007.     mnuBitmap.Checked = False
  1008.     mnuCheckBox.Checked = False
  1009.     mnuCheckRange.Enabled = False
  1010.  
  1011.     MList2.ItemLength(1) = 1000
  1012.     MList2.ItemLength(2) = 1700
  1013.     MList2.ItemLength(3) = 1300
  1014.  
  1015.     If MList2.ImageType Then
  1016.         MList2.ImageType = 0
  1017.         MList2.Refresh
  1018.         MList2.ItemForeColor(1) = RGB(255, 255, 255)
  1019.         MList2.ItemBkColor(1) = RGB(0, 0, 0)
  1020.     End If
  1021.  
  1022. End Sub
  1023.  
  1024. Sub mnuRemoveItem_Click ()
  1025.  
  1026.   MList2.RemoveItem 2
  1027.  
  1028. End Sub
  1029.  
  1030. Sub mnuRight_Click ()
  1031.  
  1032.   MList3.Alignment = 3
  1033.   MList3.Refresh
  1034.  
  1035. End Sub
  1036.  
  1037. Sub mnuSelCount_Click ()
  1038.  
  1039.   Dim aString As String
  1040.  
  1041.   aString = "MList1.SelCount = " + Str$(MList1.SelCount)
  1042.   MsgBox aString, 0, "MList1"
  1043.  
  1044. End Sub
  1045.  
  1046. Sub mnuSelected_Click ()
  1047.  
  1048.   Dim Count As Integer
  1049.   Dim X As Integer
  1050.   Dim aString As String
  1051.  
  1052.   Count = MList1.ListCount
  1053.  
  1054.   If MList1.SelCount Then
  1055.     For X = 0 To Count - 1
  1056.  
  1057.       If MList1.Selected(X) Then
  1058.         aString = "True"
  1059.       Else
  1060.         aString = "False"
  1061.       End If
  1062.  
  1063.       Debug.Print "Item" + Str$(X) + ": " + aString
  1064.     Next
  1065.   End If
  1066.  
  1067. End Sub
  1068.  
  1069. Sub mnuTest_Click ()
  1070.  
  1071.   MList2.ImageType = 0
  1072.   MList2.ItemLength(1) = 1000
  1073.   MList2.ItemLength(2) = 1000
  1074.   MList2.ItemLength(3) = 1700
  1075.   MList2.ItemLength(4) = 1300
  1076.  
  1077.   MList2.SetHzScroll = True
  1078. End Sub
  1079.  
  1080. Sub mnuTestFont_Click ()
  1081.  
  1082.   MList1.ItemFont(0) = MList1.ItemFont(4)
  1083.  
  1084. End Sub
  1085.  
  1086. Sub mnuText_Click ()
  1087.  
  1088.   MsgBox MList2.Text, 0, "MList2"
  1089.  
  1090. End Sub
  1091.  
  1092. Sub mnuTop_Click ()
  1093.  
  1094.   MList3.Alignment = 2
  1095.   MList3.Refresh
  1096.  
  1097. End Sub
  1098.  
  1099. Sub mnuTopIndex_Click ()
  1100.  
  1101.   MList2.TopIndex = 6
  1102.  
  1103.   Dim aString As String
  1104.  
  1105.   aString = "MList2.TopIndex = " + Str$(MList2.TopIndex)
  1106.   MsgBox aString, 0, "MList2"
  1107.  
  1108. End Sub
  1109.  
  1110. Sub mnuUncheckTwo_Click ()
  1111.  
  1112.   If MList2.ImageType = 2 Then
  1113.     MList2.Checked(2) = False
  1114.   End If
  1115.  
  1116. End Sub
  1117.  
  1118.