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   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
Re: Einfaches Problem!!! 
Autor: Domi
Datum: 05.09.02 15:27
Hi!
Na dann bin ich ja schonmal beruhigt, wenn ihr wenigstens ungefähr versteht was ich meine. Also ich verstehe jetzt nicht ganz gneau was ihr braucht, also ich kopiere mal den Teil des Code, wo ich denke auf den es ankommt!

.................
Option Explicit

Private Sub ListeSpielernummer_Click() ---------------------->1.Listbox linke Seite
ListeSpielername.ListIndex = ListeSpielernummer.ListIndex
End Sub

Private Sub ListeSpielername_Click()---------------------------->2.Listbox linke Seite
ListeSpielernummer.ListIndex = ListeSpielername.ListIndex
ListeAusstehendeVergehen.ListIndex = ListeSpielername.ListIndex
End Sub

Private Sub ListeAusstehendeVergehen_Click() --------------->3.Listbox linke Seite
ListeSpielername.ListIndex = ListeAusstehendeVergehen.ListIndex
ListeSpielernummer.ListIndex = ListeAusstehendeVergehen.ListIndex
End Sub

Private Sub ListeKostenbetrag_Click()--------------------->1.Listbox rechte Seite
ListeKostenbezeichnung.ListIndex = ListeKostenbetrag.ListIndex
End Sub

Private Sub ListeKostenbezeichnung_Click()--------------------->2.Listbox rechte Seite
ListeKostenbetrag.ListIndex = ListeKostenbezeichnung.ListIndex
End Sub


Private Sub VergehenBezahlen_Click()------------------>CommandButton (hier soll jetzt
der Wert der ListeAusstehendeVergehen des jeweiligen Spielers mit dem Wert der ListKostenbetrag addiert werden!!!)

Dim ListeKostenbetrag As Integer
Dim ListeAusstehendeVergehen As Integer
End Sub

...........................................
Ab hier ist der Rest des Code, aber der ist sicher unwichtig!

Private Sub VergehenHinzufügen_Click()
If Kostenbezeichnung.Text <> "" And Kostenbetrag.Text <> "" Then
ListeKostenbezeichnung.AddItem Kostenbezeichnung.Text
ListeKostenbetrag.AddItem Kostenbetrag.Text
Kostenbezeichnung.Text = ""
Kostenbetrag.Text = ""
End If
End Sub

Private Sub VergehenLöschen_Click()
Dim Zeilennummer As Integer
Zeilennummer = ListeKostenbezeichnung.ListIndex
If Zeilennummer <> -1 Then
ListeKostenbezeichnung.RemoveItem Zeilennummer
ListeKostenbetrag.RemoveItem Zeilennummer
End If
End Sub


Private Sub AlleVergehenLöschen_Click()
ListeKostenbezeichnung.Clear
ListeKostenbetrag.Clear
End Sub

Private Sub SLöschen_Click()
ListeSpielername.Clear
ListeSpielernummer.Clear
ListeAusstehendeVergehen.Clear
End Sub

Private Sub SpielerHinzufügen_Click()
If SNummer.Text <> "" And SName.Text <> "" Then
ListeSpielernummer.AddItem SNummer.Text
ListeSpielername.AddItem SName.Text
SNummer.Text = ""
SName.Text = ""
End If
End Sub

Private Sub SpielerLöschen_Click()
Dim Zeilennummer As Integer
Zeilennummer = ListeSpielername.ListIndex
If Zeilennummer <> -1 Then
ListeSpielername.RemoveItem Zeilennummer
ListeSpielernummer.RemoveItem Zeilennummer
End If
End Sub

...........................................

Ich hoffe, dass der Code jetzt weiterhilft!

MfG
DOMI
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Einfaches Problem!!!78Domi04.09.02 21:57
Re: Einfaches Problem!!!221unbekannt04.09.02 22:17
Re: Einfaches Problem!!!37Domi05.09.02 15:27

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