akhileshbc
Mar 19th, 2010, 11:30 PM
Hi all.... :wave:
If you have tried using the VBcode tags for posting codes in this forum, you can see that the end user can't copy it correctly as it can have line numbers and extra spaces when copied.
So, I thought about creating a custom formatter and asked about it in here: http://www.vbforums.com/showthread.php?t=607914
Based on the help from that thread (by those amazing guys), I managed to edit and regroup a project of Mark (http://www.a1vbcode.com/vbforums/Topic10851-12-1.aspx).
Keyword list were copied from koolsid's VB6CodeGenerator Addin
All credits goes to the respective owners... Thanks to them.... :wave:
Here's a demonstration of VBcode tags of the forum as well as the Formatted code...:
[[ Actual Code ]] (using VBCode tags of this forum)
Option Explicit
'~~~~ VB6 code
Private Sub Command1_Click()
Dim strTemp As String
Dim i As Long
For i = 1 To 10
Debug.Print "Hai Guys...." '~~~> Print the message
Next i
End Sub
[[ Formatted Code ]] (copy-pasted from code generated by my program)
Option Explicit
'~~~~ VB6 code
Private Sub Command1_Click()
Dim strTemp As String
Dim i As Long
For i = 1 To 10
Debug.Print "Hai Guys...." '~~~> Print the message
Next i
End Sub
I hope you all will like this code... Feel free to post your comments and suggestions... :wave:
If you have tried using the VBcode tags for posting codes in this forum, you can see that the end user can't copy it correctly as it can have line numbers and extra spaces when copied.
So, I thought about creating a custom formatter and asked about it in here: http://www.vbforums.com/showthread.php?t=607914
Based on the help from that thread (by those amazing guys), I managed to edit and regroup a project of Mark (http://www.a1vbcode.com/vbforums/Topic10851-12-1.aspx).
Keyword list were copied from koolsid's VB6CodeGenerator Addin
All credits goes to the respective owners... Thanks to them.... :wave:
Here's a demonstration of VBcode tags of the forum as well as the Formatted code...:
[[ Actual Code ]] (using VBCode tags of this forum)
Option Explicit
'~~~~ VB6 code
Private Sub Command1_Click()
Dim strTemp As String
Dim i As Long
For i = 1 To 10
Debug.Print "Hai Guys...." '~~~> Print the message
Next i
End Sub
[[ Formatted Code ]] (copy-pasted from code generated by my program)
Option Explicit
'~~~~ VB6 code
Private Sub Command1_Click()
Dim strTemp As String
Dim i As Long
For i = 1 To 10
Debug.Print "Hai Guys...." '~~~> Print the message
Next i
End Sub
I hope you all will like this code... Feel free to post your comments and suggestions... :wave: