[vbcode] - colour coding returns!

VB Code:

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

Enjoy!

John

WooHoo! Thanks John! :D :D :D :D :D :D :D

Is there no end to this genius? :D

Now for C++ ;)

VB Code:

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

VB Code:

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? :rolleyes:

John, "Sub" should really color itself :).

Test Color in VBCode.

VB Code:

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

That works :D

VB Code:

'Hello World

Look at that John, adds in \'s :rolleyes:.

VB Code:

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 :(

Fixed everything so far.

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

John

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 :D

VB Code:

'John's fixed it!

^Test for '²

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

VB Code:

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

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

John

VB Code:

Why Not?

VB Code:

'no space
 
Private Sub
End Sub

VB Code:

'space
 
Private Sub
End Sub

VB Code:

'newline
 
Private Sub
End Sub

VB Code:

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

hhmmmm

had to make sure it was Capital letter!

VB Code:

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

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

John

What's VB? Does anyone still use that? :confused:

:p

Quote:

---

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

:p

---

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

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