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/ConvertCSharp2V B.aspx>
<http://csharpconverter .claritycon.com/Default.aspx>
<http://www.ragingsmurf .com/vbcsharpconvert er.aspx>
<http://www.gotdotnet.c om/Community/UserSamples/Details.aspx?Sa mpleGuid=c62234 8b-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 JoinTextBoxColu mn
Inherits DataGridTextBox Column

' Store information necessary to retrieve fields.
Private relationName As String
Private parentField As DataColumn
Public Sub New(RelationNam e As String, ParentField As DataColumn)
relationName = RelationName
parentField = ParentField
MyBase.ReadOnly = True
End Sub 'New
Protected Overrides Function GetColumnValueA tRow(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)(RowNu m).Row
Dim drParent As DataRow = dr.GetParentRow (relationName)
Return drParent(parent Field).ToString ()
Catch
End Try
End Function 'GetColumnValue AtRow
' 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 'JoinTextBoxCol umn