Klassenprogrammierung!
06.12.2005 08:38:47
Swen
ich habe mir eine klasse programiert,
die wie folgt aussieht
*******************************************************************
Private strName As String
Private strNC As String
Private strStiffenerNC As String
Private blnstrStiffener As Boolean
Private strlink As String
Private strConPin As String
Private strConPinNC As String
Private strManufacturer As String
Private strPartNo As String
Private strRemark As String
'*** Objekt PCB bekommt die Eigenschaft "name" ***'
Public Property Get name() As String
name = strName
End Property
Public Property Let name(ByVal vNewValue As String)
strName = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "NC" ***'
Public Property Get NC() As Variant
name = strNC
End Property
Public Property Let NC(ByVal vNewValue As Variant)
strNC = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "Stiffener" ***'
Public Property Get Stiffener() As Variant
Stiffener = blnStiffener
End Property
Public Property Let Stiffener(ByVal vNewValue As Variant)
blnStiffener = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "StiffenerNC" ***'
Public Property Get StiffenerNC() As Variant
StiffenerNC = strStiffenerNC
End Property
Public Property Let StiffenerNC(ByVal vNewValue As Variant)
strStiffenerNC = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "link" ***'
Public Property Get link() As Variant
link = strlink
End Property
Public Property Let link(ByVal vNewValue As Variant)
strlink = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "ConPin" ***'
Public Property Get ConPin() As Variant
ConPin = strConPin
End Property
Public Property Let ConPin(ByVal vNewValue As Variant)
strConPin = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "ConPinNC" ***'
Public Property Get ConPinNC() As Variant
ConPinNC = strConPinNC
End Property
Public Property Let ConPinNC(ByVal vNewValue As Variant)
strConPinNC = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "manufacturer" ***'
Public Property Get manufacturer() As Variant
manufacturer = strManufacturer
End Property
Public Property Let manufacturer(ByVal vNewValue As Variant)
strManufacturer = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "PartNo" ***'
Public Property Get PartNo() As Variant
PartNo = strPartNo
End Property
Public Property Let PartNo(ByVal vNewValue As Variant)
strPartNo = vNewValue
End Property
'*** Objekt PCB bekommt die Eigenschaft "Remark" ***'
Public Property Get Remark() As Variant
Remark = strRemark
End Property
Public Property Let Remark(ByVal vNewValue As Variant)
strRemark = vNewValue
End Property
*******************************************************************
benutzen möchte sie gerne in dem Userform "UF_header"
wenn die die Combobox 5 geändert wird
*******************************************************************
Private Sub ComboBox5_Change()
Dim intZaehler1 As Integer
'*** Auswahl von Pin das Objekt ausgewählte PCB eintragen ***'
'*** Zeile ermitteln in der die ausgewählte PCB steht
For intZaehler1 = 2 To 1000
If UF_Header.ComboBox5.Value = Worksheets("PCB").Cells(intZaehler1, 1).Value Then
Exit For
End If
Next intZaehler1
'** Zuweisung der Eigenschaften der ausgewählten PCB **'
ausgewähltePCB.name = Worksheets("PCB").Cells(intZaehler1, 1).Value
ausgewähltePCB.NC = Worksheets("PCB").Cells(intZaehler1, 2).Value
ausgewähltePCB.Stiffener = Worksheets("PCB").Cells(intZaehler1, 3).Value
ausgewähltePCB.StiffenerNC = Worksheets("PCB").Cells(intZaehler1, 4).Value
ausgewähltePCB.link = Worksheets("PCB").Cells(intZaehler1, 5).Value
ausgewähltePCB.ConPin = Worksheets("PCB").Cells(intZaehler1, 6).Value
ausgewähltePCB.ConPinNC = Worksheets("PCB").Cells(intZaehler1, 7).Value
ausgewähltePCB.manufacturer = Worksheets("PCB").Cells(intZaehler1, 8).Value
ausgewähltePCB.PartNo = Worksheets("PCB").Cells(intZaehler1, 9).Value
ausgewähltePCB.Remark = Worksheets("PCB").Cells(intZaehler1, 15).Value
'*** Werte aus der ermittelten Zeile in die TextBoxen einlesen ***'
UF_Header.TextBox101.Value = ausgewähltePCB.NC
UF_Header.TextBox102.Value = ausgewähltePCB.manufacturer & " / " & ausgewähltePCB.PartNo
'*** Kontrolle ob die PCB Kontaktstifte benötigt ***'
If Worksheets("PCB").Cells(intZaehler1, 6).Value = True Then
UF_Header.TextBox13.Value = "YES" & " " & ausgewähltePCB.ConPinNC
Else
UF_Header.TextBox13.Value = "No"
End If
'*** Kontrolle ob die PCB Stiffner benötigt ***'
If ausgewähltePCB.Stiffener = True Then
UF_Header.ComboBox7.Clear
UF_Header.ComboBox7.Enabled = False
UF_Header.ComboBox7.Value = "YES"
Else
UF_Header.ComboBox7.Clear
UF_Header.ComboBox7.Enabled = True
UF_Header.ComboBox7.AddItem "No"
UF_Header.ComboBox7.AddItem "Yes"
End If
End Sub
************************************************************************
ich bekomme folgende Fehlermeldung
Laufzeitfehler `91`:
Objektvar. oder With Blockvar. ist nicht festgelegt
die fehlemeldung erscheint sobald ich die ComboBox5 ändere!
kann mir jemand sagen was ich falsch mache!
Gruß
Swen