vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Fehlermeldung 
Autor: guenni255
Datum: 14.02.21 14:06

Hallo Forum

Ich stehe hier vor einem, mir völlig unverständlichem, Problem.

Im nachstehenden code wird eine form aufgebaut und mit daten aus einer Collection gefüllt.

das Problem ist nun, und das verstehe ich nicht, das zur Laufzeit beim Aufbau der Form die Fehlermeldung
"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft" Kommt aber beim Debuggen mit Einzelschritt Durchlauf nicht.

Hier der Code

Private Sub chkTln_Click(Index As Integer)
yy = yy + 1 'dient nur zu testzwecken
Select Case Me.chkTln(Index).Value
     Case 0
          CTln.remove (CStr(Me.chkTln(Index).Caption))
          CVoraus.remove (CStr(Me.chkTln(Index).Caption))
     Case 1
          CTln.Add Me.chkTln(Index).Caption, Me.chkTln(Index).Caption
          CVoraus.Add yy, CStr(Me.chkTln(Index).Caption)
 
End Select
Call erstellVorausForm
'freigabe nächster Menüpunkt erst wenn mind. 2 Tln makiert sind
 If CTln.count >= 2 Then
     StartForm.mnuEingaben(2).Enabled = True
Else
     StartForm.mnuEingaben(2).Enabled = False
End If
End Sub
 
Private Sub Form_Load()
'Set CVoraus = New Collection
StartForm.mnuEingaben(2).Enabled = False
Me.Move FTermin.Left + FTermin.Width + 30, FTermin.Top, 1600
Me.Label1.Move (Me.Width - Me.Label1.Width) / 2
End Sub
 
'Erstellte form mit Fehlermeldung
Public Sub erstellVorausForm()
Call fformlösch("frmVoraus")
Dim temp As frmVoraus
Set temp = New frmVoraus
With temp
For i = 1 To CTln.count
     Load .lblTln(i): Load .txtBetrag(i)
     'Psotionieren der lbl und txt Felder untereinander
     Dim links As Integer
     links = (.Width - (.lblTln(i).Width + .txtBetrag(i).Width + 15)) / 2
     Select Case i
          Case 1
               .lblTln(i).Move 30, .lblTln(0).Top 'Pos.Mitte des Form
          Case Is > 1
               .lblTln(i).Move 30, .lblTln(i - 1).Top + .lblTln(i - 1).Height + _
                 15
     End Select
     .lblTln(i).Caption = CTln(i)
     .lblTln(i).Visible = True
     .txtBetrag(i).Move .lblTln(i).Left + .lblTln(i).Width + 15, .lblTln( _
       i).Top, 800
     .txtBetrag(i).Text = Format(CVoraus(CStr(CTln(i))), "0.00 €")'FEHLERMELDUNG
     .txtBetrag(i).Visible = True
     .Height = .lblTln(.lblTln.UBound).Top + .lblTln(.lblTln.UBound).Height + _
       120
Next
End With
Set FVoraus = temp
Set temp = Nothing
 
End Sub
kann mir jemand helfen oder einen Tipp geben warum das so sein könnte???

bin für jede Hilfe dankbar

LG Günni
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehlermeldung206guenni25514.02.21 14:06
Re: Fehlermeldung103guenni25514.02.21 15:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel