vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Daten Speichern 
Autor: Andy288bln
Datum: 04.12.03 19:14
Ich habe mit texboxen gerechnet und in labels ausgegeben wie kann ich die Daten speichern und wieder aufrufen ? Kann mir da einer Bitte Helfen ?
Private Sub Command1_Click()
Label1.Caption = Text1.Text * 28.06 & " € "
End Sub
 
Private Sub Command10_Click()
Label10.Caption = Text10.Text * 48.97 & " € "
End Sub
 
Private Sub Command11_Click()
Label11.Caption = Text11.Text * 64.82 & " € "
End Sub
 
Private Sub Command12_Click()
Label12.Caption = Text12.Text * 64.26 & " € "
End Sub
 
Private Sub Command13_Click()
Label13.Caption = Text13.Text * 172.83 & " € "
End Sub
 
Private Sub Command14_Click()
Label41.Caption = CDbl(Label1.Caption) + CDbl(Label2.Caption) + CDbl( _
  Label3.Caption) + CDbl(Label4.Caption) + CDbl(Label5.Caption) + CDbl( _
  Label6.Caption) + CDbl(Label7.Caption) + CDbl(Label8.Caption) + CDbl( _
  Label9.Caption) + CDbl(Label10.Caption) + CDbl(Label11.Caption) + CDbl( _
  Label12.Caption) + CDbl(Label13.Caption) & " € "
Form3.Show
Me.Hide
End Sub
 
Private Sub Command15_Click()
End
End Sub
 
Private Sub Command18_Click()
Label41.Caption = CDbl(Label1.Caption) + CDbl(Label2.Caption) + CDbl( _
  Label3.Caption) + CDbl(Label4.Caption) + CDbl(Label5.Caption) + CDbl( _
  Label6.Caption) + CDbl(Label7.Caption) + CDbl(Label8.Caption) + CDbl( _
  Label9.Caption) + CDbl(Label10.Caption) + CDbl(Label11.Caption) + CDbl( _
  Label12.Caption) + CDbl(Label13.Caption) & " € "
End Sub
 
Private Sub Command2_Click()
Label2.Caption = Text2.Text * 25.54 & " € "
End Sub
 
Private Sub Command20_Click()
Form6.Show
End Sub
 
Private Sub Command3_Click()
Label3.Caption = Text3.Text * 74.14 & " € "
End Sub
 
Private Sub Command4_Click()
Label4.Caption = Text4.Text * 107.66 & " € "
End Sub
 
Private Sub Command5_Click()
Label5.Caption = Text5.Text * 93.57 & " € "
End Sub
 
Private Sub Command6_Click()
Label6.Caption = Text6.Text * 49.38 & " € "
End Sub
 
Private Sub Command7_Click()
Label7.Caption = Text7.Text * 43.97 & " € "
End Sub
 
Private Sub Command8_Click()
Label8.Caption = Text8.Text * 102.98 & " € "
End Sub
 
Private Sub Command9_Click()
Label9.Caption = Text9.Text * 77.94 & " € "
End Sub

Wer alles wei? kann sich ja zur?ck legen... und schlau tun ... ich geh?re nicht dazu...*lol*

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Daten Speichern319Andy288bln04.12.03 19:14
Re: Daten Speichern194ModeratorDieter04.12.03 20:13
Re: Daten Speichern185Andy288bln04.12.03 20:15
Re: Daten Speichern185Danzi04.12.03 21:31

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-2025 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