vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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

Allgemeine Diskussionen
Re: Listing 
Autor: Ronny42Dach
Datum: 14.08.01 20:07

probiere mal das listing!

check1 - check7 sind checkboxen beschriftet Montag - Sonntag
command1Button "errechnet" eine zahl
command2Button gibt die Zahl in wochentage zurück
list1 und text1 müsste klar sein!

MFG

das listing
------------------------------------
Dim Mon As Boolean
Dim Dien As Boolean
Dim Mitt As Boolean
Dim Donn As Boolean
Dim Frei As Boolean
Dim Sam As Boolean
Dim Son As Boolean


Private Sub Check2_Click()

If Dien = False Then
Dien = True
Else
Dien = False
End If

End Sub

Private Sub Check4_Click()

If Donn = False Then
Donn = True
Else
Donn = False
End If


End Sub

Private Sub Check5_Click()

If Frei = False Then
Frei = True
Else
Frei = False
End If


End Sub

Private Sub Check3_Click()

If Mitt = False Then
Mitt = True
Else
Mitt = False
End If


End Sub

Private Sub Check1_Click()

If Mon = False Then
Mon = True
Else
Mon = False
End If

End Sub

Private Sub Check6_Click()

If Sam = False Then
Sam = True
Else
Sam = False
End If

End Sub

Private Sub Check7_Click()

If Son = False Then
Son = True
Else
Son = False
End If

End Sub

Private Sub Command1_Click()
Me.text1.Text = ""

If Mon = True Then Me.text1.Text = Me.text1.Text & 1
If Dien = True Then Me.text1.Text = Me.text1.Text & 2
If Mitt = True Then Me.text1.Text = Me.text1.Text & 3
If Donn = True Then Me.text1.Text = Me.text1.Text & 4
If Frei = True Then Me.text1.Text = Me.text1.Text & 5
If Sam = True Then Me.text1.Text = Me.text1.Text & 6
If Son = True Then Me.text1.Text = Me.text1.Text & 7



End Sub

Private Sub Command2_Click()
Dim zf As Long


Me.List1.Clear

If Me.text1.Text = "" Then
Beep
GoTo ende
End If

zf = Me.text1.Text
i = 0
Do
i = i + 1
z = Mid(zf, i, 1)
If z = "" Then Exit Do
If z = 1 Then List1.AddItem "Montag"
If z = 2 Then List1.AddItem "Dienstag"
If z = 3 Then List1.AddItem "Mittwoch"
If z = 4 Then List1.AddItem "Donnerstag"
If z = 5 Then List1.AddItem "Freitag"
If z = 6 Then List1.AddItem "Sammstag"
If z = 7 Then List1.AddItem "Sonntag"
Loop
ende:
End Sub

Private Sub txtFeldTagSpeicher_Change()

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Rechenexemple77hotte14.08.01 19:12
Re: Rechenexemple450unbekannt14.08.01 19:18
mit einer kleinen Änderung:355unbekannt14.08.01 19:26
Re: Wo liegt der Trick50hotte14.08.01 19:41
Re: lösung mit 2,4,8,16,32,64,12851Ronny42Dach14.08.01 20:37
So Trick bei Seite! 46Ronny42Dach14.08.01 22:30
??? - (kein Text)384unbekannt15.08.01 01:33
Lordchen hat ein Problem ....360unbekannt15.08.01 02:31
Ganz einfach, morgen aber die komplette Funktion. 368unbekannt15.08.01 01:39
Re: Rechenexemple44Ronny42Dach14.08.01 19:18
Re: Rechenexemple - Danke45hotte14.08.01 20:15
Re: Rechenexemple371unbekannt14.08.01 19:19
Re: Rechenexemple39hotte14.08.01 19:29
Re: Listing45Ronny42Dach14.08.01 20:07
So, hier mal mein Ansatz zu dem Problem! 479unbekannt15.08.01 11:56
Re: So, hier mal mein Ansatz zu dem Problem! 42hotte16.08.01 18:43
Re: da fehlt doch was....?!58hotte16.08.01 19:12
Re: da fehlt doch was....?!43Ronny42Dach16.08.01 19:18

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