Shoutbox

You could try using vbNewLine to create a newline

code:

---

Private Sub cmdcalc_Click()

    Dim Timestable, Number As Integer

    For Timestable = 1 To 12
      For Number = 1 To 12
        frmTables.Print Number & " x " & Timestable & " = " & (Number * Timestable) & vbNewLine
      Next Number
  Next Timestable
End Sub

---

Thanks Matty but that didn't do it either  I worked out theres a tab command that can list the tables in columns which goes tab(10)  but i dont understand the use of it exactly


Heres the source I currently have for it www.likethat.org.uk/tables.zip

use Chr(10)

Huh where?  It wont work where i think its supposed to go

code:

---

Private Sub cmdcalc_Click()

    Dim Timestable, Number As Integer

    For Timestable = 1 To 12
      For Number = 1 To 12
        frmTables.Print Number & " x " & Timestable & " = " & (Number * Timestable) & CHR(10)
      Next Number
  Next Timestable
End Sub

---

OR

code:

---

Private Sub cmdcalc_Click()

    Dim Timestable, Number As Integer

    For Timestable = 1 To 12
      For Number = 1 To 12
        frmTables.Print Number & " x " & Timestable & " = " & (Number * Timestable) & CHR(10) & CHR(13)
      Next Number
  Next Timestable
End Sub

---

Hi,

I dunno if this will make it more tidier and easier for you to use.
It's using a listbox, and it sections off each times table.

When you click on a certain times table, it shows each corrosponding equation in the second listbox.

I've uploaded the source anyways, so check it out.
Hope it helps.


Kind Regards,
XM4ST3RX

If you want to directly write/print to a form, you must take in account the type of font you're using. Normal/default fonts are not proportional (just like on this forum). This means that even if you put a tab character between your columns, the columns wouldn't be aligned properly and you will get this:

1 x 1 = 1         1 x 2 = 2         1 x 10 = 10         1 x 12 = 12
2 x 1 = 2         2 x 2 = 4         2 x 10 = 20         2 x 12 = 24
3 x 1 = 3         3 x 2 = 6         3 x 10 = 30         3 x 12 = 36
...
8 x 1 = 8         8 x 2 = 16         8 x 10 = 80         8 x 12 = 96
...
10 x 1 = 10         10 x 2 = 20         10 x 10 = 100         10 x 12 = 120

the columns aren't aligned.

So using tab characters to space your columns like this is almost always not advisable, just as to print directly to a form is almost always not advisable for the above reason. Also, printing 12 columns near each other will make your form very wide and inpracticle. A possible solution is the one shown by XM4ST3RX. This also shows that it is far better to not print directly to a form, but to a control. In the case of XM4ST3RX's code it are two listboxes.

To show what you want in theory, you could use a multiline textbox with a proporional font (eg: courier new) and using spaces to align the columns.

A bit more advanced would be to set tabstops in a control (listbox or textbox or whatever) and use the tabcharacter to align the columns. Setting tabstops must be done by calling an API; something you're not ready yet to use I assume

Anyways, here is the code to print all your columns side by side into a multiline textbox and using spaces to align the columns:

PS @ XM4ST3RX:
Do NOT do:
    Dim TimesTable, Number as integer
This will NOT declare TimesTable as an integer, but as a variant! Always seperate your declare statements to avoid such errors:
Dim Number As Integer
Dim TimesTable As Integer

Thanks Guys, after all that I was in a lecture today and he basically shown us how to do this. 

Great help.  I can get on with the next one now TictacToe, control arrays

quote:

---

PS @ XM4ST3RX:
Do NOT do:
    Dim TimesTable, Number as integer
This will NOT declare TimesTable as an integer, but as a variant! Always seperate your declare statements to avoid such errors:
Dim Number As Integer
Dim TimesTable As Integer

---

Dim Number As Integer, TimeTables As Integer
Is fine too As long, like you said, each var carries a datatype

quote:

---

Originally posted by Wabz
Thanks Guys, after all that I was in a lecture today and he basically shown us how to do this. 

Great help.  I can get on with the next one now TictacToe, control arrays

---

So anyway, what did they tell you to do?