New VBcode

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

vb Code:

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

Quote:

---

Originally Posted by moeur

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

---

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

vb Code:

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

Mind if I join in?

vb Code:

Dim x As Integer

c# Code:

int x;

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

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.:sick:

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

Useless.

Quote:

---

Originally Posted by penagate

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

Useless.

---

LOL... Can you show us please?

It comes out like this:

Code:

---

  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

---

Holly smoke... :eek2: :lol: :sick:

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

-tg

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?

Quote:

---

Originally Posted by techgnome

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...:sick:

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

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.

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.