Translation C# To vb.net

[Stan Sainte-Rose]

Hi,

I need some help for the translation of this script into vb.net (only the
class part).

http://support.microsoft.com/default...;en-us;Q319076

I tried to do my best, but I still have errors.

Thanks for your help.

Stan

[Herfried K. Wagner [MVP]]

* "Stan Sainte-Rose" <st**@cyber972.com> scripsit:

I need some help for the translation of this script into vb.net (only the
class part).

http://support.microsoft.com/default...;en-us;Q319076

I tried to do my best, but I still have errors.

C# -> VB .NET Converters:

<http://www.kamalpatel.net/ConvertCSharp2VB.aspx>
<http://csharpconverter.claritycon.com/Default.aspx>
<http://www.ragingsmurf.com/vbcsharpconverter.aspx>
<http://www.gotdotnet.com/Community/UserSamples/Details.aspx?SampleGuid=c622348b-18a9-47d6-8687-979975d5957d>

<http://www.remotesoft.com/>
-> "Octopus"

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[One Handed Man]

Untested - OHM
Public Class JoinTextBoxColumn
Inherits DataGridTextBoxColumn

' Store information necessary to retrieve fields.
Private relationName As String
Private parentField As DataColumn
Public Sub New(RelationName As String, ParentField As DataColumn)
relationName = RelationName
parentField = ParentField
MyBase.ReadOnly = True
End Sub 'New
Protected Overrides Function GetColumnValueAtRow(cm As CurrencyManager,
RowNum As Integer) As Object

' Get the current DataRow from the CurrencyManager.
' Use the GetParentRow and the DataRelation name to get
' the parent row.
' Return the field value from the parent row.
Try
Dim dr As DataRow = CType(cm.List, DataView)(RowNum).Row
Dim drParent As DataRow = dr.GetParentRow(relationName)
Return drParent(parentField).ToString()
Catch
End Try
End Function 'GetColumnValueAtRow
' Necessary when adding rows.

Protected Overrides Function Commit(cm As CurrencyManager, RowNum As
Integer) As Boolean
Return False ' Dummy implementation because it is read-only
End Function 'Commit
Public Shadows ReadOnly Property [ReadOnly]() As Boolean ' Hide base
member ReadOnly.
Get
Return True
End Get
End Property
End Class 'JoinTextBoxColumn