[vbcode] - colour coding returns!

[John]

MsgBox "Hello"
If This=vbCool Then
  Debug.Print "Yeah!"
End If

Enjoy!

John

[SteveCRM]

WooHoo! Thanks John!

[parksie]

Is there no end to this genius?

Now for C++

[Matthew Gates]

Private Sub Form_Load()
    Select Case Command$
        Case "/John"
            Msgbox "THE BEST!"
        Case "/James"
            Msgbox "THE BEST!"
        Case "/Owner"
            Msgbox "The one and only, John, of course ;)"
        Case "/Administrator"
            Msgbox "John and James of course ;)"
        Case "/Senior Editor"
            Msgbox "Karl Moore :)"
    End Select
End Sub

If
Then
Option
Optional
Explicit
Option Explicit
And
Or
End If
End Sub
Private
Sub
Remove
For
Next
Do
Loop
Array
InStr
InStrRev
Replace
Randomize
Timer
Split
Join

Hrmmm...Sub, Split, Join, InStrRev, Replace, Optional not colored?

John, "Sub" should really color itself .

Test Color in VBCode.

[b][[/b]color=#0000a0[b]][/b][color=#0000a0]Optional[/color][b][[/b]/color[b]][/b]

That works

[Matthew Gates]

'Hello World

Look at that John, adds in \'s .

[parksie]

Remove "c:\win386.swp"
'Remove sFile
Rem Here is a comment
' Here is a multi _
line comment

Oh, and can you take off the initial newline after the tag's been opened? It makes it really unreadable getting round it

[John]

Fixed everything so far.

But no multiline stuff - that's asking a bit too much I think

John

[parksie]

Okay, no problem I don't even think anyone uses them coz it looks better to just stick a ' at the beginning of each line

[Matthew Gates]

'John's fixed it!

^Test for '²

[Matthew Gates]

Hehe, good job John! You made it take the first comment (') into consideration and ignore all after it!

[Matthew Gates]

Private Sub Form_Load()
[color=green]'code[/color]
End Sub

Just gotta fix that "End Sub" John, it colors the first for "Private Sub", but not the last one .

[John]

Just add a space or newline before the closing [/Highlight] tag.

John

[Sastraxi]

Why Not?

[Matthew Gates]

'no space
 
Private Sub
End Sub

'space
 
Private Sub
End Sub

'newline
 
Private Sub
End Sub

[Static]

For x = 1 to 10 ' this is a "test"
'everyone else got to test it...I felt left out!

[Static]

hhmmmm

had to make sure it was Capital letter!

for x = 1 to 10
For x = 1 to 10
private
Private

[John]

Copy and paste from VB and you'll be fine then

John

[parksie]

What's VB? Does anyone still use that?

[Matthew Gates]

Originally posted by parksie
What's VB? Does anyone still use that?

Ladies and gentlemen, meet parksie, the C++ expert .
parksie, may I have a copy of your brain, just the C++ area?

[parksie]

Sorry, after so long on the forums it's inextricably entwined with the "smut" department