testing vbcodes

Working on a wysiwyg vbcode editor
which is better the standard vbcodes

VB Code:

Sub doComments()
'make all comments green
    Dim i As Long
    Dim j As Long
    Dim strCode As String
    With mRTB
        strCode = .Text

or code from my wysiwyg editor

VB Code:

[COLOR=#0000FF]Private[/COLOR] [COLOR=#0000FF]Function[/COLOR] AdvancePointer(Buffer() [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Byte[/COLOR], ptr [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR]) [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR]
[COLOR=#7A0000]'returns a pointer to the block terminator[/COLOR]
[COLOR=#0000FF]Dim[/COLOR] nBytes [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Byte[/COLOR]
[COLOR=#0000FF]Dim[/COLOR] p [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR]
    p = ptr
   [COLOR=#7A0000]'1st byte is number of bytes in data block[/COLOR]
   nBytes = Buffer(p)
   [COLOR=#0000FF]While[/COLOR] nBytes > 0
      [COLOR=#7A0000]'point to next block[/COLOR]
       p = p + nBytes + 1
       nBytes = Buffer(p)
       [COLOR=#7A0000]'Debug.Print Hex(p), nBytes[/COLOR]
   [COLOR=#0000FF]Wend[/COLOR]
   AdvancePointer = p
[COLOR=#0000FF]End[/COLOR] [COLOR=#0000FF]Function[/COLOR]

What are all the possible Fonts? and what is the default font?
Arial
Arial black
Arial narrow
Book Antigua
Century Gothic
Comic Sans MS
Courier New
FixedSys
Franklin Gothic Medium
Garamonf
Georgia
Impact
Lucida Console
Lucida Sans Unicode
Microsoft Sans Serif
Palatino Linotype
System
Tahoma
Times New Roman
Trebuchet MS
Verdana - Default font?

What is default Size?
Verdana
Size 1
Size 2
Size 3
Size 4


Courier New
Size 1
Size 2
Size 3
Size 4

OK, now for the colors
Black
Sienna
Dark Olive Green
Dark Green
Dark Slate Blue
Navy
Indigo
Dark Slate Grey
Dark Red
Dark Orange
Olive
Green
Teal
Blue
Slate Gray
Dim Gray
Red
Sandy Brown
Yellow Green

Any other available?
White #FFFFFF Can you see me?
Yellow #FFFF00
Purple #FF00FF useful
Ughh.. #00FFFF

Time to get lists and indents working

One Indent
same indent
more of the same

two indents

Lists
Bullet List

• Item 1
• Item 2
• Item 3

Numbered List

1. Item 1
2. Item 2
3. Item 3

1. Item 1
2. Item 2
3. Item 3

REMOVED BY ADMIN

Rules be rules. ;)

More testing of the WYSIWYG editor
I Like Arial 12 in blue

But it should be a little darker don't you think?
Here is an example of a list. This was a particular difficult
Problem to solve when using color.

• item 1
• item 2
• item 3

Here is some VB code

VB Code:

[FONT=Courier New]Sub LoadIcons(Index As Integer)
[/FONT]

VB Code:

[FONT=Courier New][COLOR=#007A00]'load each image into an animated gif class(Index,i)
'from resource file
'position the image on the picturebox(Index)
'produce an array of rect position numbers for checking
'mouse position
[/COLOR][COLOR=#0000FF]Dim i As Integer, j As Integer
Dim mySmilie As clsSmilie
 
    iSpace = 30
    iLeft = 10
    iTop = 10
    nPicture = Index
    For i = 1 To 22
        Set mySmilie = New clsSmilie
        With mySmilie
            .ToolTipText = LoadResString(100 + i)
            .Tag = LoadResString(i + 165)
        End With
        Set mySmilie = Nothing
    Next i
    
[/COLOR][COLOR=#007A00]'Now a test of quotes
[/COLOR][COLOR=#0000FF]    x = "[/COLOR][COLOR=#7A0000]Here is quoted Text[/COLOR][COLOR=#0000FF]"
    y = x & vbCrLf & "[/COLOR][COLOR=#7A0000]More Quoted Text[/COLOR][COLOR=#0000FF]"
    
End Sub[/COLOR][/FONT]

Now for some special text formatting
We can Highlight text, make it ^superscript or _subscript
Change its color or font too.

We can also do quotes

Quote:

---

I couldn't get my program to work, can you help me?[/COLOR]

---

I'm still working on C++ code[/QUOTE] C++ Code [/COLOR][/QUOTE]
APIFunction BuildAPIStub(PSTR pszModule, PSTR pszFuncName, PBYTE params);

[/COLOR]// MakePtr is a macro that allows you to easily add to values (including
// pointers) together without dealing with C's pointer arithmetic. It
// essentially treats the last two parameters as DWORDs. The first
// parameter is used to typecast the result to the appropriate pointer type.
#define MakePtr( cast, ptr, addValue ) (cast)( (DWORD)(ptr)+(DWORD)(addValue))

#define MAX_INTERCEPTED_APIS 2048
unsigned InterceptedAPICount = 0;
PAPIFunction InterceptedAPIArray[MAX_INTERCEPTED_APIS];[/QUOTE]

This post was produced by the WYSIWYG editor.