New VBcode

[moeur]

This is wierd, look at all the pretty colors
I don't like scroll bars

Private Function ExtractText(fulltext As String, tags As clsTags)
    fulltext = "This sucks"
    'extracts and returns the text between the tags
    Dim P1 As Integer, P2 As Integer
    P1 = InStr(fulltext, tags.Starting.char)
    P2 = InStr(P1 + 1, fulltext, tags.Ending.char)
    ExtractText = Mid(fulltext, P1 + 1, P2 - P1 - 1)
End Function

[RhinoBull]

This is wierd, look at all the pretty colors
I don't like scroll bars

Neither do I but they don't care really... I'm testing something here as well, btw.

Dim colRandom As New Collection
Dim intTry As Integer
 
Randomize
 
On Error Resume Next
 
Do Until colRandom.Count = 6
    ' Generate the random number
    intTry = Int(Rnd * 16 + 1)
    ' Attempt To add it To the collection along with a matching key
    colRandom.Add intTry, CStr(intTry)
    If Err.Number = 457 Then
        ' The key is already In the collection so it isn't added again
    End If
Loop
 
For intTry = 1 To 6
    Debug.Print colRandom(intTry)
Next

[jmcilhinney]

Mind if I join in?

Dim x As Integer

int x;

Hmmm... it does work with C# too. Cool!

[RhinoBull]

Hey Jim, if you are here then can you please copy code I posted into VB's editor (VB6 or VB.Net) - the problem is that you will get one single line.

[penagate]

I get all of the code... with the line numbers on alternate lines.

Useless.

[RhinoBull]

I get all of the code... with the line numbers on alternate lines.

Useless.

LOL... Can you show us please?

[penagate]

It comes out like this:

   1.
      Dim colRandom As New Collection
   2.
      Dim intTry As Integer
   3.
       
   4.
      Randomize
   5.
       
   6.
      On Error Resume Next
   7.
       
   8.
      Do Until colRandom.Count = 6
   9.
          ' Generate the random number
  10.
          intTry = Int(Rnd * 16 + 1)
  11.
          ' Attempt To add it To the collection along with a matching key
  12.
          colRandom.Add intTry, CStr(intTry)
  13.
          If Err.Number = 457 Then
  14.
              ' The key is already In the collection so it isn't added again
  15.
          End If
  16.
      Loop
  17.
       
  18.
      For intTry = 1 To 6
  19.
          Debug.Print colRandom(intTry)
  20.
      Next

[RhinoBull]

Holly smoke...

[techgnome]

Hmmm.... if this is how it's going to be.... I'll continue to use the [code][/code] tags....

-tg

[RhinoBull]

Hmmm.... if this is how it's going to be.... I'll continue to use the [code][/code] tags....

-tg

That exactly what I use - [CODE] tags...

edit: that's weird - I typed CODE in UPPER case but it was posed in lower case...

[TheBigB]

Aight... The brown for strings is ugly; the green is a little to light; i don't like the pink numbers; and what are the chemical green brackets for?

[TheBigB]

@moeur: you might want to upgrade your singnature
it still has the good old [vbcode] tags

[jmcilhinney]

I've been getting copied code on one line too. To get around that I quote the post that contains the code first to open it in the editor, then copy the code directly from between the HIGHLIGHT tags in the editor. It's a pain to have to use a workaround but I think these new HIGHLIGHT tags are a vBulletin thing, not a VBF thing.

[RhinoBull]

I know it's a pain so I'm using plain CODE tags and that's the end of it.
I hate textbox with scrollbars but since they appear with or without the highlighting I'd rather not use highlighting at all with all those silly colors.
The way this new highlighter is desined is really rediculous.