Seth,


Thanks for the bit of code, but the index (n) returned is always "0" even thought the font name is rigth.

I did put a test as

MsgBox "Font name is " + myFontName + " n = " + str(n)


But it seems that there might be a pb with my code to populate the listbox.

If I check how many times the max value of i = f.count, I get 31, but my listbox shows many more fonts (about 60).

However, when I selct any of the font between 32 and 60 the font is not recognised.

Could this be the problem in my listbox?


TIA,

Regards,

Youri



Seth Duke wrote:
On 11/28/06 11:28 AM, "Youri" <[EMAIL PROTECTED]> wrote:

I have the following code to populate a listbox :

   f=FontsFolder

   For i=1 to f.count
     self.ListBox1.addrow f.item(i).name
   Next

I would like, that once the list is populated, the line containing the
name of my default font (stored in self.Cal.propFont) to be selected in
the listbox.


For
    ...
    If f.item(i).name = myFontName then
        n = listbox.LastRow
    End if
Next

Listbox.Selected(n) = True

-Seth


_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>


_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to