Portal:AOL-Files/Articles/VB to HTML - Revision history

AD: AD moved page Portals:AOL-Files/Articles/VB to HTML to Portal:AOL-Files/Articles/VB to HTML

2021-06-19T03:07:54Z

AD moved page Portals:AOL-Files/Articles/VB to HTML to Portal:AOL-Files/Articles/VB to HTML

← Older revision		Revision as of 03:07, 19 June 2021
(No difference)

AD at 03:00, 16 October 2020

2020-10-16T03:00:25Z

← Older revision		Revision as of 03:00, 16 October 2020
Line 1:		Line 1:
	{{AOL-Files}}		{{AOL-Files
			\|section=articles}}
	(Originally by AOL-Files staff member Tau)		(Originally by AOL-Files staff member Tau)

AD at 09:00, 2 October 2020

2020-10-02T09:00:46Z

← Older revision		Revision as of 09:00, 2 October 2020
Line 10:		Line 10:

	<pre>		<pre>
			Private Sub cmdConvert_Click()
			Dim i%, StartSpot%, Spot%, vbCr1%
			txtVB.Text = Replace(txtVB.Text, String(4, Chr(32)), " " & " " & " " & " ")
			txtVB.Text = Replace(txtVB.Text, vbCrLf, "
			" & vbCrLf)
			For i = 0 To lstBlue.ListCount - 1
			DoEvents
			txtVB.Text = Replace(txtVB.Text, lstBlue.List(i), "" & lstBlue.List(i) & "")
			Next i
			StartSpot% = 0
			Do: DoEvents
			Spot% = InStr(StartSpot% + 1, txtVB.Text, "'")
			If Spot% = 0 Then Exit Do
			vbCr1% = InStr(Spot% + 1, txtVB.Text, vbCrLf)
			If vbCr1% = 0 Then vbCr1% = Len(txtVB.Text)
			txtVB.Text = Left(txtVB.Text, Spot% - 1) & "" & Mid(txtVB.Text, Spot%, vbCr1% - Spot%) & "" & Mid(txtVB.Text, vbCr1%)
			StartSpot% = vbCr1%
			Loop Until vbCr1% = Len(txtVB.Text)
			End Sub

			Private Sub Form_Load()
			With lstBlue
			.AddItem "Option "
			.AddItem "Explicit"
			.AddItem "Private "
			.AddItem "Function"
			.AddItem "Public "
			.AddItem "For "
			.AddItem " To "
			.AddItem "Dim "
			.AddItem "If "
			.AddItem " Then"
			.AddItem "Exit "
			.AddItem "End"
			.AddItem "Sub"
			.AddItem "Next"
			.AddItem " String"
			.AddItem " Integer"
			.AddItem " Long"
			.AddItem "Public Const"
			.AddItem "Else"
			.AddItem " True"
			.AddItem "False"
			.AddItem "Do"
			.AddItem "Loop"
			.AddItem "Until"
			.AddItem "Call "
			.AddItem " And "
			.AddItem " Goto"
			.AddItem " Or "
			.AddItem "While "
			.AddItem "With "
			.AddItem "Public Declare Function"
			.AddItem "Private Declare Function"
			.AddItem " Alias "
			.AddItem " Lib "
			.AddItem "ByVal "
			.AddItem " ListBox"
			.AddItem "As Long"
			.AddItem "As String"
			.AddItem "As Integer"
			.AddItem ""
			.AddItem "Const"
			.AddItem " Declare "
			End With
			End Sub
	</pre>		</pre>

AD: Created page with "{{AOL-Files}} (Originally by AOL-Files staff member Tau) '''Purpose:''' I had to quickly make a program to color code the Visual Basic code on this site. Keep in mind this t..."

2020-10-02T08:53:09Z

Created page with "{{AOL-Files}} (Originally by AOL-Files staff member Tau) '''Purpose:''' I had to quickly make a program to color code the Visual Basic code on this site. Keep in mind this t..."

New page

{{AOL-Files}}

(Originally by AOL-Files staff member Tau)

'''Purpose:'''
I had to quickly make a program to color code the Visual Basic code on this site. Keep in mind this took me around 25 minutes to make so its not that great. But, enhance it all you choose.

'''Requirements:'''
This code requires a Command Button named cmdConvert which can be modified in the last Sub.

<pre>

</pre>

[[Category:AOL]]
[[Category:AOL-Files]]
[[Category:FDO-Files]]