VBCode? (Almost Solved)

[Tec-Nico]

Is it true what I see? What happened to our beloved

visual basic code:

tags?

[brad jones]

This is best placed in the feedback forum. This is broken temporarily. It will be back.

Brad!

[Megatron]

You'd probably get a better response in the Forum Feedback section; Brad will see it faster, there.

Regular 'code' tags still work though. Same with color-tags. I remember, before we had the 'vbcode' tags, Matt Gates, myself, and a few others made an application to automatically recognize VB keywords and insert < color=blue > tags around them.

[brad jones]

The VB code coloring was a hack added to the forum. I didn't want to delay the upgrade to get that hack in place. It will be added back to the forum next week. We will also be changing the "#" button to say "Code" so it is easier to recognize as the standard Code button.

Brad!

[Tec-Nico]

Thank you, Brad and Megatron...

I was just worried we would lose it forever.

[Tec-Nico]

Just one more thing...

Now that you will take your time to make it work again... Would you please fix the comment part of it?

I mean, I love how the tags work, but when you had a comment like:

'Brad's Code

It would appear like:

'Brad's Code

I know it sounds spoiled, but it could be a nice addition to the looks of the forums.

Thanks again.

[RobDog888]

Brad, since, like Tec-Nico stated, that you will be doing new work on the vbcode tags, could we get support for .NET code so its keywords would be colored too?

Btw: This will not be considered an early x-mas gift to us either

[nemaroller]

The VB code coloring was a hack added to the forum. I didn't want to delay the upgrade to get that hack in place. It will be added back to the forum next week. We will also be changing the "#" button to say "Code" so it is easier to recognize as the standard Code button.

Brad!

That must be some interesting hack...

[brad jones]

That must be some interesting hack...

It is just a bit of PHP code. Being that I'm more of a Microsoft and C++ languages programmer, "Interesting" is a good word to use. I'll be trying to get the basic code hooked back in Monday/Tuesday. Once that is done, it should be easy to get the new keywords added. The comments issue might be a little more work. We will get there though

(This is one of the top items to get done.)

Brad!

[Tec-Nico]

Once again, thanks Brad.

There is a VB Project that does that as well, I believe. I can upload it if you want... (I know it is not PHP but you could get an idea of the algorithms used there if you want or need to, but I doubt you need to)

[dglienna]

On Error Me.Fault = False

Code tags work. Is that what you mean? I'm still using the update that has options for html that allow code, and quote, etc.

[Tec-Nico]

On Error Me.Fault = False
'Brad's Code
If Something And Something Or Something Then
 For i = 0 To 10
 Next
Else
  Select Case Hey
  Case 0:
    Do
      Hmmm...
    Loop Until 1
   Case 1:
     Do
       Hmmm...
      Loop While 2
   End Select
End If

Why don't I get it then, David? Should I add colors in the code's tag?

[Electroman]

On Error Me.Fault = False

Code tags work. Is that what you mean? I'm still using the update that has options for html that allow code, and quote, etc.

Haha yea if you quote him you'll see he's added the blue himself . And I was thinking they'd added simple keywords .

[Tec-Nico]

Yeah, I supposed so, Electroman. But I also wanted to show the other people it didn't work...

Me should be blue as well..

But it is not just an issue of having my signature colored or not. If you browse through the forums you will find that there are thousands of threads with the same tags which were relying on this hack to work.

[Electroman]

As Brads said he's working on it and it should be back to normal Monday or only a day or two after that but is his main priority .

[dglienna]

Haha yea if you quote him you'll see he's added the blue himself . And I was thinking they'd added simple keywords .

I noticed it the other night, when I used the right-click option of the download. It must do it automatically. Actually, I don't like the color tags, and have to copy the messsage, and overwrite the old one to edit the posts.

I forget where I got it, but it was here, this summer. I think it was in a Firefox thread. I've used it in other webpages, as well.

Not sure what is doing it, but, I guarantee that it is done automatically, with no intervention on my part.

[Electroman]

I noticed it the other night, when I used the right-click option of the download. It must do it automatically. Actually, I don't like the color tags, and have to copy the messsage, and overwrite the old one to edit the posts.

I forget where I got it, but it was here, this summer. I think it was in a Firefox thread. I've used it in other webpages, as well.

