✔ Zwei Zähler in VB6 miteinander addieren

[tombe]

Welche Fehlermeldung kommt den?

Ansonsten mache es so:

Form2.lblCounter.Caption = CStr(lngCounter)

Wobei ich eigentlich dachte die Umwandlung wäre unnötig.

 

[tragon]

fehlermeldung ist variable nicht definiert

doch das geht auch nicht

 

[tragon]

ich finde den fehler nicht.

 

[tombe]

Wie ist den der genaue Ablauf?

- Form1 ist geöffnet und der Zähler z.B. bei 10.
- Dann klickst du auf einen Button und öffnest zuerst Form2 und schliesst dann Form1

In welcher Prozedur kommt nun der Fehler, in der Form_Load und wenn ja was wird als falsch markiert?

Zeig nochmal deinen kompletten Quellcode (aber bitte formatiert).

 

[tragon]

ist wohl nur zufall gewesen das ich das so geändert habe, doch so geht es. Aber Warum kann ich nicht sagen!!

Option Explicit
Dim lngCounter As Long

Private Sub Form_Load()
lngCounter = Form1.lblCounter.Caption
Form2.lblCounter.Caption = Form1.lblCounter
End Sub

Private Sub Form_Activate()
'Form2.lblCounter.Caption = Form1.lblCounter.Caption
'muss hier nicht sein
End Sub

Private Sub Command1_Click()
lngCounter = lngCounter + 1
lblCounter.Caption = CStr(lngCounter)
End Sub

 

[tombe]

So wie es oben stand müsste es auch gehen. Vielleicht war da ja doch irgendwo ein Tippfehler drin den du übersehen hast.

 

[Yaslaw]

Du kannst auch ein neues Module machen. Das bennenst du irgendwei etwa 'globalVariables'
Darin kannst du globale Variabelne definieren die du im ganzen Code gebrauchen kannst, egal wo du bist

Option Compare Database

Public lastId As Long

 

[tombe]

@yaslaw: Habe ich ihm schon ganz am Anfang dazu geraten. Will er warum auch immer aber scheinbar nicht.

 

[tragon]

Danke ob du es glaubst oder nicht. Das ist meine erstes allein (Kann ich ja nicht sagen) anwendung. Ich habe gedacht wenn ich das kopiere und einfüge sieht Mann es so wie es bei mir ist.

 

[tragon]

Hey Tombe,

weil ich noch garnicht weis wie das geht.

Ich lade euch beide gerne zum Eis ein.

Nach dem Tod meines Anwenders stehe ich mit meine anwendug wieder am Anfang. Habe einen Job zu vergeben, der auch von Zuhause aus geht.