RE: MI-L LISTBOX

[Richard Hill]

Hello,
 this may not be of any use, but Encom Discover has that function built
in when you go through the "scaled Output" process, there is a box to
tick if you want a list of layers used in the layout when you define the
print set-up, titleblock, scale bar etc

Richard Hill
Southern Titanium NL

-----Original Message-----
From: Stephen Ware [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, 19 November 2003 08:48
To: [EMAIL PROTECTED]
Subject: RE: MI-L LISTBOX

Brad
I tried to send you mail directly but it bounced.  Below is a bit of
code that is one way of doing this.  I am sure there would be others.

Regards
Steve Ware

Does anyone know how to create a Listbox populated with all the names of
open
tables in a MapInfo session?

Brad
SuperValu GIS

START CODE

'To obtain a list of open tables and place them in a Table Picker list
box
' by Steve Ware

'Make sure this file is in the same directory as this TabList.mb file

Include "MapBasic.def"

Declare sub Main
Declare sub Get_Tab_Name

Sub Main
call Get_Tab_Name
End sub

sub Get_Tab_Name

        Dim Tab_List(1), Selected_Table as string, m, i, j, k as
smallint

'Get the number of tables that are open and redimension the string
Tab_List
        Redim Tab_List(numtables())
'Put table names into the Tab_List array
        j = 1
        k = numtables()
        m = k
        i = 1
        Do
                Tab_List(j) = UCase$(TableInfo(i,Tab_Info_Name))
                j = j + 1
                i = i + 1
        Loop Until i-1 = m 
        Redim Tab_List(k)

'Create the dialog box to obtain the table name

        Dialog
                Title "Choose table"
                Width 160
                Height 90
                Control Statictext
                        Title "Choose Table "
                        Position 5,10
                Control ListBox
                        Title From Variable Tab_List
                        Position 54,10
                        Height 40
                        Value 1
                        Into i  'Only gets the number of the table in
the list
                
                Control OKButton
                        Position 56, 59
                Control CancelButton
                        Position 106, 59
        

' If the OK button was not pressed then bail out 
        If not commandinfo(cmd_info_dlg_ok) then
         exit sub
        End If

        Selected_Table = Tab_List(i)  'Transfer name into a simpler
variable
        note "You chose the table " & Selected_Table

End Sub '(Get_Tab_Name)

---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 9209



---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 9210