Not sure what is doing it, but, I guarantee that it is done automatically, with no intervention on my part.

That would be Canders VBF FireFox plugin .

[Tec-Nico]

Cander has a plugin for FireFox to do that? Where can I download it?

(FireFox rocks)

[NoteMe]

Cander has a plugin for FireFox to do that? Where can I download it?

(FireFox rocks)

here you go:
http://vbforums.com/showthread.php?t...4&highlight=FF

maybe that one could also have it's own tag. Like [ccode] [/ccode]


ØØ

[Tec-Nico]

Thank you, NoteMe. But... Does it work with version 1.0?

[Tec-Nico]

How is it going? I guess it is harder than expected, right?

Keep up the good work, Brad.

[Tec-Nico]

Yay! The VBCode Tag is back!!

Thank you, Brad.

Now just a little test:

If Something = True Then
     'My Code:
     Debug.Print "Hello World"
 Else
    'Somebody else's code:
     Debug.Print "Hey, Earth"
 End If

[Edit:]
It seems I did something wrong because it appeared broken... I am testing it again

[Tec-Nico]

Apparently it is eating the enters and adding a \ before the comments...
Let me see what happens without comments:

If Something = True Then
   Debug.Print "Something"
 Else
   Debug.Print "Something Else"
 End If

[MartinLiss]

There is definately a problem. I put VBCode tags around this in another thread and it wipes out the thread!

Private Sub Form_Load()

    ' Create the instance of the database class
    Set gDB = New CDatabase
    
    ' Open the database
    gDB.dbName = App.Path & "\northwind.MDB"
    
   ' Create an object variable for the ColumnHeader object.
   Dim clmX As ColumnHeader
   ' Add ColumnHeaders.
   Set clmX = lvFind.ColumnHeaders.Add(, , "Product", (lvFind.Width - 1066) / 2)
   Set clmX = lvFind.ColumnHeaders.Add(, , "Supplier ID", (lvFind.Width - 1066) / 2)
   Set clmX = lvFind.ColumnHeaders.Add(, , "Category ID", 976)

   lvFind.BorderStyle = ccFixedSingle ' Set BorderStyle property.
   lvFind.View = lvwReport ' Set View property to Report.

   ' Label OptionButton controls with SortOrder options.
      OptSort(0).Caption = "Sort Ascending"
      OptSort(1).Caption = "Sort Descending"
      lvFind.SortOrder = lvwAscending ' Sort ascending.
      OptSort(0).Value = True

End Sub

Private Sub lvFind_ColumnClick(ByVal ColumnHeader As ColumnHeader)
   ' When a ColumnHeader object is clicked, the ListView control is
   ' sorted by the subitems of that column.
   ' Set the SortKey to the Index of the ColumnHeader - 1
   lvFind.SortKey = ColumnHeader.Index - 1
   ' Set Sorted to True to sort the list.
   lvFind.Sorted = True
End Sub
Private Sub Form_Activate()
    
    txtWord.SetFocus

End Sub
Private Sub Form_Unload(Cancel As Integer)
    
    Set frmFind = Nothing
    
End Sub
Private Sub lvFind_DblClick()

    cmdFind(findCloseButton) = True
    
End Sub
Private Sub cmdFind_Click(Index As Integer)

    Dim sSQLProducts As String
    Dim sErr As String
    Dim itmX As ListItem ' Create a variable to add ListItem objects.
    
    Select Case Index
        Case findFindItButton
            On Error Resume Next
            lvFind.ListItems.Clear
            sSQLProducts = "Select * from Products where ProductName like '*" & txtWord & "*' "
            Set mrsProducts = gDB.DB.OpenRecordset(sSQLProducts, dbOpenDynaset)
            If Err.Number <> 0 Then
                sErr = Err.Description
                On Error GoTo 0
                Err.Raise dbOpenRSError, "cmdFind_Click", sErr
            End If

            While Not mrsProducts.EOF
                Set itmX = lvFind.ListItems.Add(, , CStr(mrsProducts!ProductName))
                itmX.SubItems(1) = CStr(mrsProducts!SupplierID)
                itmX.SubItems(2) = mrsProducts!CategoryID
                mrsProducts.MoveNext
            Wend
            mrsProducts.Close
            
        Case findCloseButton
            Unload Me
        Case Else
            ColorListviewRow lvFind, 5, vbRed ' use 16711681 instead of vbBlue
    End Select

