kostenloser Webspace werbefrei: lima-city

Variable für alle Forms

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   k***************3

   15:44, 11.1.2007

   Hallo Leute,
   ich möchte die Variable i für das gesamte Projekt deklarieren, d.h. dass ich diese Variable in allen Forms meines Projektes auch abrufen kann. Ich weiß leider nur wie man eine Variable für eine Form deklarieren kann. Könnt ihr mir helfen?
   Erik

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   15:52, 11.1.2007

   
   Lösung für VB 6:
   Füge ein Modul hinzu und deklariere in diesem Modul einfach die Variable als
   Public i As Integer
   
   
   Lösung für VB 7:
   Füge eine neue Komponente von "Module" hinzu, falls keines vorhanden ist.
   Deklaration:
   Public Module Module1
   Public i As Integer
   End Module
   
4. Autor dieses Themas

   k***************3

   14:23, 12.1.2007

   Viele Dank für die Antwort. Ich hätte noch gerne eine Frage:
   Wenn Form2 geladen wird möchte ich in eine TextBox automatisch einen Wert schreiben. Wie kann ich das als Funktion lösen.
   Mein bisheriger Ansatz im Modeul sieht so aus:
   Public edelsteine As Integer
   Public erz As Integer
   Public oel As Integer
   ------------------------
   Public Function startwerte()
   Var edelsteine, erz, oel
   edelsteine = Form2.TextBox1.Text
   erz = Form2.TextBox2.Text
   oel = Form2.TextBox2.Text
   End Function

5. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   14:21, 15.1.2007

   Dein Ansatz ist leider total falsch, anscheinend bist du erst Anfänger?
   Beim Abrufen von öffentlichen Variablen müssen diese nicht erneut deklariert werden. Außerdem, wenn du den Text einer Textbox festlegen willst, muss auf der linken Seite des Gleichheitszeichens die Textbox stehen.
   
   Hier ein Beipsiel:
   
   
   *** Code, der in der Form1 steht: ***
   
   Option Explicit
   
   Private Sub Form_Load()
   
   Call StartWerte_in_Form_übertragen
   
   End Sub
   
   Private Sub Form_Unload(Cancel As Integer)
   
   Call Werte_in_Variablen_übertagen
   
   End Sub
   
   
   
   *** Code, der im Module1 steht: ***
   
   Option Explicit
   
   Public EdelSteine As String
   Public Erz As String
   Public Öl As String
   
   Sub StartWerte_in_Form_übertragen()
   
   ' Von den Variablen in die Form
   Form1.TextBox1.Text = EdelSteine
   Form1.TextBox2.Text = Erz
   Form1.TextBox3.Text = Öl
   
   End Sub
   
   Sub Werte_in_Variablen_übertagen()
   
   ' Von der Form in die Variablen
   EdelSteine = Form1.TextBox1.Text
   Erz = Form1.TextBox2.Text
   Öl = Form1.TextBox3.Text
   
   End Sub
   
   

6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?