Skip to content

VB conversion error #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 2 commits into from
Closed

VB conversion error #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
53368c4
autogenerate VB
Nov 2, 2021
eb9b7f7
README auto update [skip ci]
Nov 2, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 0 additions & 1 deletion README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,4 @@
<!-- default badges list -->
![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/218993704/19.2.3%2B)
[![](https://img.shields.io/badge/Open_in_DevExpress_Support_Center-FF7200?style=flat-square&logo=DevExpress&logoColor=white)](https://supportcenter.devexpress.com/ticket/details/T830407)
[![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)
<!-- default badges end -->
Expand Down
2 changes: 1 addition & 1 deletion VB/WebFormsDashboardDataSources.sln
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@


Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29403.142
Expand Down
Binary file modified VB/WebFormsDashboardDataSources/App_Data/NWind.mdf
View file
Open in desktop
Binary file not shown.
Binary file modified VB/WebFormsDashboardDataSources/App_Data/NWind_log.ldf
View file
Open in desktop
Binary file not shown.
4 changes: 2 additions & 2 deletions VB/WebFormsDashboardDataSources/Default.aspx
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
<%@ Page Language="vb" AutoEventWireup="true" CodeBehind="Default.aspx.vb" Inherits="WebFormsDashboardDataSources.Default" %>
<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="WebFormsDashboardDataSources.Default" %>

<!DOCTYPE html>

Expand All @@ -23,4 +23,4 @@
</div>
</form>
</body>
</html>
</html>
24 changes: 11 additions & 13 deletions VB/WebFormsDashboardDataSources/Default.aspx.designer.vb
View file
Open in desktop

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

13 changes: 7 additions & 6 deletions VB/WebFormsDashboardDataSources/Default.aspx.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,11 @@
Imports System
Imports System

Namespace WebFormsDashboardDataSources
Partial Public Class [Default]
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
End Class
Public Partial Class [Default]
Inherits Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
End Class
End Namespace
2 changes: 1 addition & 1 deletion VB/WebFormsDashboardDataSources/Global.asax
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
<%@ Application Codebehind="Global.asax.vb" Inherits="WebFormsDashboardDataSources.Global_asax" Language="vb" %>
<%@ Application Codebehind="Global.asax.cs" Inherits="WebFormsDashboardDataSources.Global_asax" Language="C#" %>
55 changes: 31 additions & 24 deletions VB/WebFormsDashboardDataSources/Global.asax.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,31 +1,38 @@
Imports System
Imports System

Namespace WebFormsDashboardDataSources
Public Class Global_asax
Inherits System.Web.HttpApplication

Private Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
System.Web.Routing.RouteTable.Routes.MapPageRoute("defaultRoute", "", "~/Default.aspx")
AddHandler DevExpress.Web.ASPxWebControl.CallbackError, AddressOf Application_Error
End Sub
Public Class Global_asax
Inherits Web.HttpApplication

Private Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application shutdown
End Sub
Private Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Web.Routing.RouteTable.Routes.MapPageRoute("defaultRoute", "", "~/Default.aspx")
''' Cannot convert AssignmentExpressionSyntax, System.NullReferenceException: Object reference not set to an instance of an object.
''' at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
''' at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
''' at ICSharpCode.CodeConverter.VB.CommentConvertingVisitorWrapper`1.Accept(SyntaxNode csNode, Boolean addSourceMapping)
'''
''' Input:
''' DevExpress.Web.ASPxWebControl.CallbackError += new System.EventHandler(this.Application_Error)
''' End Sub

Private Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when an unhandled error occurs
End Sub
Private Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs on application shutdown
End Sub

Private Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a new session is started
End Sub
Private Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when an unhandled error occurs
End Sub

Private Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a session ends.
' Note: The Session_End event is raised only when the sessionstate mode
' is set to InProc in the Web.config file. If session mode is set to StateServer
' or SQLServer, the event is not raised.
End Sub
End Class
End Namespace
Private Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a new session is started
End Sub

Private Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' Code that runs when a session ends.
' Note: The Session_End event is raised only when the sessionstate mode
' is set to InProc in the Web.config file. If session mode is set to StateServer
' or SQLServer, the event is not raised.
End Sub
End Class
End Namespace
26 changes: 12 additions & 14 deletions VB/WebFormsDashboardDataSources/Light.master.designer.vb
View file
Open in desktop

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

18 changes: 8 additions & 10 deletions VB/WebFormsDashboardDataSources/Light.master.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,16 +1,14 @@
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DevExpress.Web.Internal

Namespace WebFormsDashboardDataSources
Partial Public Class LightMaster
Inherits System.Web.UI.MasterPage

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
End Class
End Namespace
Public Partial Class LightMaster
Inherits MasterPage

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
End Class
End Namespace
80 changes: 43 additions & 37 deletions VB/WebFormsDashboardDataSources/Models/Category.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,40 +1,46 @@
Imports DevExpress.Xpo
Imports DevExpress.Xpo

Namespace WebFormsDashboardDataSources
<Persistent("Categories"), DeferredDeletion(False)>
Public Class Category
Inherits XPCustomObject

'INSTANT VB NOTE: The field categoryId was renamed since Visual Basic does not allow fields to have the same name as other class members:
Private categoryId_Renamed As Integer
'INSTANT VB NOTE: The field categoryName was renamed since Visual Basic does not allow fields to have the same name as other class members:
Private categoryName_Renamed As String
'INSTANT VB NOTE: The field description was renamed since Visual Basic does not allow fields to have the same name as other class members:
Private description_Renamed As String
<Key>
Public Property CategoryID() As Integer
Get
Return categoryId_Renamed
End Get
Set(ByVal value As Integer)
SetPropertyValue(Of Integer)("CategoryID", categoryId_Renamed, value)
End Set
End Property
Public Property CategoryName() As String
Get
Return categoryName_Renamed
End Get
Set(ByVal value As String)
SetPropertyValue(Of String)("CategoryName", categoryName_Renamed, value)
End Set
End Property
Public Property Description() As String
Get
Return description_Renamed
End Get
Set(ByVal value As String)
SetPropertyValue(Of String)("Description", description_Renamed, value)
End Set
End Property
End Class

<Persistent("Categories"), DeferredDeletion(False)>
Public Class Category
Inherits XPCustomObject

Private categoryIdField As Integer

Private categoryNameField As String

Private descriptionField As String

<Key>
Public Property CategoryID As Integer
Get
Return categoryIdField
End Get

Set(ByVal value As Integer)
SetPropertyValue(Of Integer)("CategoryID", categoryIdField, value)
End Set
End Property

Public Property CategoryName As String
Get
Return categoryNameField
End Get

Set(ByVal value As String)
SetPropertyValue(Of String)("CategoryName", categoryNameField, value)
End Set
End Property

Public Property Description As String
Get
Return descriptionField
End Get

Set(ByVal value As String)
SetPropertyValue(Of String)("Description", descriptionField, value)
End Set
End Property
End Class
End Namespace
Loading