End Sub

[brad jones]

The VBCODE tag is still a work in progress. Heidi is on the job, so it is much closer than it has been . I've pointed MartinLiss' bumm code to Heidi, so hopefully that will help to isoloate the problem (I've also managed to get the blank pages....)

We are getting close! Once we get it working, I'll be able to maintain the key term list.

Brad!

[Electroman]

The VBCODE tag is still a work in progress. Heidi is on the job, so it is much closer than it has been . I've pointed MartinLiss' bumm code to Heidi, so hopefully that will help to isoloate the problem (I've also managed to get the blank pages....)

We are getting close! Once we get it working, I'll be able to maintain the key term list.

Brad!

If you use the ' coments at all then you get that problem. Using the rem is fine though .

For example this code would do it if it was VBCode tags:

Hello 'Boo

[Tec-Nico]

One doubt... It seems the code is working everywhere in the forum but my examples posted here won't work... Can anyone tell me why?

It is just something like: (Hope it works)

'Somebody else's Code:
If something Then
    Debug.Print "Hello"
Else
    Debug.Print "Hi"
End If

[Tec-Nico]

Why is it eating the lines and keeping everything in blue?

[brad jones]

I cut and pasted your code in the test forum and it worked file. I'm cutting and pasting here to see what happens:



One doubt... It seems the code is working everywhere in the forum but my examples posted here won't work... Can anyone tell me why?

It is just something like: (Hope it works)

'Somebody else's Code:
If something Then
    Debug.Print "Hello"
Else
    Debug.Print "Hi"
End If

[brad jones]

I just opened your post (edit) and simply saved. Something goofy must have been at the end of the code lines you entered. Saving it seems to have reset whatever was at the end of your lines.

Brad!

[brad jones]

Why is it eating the lines and keeping everything in blue?

Good question on the line breaks.
Because he set the color of the post to blue is the answer to the other. (Just like I set it to Orange for this post)

Brad!

[Electroman]

Can I just add I viewed this thread straight after Tec-Nico posted that code and it looked fine, apart from it was all on one line. Now the font is messed up. Or did you edit something Tec-Nico?

[Electroman]

And now its all fine, I guess you must have changed something.

[Tec-Nico]

I didn't edit anything, Electroman. I guess I am the guy that has the luck to get into strange things.

I will try once again:

'Hello's Code:

[color=#00007f]
 If Something = True [color=#00007f]Then
 [/color] [color=#00007f]Debug[/color].[color=#00007f]Print[/color] "Hello"[color=#00007f]
 Else
 [/color] [color=#00007f]Debug[/color].[color=#00007f]Print[/color] "Hi"
 [color=#00007f]End[/color] If

P.S. I am using the WYSIWYG Editor.
[/color]

[Tec-Nico]

Hmmm... Strange. Please let me try without using any format (but using the WYSIWYG editor)

'Some Code:
 If Something = True Then
  Debug.Print "Hello"
 Else
  Debug.Print "Hi"
 End If

[Tec-Nico]

It still eats the breaks...

I don't understand why, unless it happens to anyone (And I don't think so) who is using the WYSIWYG editor.

[MartinLiss]

I tried the WYSIWYG editor but couldn't figure out how to add a text replacement value for a URL.

[Electroman]

'Some Code:
 If Something = True Then
  Debug.Print "Hello"
 Else
  Debug.Print "Hi"
 End If

[Electroman]

This is the WYSIWYG editor:

visual basic code:'Some Code: If Something = True Then Debug.Print "Hello" Else Debug.Print "Hi" End If

Mind copy & pasting the code was a little difficult .

EDIT: Its seems if you want the new lines to remain you have to type it in cos Copy & Pasting the Code in the WYSIWYG editor causes probs.

I'll be switching back I think, I'm not used to this .

OMG each time I edit or preview it the display shown in the editor looks right but once submitted it changes, then when I edit it again it chnages without doing anything.

[Tec-Nico]

See what I mean?

Then it is the WYSIWYG editor, right?
Does that mean I have to change the editor? I was getting used to it...