we have a project:

create an application that will display on the listbox the following:

                        1
                      21
                    321
                  4321
                54321
              654321
            7654321
          87654321
        987654321
    10987654321

but what i created is exactly like this:

1
22
333
4444
55555
666666
7777777
88888888
999999999
1111111111

please help. here's my code:

Private Sub lsttriangle_KeyPress(KeyAscii As Integer)
Dim n As Integer  'Number of rows
        Dim i As Integer 'Counter
    n = Val(InputBox("Enter number of rows"))
    For i = 1 To n
        lsttriangle.AddItem String(i, Asc(i))
    Next i

End Sub

Private Sub lsttriangle_KeyPress(KeyAscii As Integer) Dim n As Integer  'Number of rows         Dim i As Integer 'Counter         Dim output as String         n = Val(InputBox("Enter number of rows"))         output = ""         For iLine = 1 to n                 For i = iLine To 1 step -1 'may need to just add the 1                     output = output & chr(i)                 Next                 lsttriangle.AddItem output         Next End Sub

____________________________
Everywhere's Local (classifieds, job postings, & more for everycity in the world - user entered)

Hi
Minor modification to get the text right-aligned:

lsttriangle.additem right(string(" ",iLine) & output,iLine)

Can't remember if listbox has property for alignment, however, you can set it to rightalign using api.


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

quote:

---

JLRodgers wrote:

Private Sub lsttriangle_KeyPress(KeyAscii As Integer) Dim n As Integer  'Number of rows         Dim i As Integer 'Counter         Dim output as String         n = Val(InputBox("Enter number of rows"))         output = ""         For iLine = 1 to n                 For i = iLine To 1 step -1 'may need to just add the 1                     output = output & chr(i)                 Next                 lsttriangle.AddItem output         Next End Sub

---

hi
you need to clear the variable:

Private Sub lsttriangle_KeyPress(KeyAscii As Integer) Dim n As Integer  'Number of rows         Dim i As Integer 'Counter         Dim output as String         n = Val(InputBox("Enter number of rows"))                  For iLine = 1 to n                 output = ""                 For i = iLine To 1 step -1 'may need to just add the 1                     output = output & i                 Next                 lsttriangle.AddItem output         Next End Sub

[Edited by stickleprojects on 17-02-2008 at 11:01 PM GMT]

____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

Oops, sorry about the not clearing part.  I just typed it out without testing it.

[Edited by JLRodgers on 17-02-2008 at 06:42 PM GMT]

____________________________
Everywhere's Local (classifieds, job postings, & more for everycity in the world - user entered)

its already working, thank you very much but how can i set it into right alignment?ü   thank you again..ü

Not sure if there's code here or not... but a quick search in google for it yielded:
http://vbnet.mvps.org/code/listapi/listrightalignstylebits.htm


____________________________
Everywhere's Local (classifieds, job postings, & more for everycity in the world - user entered)