Skip to content

Commit f779690

Browse files
DevExpressExampleBotDevExpressExampleBot
DevExpressExampleBot
authored and
DevExpressExampleBot
committed
Source auto update [skip ci]
1 parent 5d042bb commit f779690

12 files changed

+261
-290
lines changed

VB/WindowsFormsApplication1/Form1.Designer.vb

+50-53
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

VB/WindowsFormsApplication1/Form1.vb

+18-20
Original file line numberDiff line numberDiff line change
@@ -1,30 +1,28 @@
1-
Imports Microsoft.VisualBasic
21
Imports System
3-
Imports System.Collections.Generic
42
Imports System.ComponentModel
5-
Imports System.Data
63
Imports System.Drawing
7-
Imports System.Linq
8-
Imports System.Text
94
Imports System.Windows.Forms
105
Imports DevExpress.XtraRichEdit
116
Imports DevExpress.XtraRichEdit.Services
127

138
Namespace WindowsFormsApplication1
14-
Partial Public Class Form1
15-
Inherits Form
16-
Public Sub New()
17-
InitializeComponent()
18-
End Sub
199

20-
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
21-
richEditControl1.ReplaceService(Of ISyntaxHighlightService)(New HTMLSyntaxHighlightService(richEditControl1))
22-
Using server As IRichEditDocumentServer = richEditControl1.CreateDocumentServer()
23-
server.Text = "some HTML text"
24-
richEditControl1.Text = server.HtmlText
25-
End Using
26-
richEditControl1.Document.DefaultCharacterProperties.FontName = "Consolas"
27-
richEditControl1.Document.DefaultCharacterProperties.FontSize = 9
28-
End Sub
29-
End Class
10+
Public Partial Class Form1
11+
Inherits Form
12+
13+
Public Sub New()
14+
InitializeComponent()
15+
End Sub
16+
17+
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
18+
richEditControl1.ReplaceService(Of ISyntaxHighlightService)(New HTMLSyntaxHighlightService(richEditControl1))
19+
Using server As IRichEditDocumentServer = richEditControl1.CreateDocumentServer()
20+
server.Text = "some HTML text"
21+
richEditControl1.Text = server.HtmlText
22+
End Using
23+
24+
richEditControl1.Document.DefaultCharacterProperties.FontName = "Consolas"
25+
richEditControl1.Document.DefaultCharacterProperties.FontSize = 9
26+
End Sub
27+
End Class
3028
End Namespace

VB/WindowsFormsApplication1/My Project/Resources.Designer.vb

-63
This file was deleted.

VB/WindowsFormsApplication1/My Project/Settings.Designer.vb

-29
This file was deleted.
+13-16
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,18 @@
1-
Imports Microsoft.VisualBasic
21
Imports System
3-
Imports System.Collections.Generic
4-
Imports System.Linq
52
Imports System.Windows.Forms
63

74
Namespace WindowsFormsApplication1
8-
Friend NotInheritable Class Program
9-
''' <summary>
10-
''' The main entry point for the application.
11-
''' </summary>
12-
Private Sub New()
13-
End Sub
14-
<STAThread> _
15-
Shared Sub Main()
16-
Application.EnableVisualStyles()
17-
Application.SetCompatibleTextRenderingDefault(False)
18-
Application.Run(New Form1())
19-
End Sub
20-
End Class
5+
6+
Friend Module Program
7+
8+
''' <summary>
9+
''' The main entry point for the application.
10+
''' </summary>
11+
<STAThread>
12+
Sub Main()
13+
Call Application.EnableVisualStyles()
14+
Application.SetCompatibleTextRenderingDefault(False)
15+
Call Application.Run(New Form1())
16+
End Sub
17+
End Module
2118
End Namespace
Original file line numberDiff line numberDiff line change
@@ -1,28 +1,23 @@
1-
Imports Microsoft.VisualBasic
21
Imports System.Reflection
3-
Imports System.Runtime.CompilerServices
42
Imports System.Runtime.InteropServices
53

64
' General Information about an assembly is controlled through the following
75
' set of attributes. Change these attribute values to modify the information
86
' associated with an assembly.
9-
<Assembly: AssemblyTitle("WindowsFormsApplication1")>
10-
<Assembly: AssemblyDescription("")>
11-
<Assembly: AssemblyConfiguration("")>
12-
<Assembly: AssemblyCompany("")>
13-
<Assembly: AssemblyProduct("WindowsFormsApplication1")>
14-
<Assembly: AssemblyCopyright("Copyright © 2013")>
15-
<Assembly: AssemblyTrademark("")>
16-
<Assembly: AssemblyCulture("")>
17-
7+
<Assembly:AssemblyTitle("WindowsFormsApplication1")>
8+
<Assembly:AssemblyDescription("")>
9+
<Assembly:AssemblyConfiguration("")>
10+
<Assembly:AssemblyCompany("")>
11+
<Assembly:AssemblyProduct("WindowsFormsApplication1")>
12+
<Assembly:AssemblyCopyright("Copyright © 2013")>
13+
<Assembly:AssemblyTrademark("")>
14+
<Assembly:AssemblyCulture("")>
1815
' Setting ComVisible to false makes the types in this assembly not visible
1916
' to COM components. If you need to access a type in this assembly from
2017
' COM, set the ComVisible attribute to true on that type.
21-
<Assembly: ComVisible(False)>
22-
18+
<Assembly:ComVisible(False)>
2319
' The following GUID is for the ID of the typelib if this project is exposed to COM
24-
<Assembly: Guid("d863fe20-1213-4b65-ad3d-d52cf57dc09b")>
25-
20+
<Assembly:Guid("d863fe20-1213-4b65-ad3d-d52cf57dc09b")>
2621
' Version information for an assembly consists of the following four values:
2722
'
2823
' Major Version
@@ -33,5 +28,5 @@ Imports System.Runtime.InteropServices
3328
' You can specify all the values or you can default the Build and Revision Numbers
3429
' by using the '*' as shown below:
3530
' [assembly: AssemblyVersion("1.0.*")]
36-
<Assembly: AssemblyVersion("1.0.0.0")>
37-
<Assembly: AssemblyFileVersion("1.0.0.0")>
31+
<Assembly:AssemblyVersion("1.0.0.0")>
32+
<Assembly:AssemblyFileVersion("1.0.0.0")>

VB/WindowsFormsApplication1/Properties/Resources.Designer.vb

+62
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)