hallo!
ich habe eine hierarchische stückliste aus systemen>modulen>bauteilen. da alle drei elemente die selben attribute bestitzen sollte ich eine klasse dafür programmieren.
soweit hab ich das mal. eine klasse zum definieren von elementen und eine übergeordnete, dort will ich die systeme reingeben, und danach bei der definition des module die einem system zuweisen.
wie kann ich dies mit/in der klasse der elemeten umsetzen? hätte da jemand bitte ein paar hinweise für mich?
ich habe eine hierarchische stückliste aus systemen>modulen>bauteilen. da alle drei elemente die selben attribute bestitzen sollte ich eine klasse dafür programmieren.
soweit hab ich das mal. eine klasse zum definieren von elementen und eine übergeordnete, dort will ich die systeme reingeben, und danach bei der definition des module die einem system zuweisen.
wie kann ich dies mit/in der klasse der elemeten umsetzen? hätte da jemand bitte ein paar hinweise für mich?
Visual Basic-Quellcode
- Public Class VehicleElements
- Private mName As String
- Private mRelatedItem As String
- Public Property Name As String
- Get
- Return mName
- End Get
- Set(ByVal value As String)
- mName = value
- End Set
- End Property
- Public Property RelatedItem As String
- Get
- Return mRelatedItem
- End Get
- Set(ByVal value As String)
- mRelatedItem = value
- End Set
- End Property
- Public Sub New(ByVal Name As String, ByVal RelatedItem As String)
- Me.Name = Name
- Me.RelatedItem = RelatedItem
- End Sub
- End Class
- Public Class Vehicle
- Private mVehicleName As String
- Dim Vehicle As DataSet = New DataSet("Vehicle")
- Dim VehicleItems As DataTable = Vehicle.Tables.Add("VehicleItems")
- Dim ItemID As DataColumn = VehicleItems.Columns.Add( _
- "ItemID", Type.GetType("System.Int32"))
- Dim ItemName As DataColumn = VehicleItems.Columns.Add( _
- "ItemName", Type.GetType("System.String"))
- VehicleItems.PrimaryKey= New DataColumn() {ItemID}
- Public Property VehicleName As String
- Get
- Return mVehicleName
- End Get
- Set(ByVal value As String)
- mVehicleName = value
- End Set
- End Property
- Public Sub New(ByVal VehicleName As String)
- Me.VehicleName = VehicleName
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BöseSusi“ ()