vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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

Suche Visual-Basic Code
Re: summe der optionbutton 
Autor: vbtricks
Datum: 28.01.07 11:12
Salut,

irgendwie habe ich das Gefühl, wir reden aneinander vorbei .

Wie ich mir das vorgestellt hatte: Die OptionButtons im ersten Frame heißen alle Option1 und werden mit der Index-Eigenschaft durchnummeriert, die im zweiten Frame heißen alle Option2 und sind wieder alle von 0 aufsteigend nummeriert.

In die Tag-Eigenschaft von jeder OptionBox schreibst du den Wert rein, der bei Auswahl dieser OptionBox zur Gesamtsumme addiert werden soll.

Im Code musst du jetzt pro Frame alle enthaltenen OptionButtons durchgehen, also z.B. für Frame1: 
For i = 0 To Option1.Ubound  ' alle durchgehen
  If Option1(i).Value = True Then  ' wenn ausgewählt
    GesamtSumme = GesamtSumme + Option1(i).Tag  ' draufaddieren
  End If
Next i
Jetzt hast du aber mehrere Frames. Leider ist mir da keine Möglichkeit bekannt, einen Doppelindex einzuführen, also nach dem Motto (Frame X, OptionButton Y). D.h. es bleibt erst mal nur die Möglichkeit, obigen Code für jeden Frame zu kopieren und entsprechend anzupassen. Die ganzen Schleifen werden dann nacheinander ausgeführt: 
' FRAME 1
For i = 0 To Option1.Ubound  ' alle durchgehen
  If Option1(i).Value = True Then  ' wenn ausgewählt
    GesamtSumme = GesamtSumme + Option1(i).Tag  ' draufaddieren
  End If
Next i
' FRAME 2
For i = 0 To Option2.Ubound  ' alle durchgehen
  If Option2(i).Value = True Then  ' wenn ausgewählt
    GesamtSumme = GesamtSumme + Option2(i).Tag  ' draufaddieren
  End If
Next i
' ...
' FRAME 10
For i = 0 To Option10.Ubound  ' alle durchgehen
  If Option10(i).Value = True Then  ' wenn ausgewählt
    GesamtSumme = GesamtSumme + Option10(i).Tag  ' draufaddieren
  End If
Next i
Ist das verständlicher?


Stefan

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
summe der optionbutton1.348utopia 2320.01.07 15:12
Re: summe der optionbutton822utopia 2320.01.07 15:13
Re: summe der optionbutton871vbtricks22.01.07 15:20
Re: summe der optionbutton796utopia 2322.01.07 20:02
Re: summe der optionbutton845vbtricks23.01.07 14:10
Re: summe der optionbutton763utopia 2327.01.07 23:53
Re: summe der optionbutton824vbtricks28.01.07 09:25
Re: summe der optionbutton832utopia 2328.01.07 10:55
Re: summe der optionbutton1.037vbtricks28.01.07 11:12
Re: summe der optionbutton866utopia 2328.01.07 11:40

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