forked from jgross/heb_ruby
/
VB.html
executable file
·115 lines (100 loc) · 3.71 KB
/
VB.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/Test.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>dp.SyntaxHighlighter Tests</title>
<link type="text/css" rel="stylesheet" href="Styles/SyntaxHighlighter.css"></link>
<link href="Styles/TestPages.css" rel="stylesheet" type="text/css">
</head>
<body>
<h1>dp.SyntaxHighlighter 1.5.0 Tests and Samples</h1>
<p><a href="http://code.google.com/p/syntaxhighlighter/">http://code.google.com/p/syntaxhighlighter/</a></p>
<h2><!-- InstanceBeginEditable name="Title" -->Visual Basic<!-- InstanceEndEditable --></h2>
<div class="layout">
<div class="column1">
<h3>Languages:</h3>
<ol>
<li><a href="CSharp.html">C#</a></li>
<li><a href="CSS.html">CSS</a></li>
<li><a href="Cpp.html">C++</a></li>
<li><a href="Delphi.html">Delphi</a></li>
<li><a href="Java.html">Java</a></li>
<li><a href="JavaScript.html">JavaScript</a></li>
<li><a href="PHP.html">PHP</a></li>
<li><a href="Python.html">Python</a></li>
<li><a href="Ruby.html">Ruby</a></li>
<li><a href="SQL.html">SQL</a></li>
<li><a href="VB.html">Visual Basic</a></li>
<li><a href="XML.html">XML / HTML</a></li>
</ol>
<h3>Features:</h3>
<ol>
<li><a href="SmartTabs.html">Smart tabs</a></li>
<li><a href="FirstLine.html">First line</a> </li>
<li><a href="CollapseCode.html">Expand code</a></li>
<li><a href="ShowColumns.html">Show columns</a></li>
<li><a href="NoGutter.html">No gutter</a></li>
<li><a href="NoControls.html">No controls</a></li>
</ol>
</div>
<div class="column2">
Text body before.
<hr/>
<!-- InstanceBeginEditable name="Code" -->
<pre name="code" class="vb">
''
'' This is a VB test
''
'
' This is a VB test
'
Imports System.Collections
Dim stringWithUrl = "http://blog.dreamprojections.com"
Public Class MyVbClass
Private m_MyString As String
Public Sub New()
myString = "Hello there"
End Sub
Public Property MyString() As String
Get
Return m_MyString
End Get
Set(ByVal Value As String)
m_MyString = Value
End Set
End Property
#Region "This is my region"
' This is a comment
Public Function MyFunction( ByVal i as Integer ) As Double
MyFunction = 123.456
End Function
#End Region
End Class
</pre>
<!-- InstanceEndEditable -->
<hr/>
Text body after.
</div>
</div>
<div class="footer">
Copyright 2004-2007 Alex Gorbatchev.<br/>
</div>
<script class="javascript" src="Scripts/shCore.js"></script>
<script class="javascript" src="Scripts/shBrushCSharp.js"></script>
<script class="javascript" src="Scripts/shBrushPhp.js"></script>
<script class="javascript" src="Scripts/shBrushJScript.js"></script>
<script class="javascript" src="Scripts/shBrushJava.js"></script>
<script class="javascript" src="Scripts/shBrushVb.js"></script>
<script class="javascript" src="Scripts/shBrushSql.js"></script>
<script class="javascript" src="Scripts/shBrushXml.js"></script>
<script class="javascript" src="Scripts/shBrushDelphi.js"></script>
<script class="javascript" src="Scripts/shBrushPython.js"></script>
<script class="javascript" src="Scripts/shBrushRuby.js"></script>
<script class="javascript" src="Scripts/shBrushCss.js"></script>
<script class="javascript" src="Scripts/shBrushCpp.js"></script>
<script class="javascript">
dp.SyntaxHighlighter.ClipboardSwf = 'Scripts/clipboard.swf';
dp.SyntaxHighlighter.HighlightAll('code');
</script>
</body>
<!-- InstanceEnd --></html>