Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43
Optionsschalter // Checkbox Problem
Verfasst am: 19.09.2008, 18:21
hi, habe hier etwas grösseres gemacht, das mit den Optionsschalter funktioniert ohne probleme.

nun habe ich noch Checkboxen reingemacht da gibt es dort einen fehler:
Code:
[COLOR=Orange]ElseIf chkMieten.Checked & chkKaufen.Checked = True Then[/COLOR]




Code:
Public Class p0227<br />    Dim AusgabeLand As String<br />    Dim AusgabeOrt As String<br />    Dim Option1 As String<br /><br /><br />    Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optJapan.CheckedChanged, _<br />        optSchweiz.CheckedChanged, _<br />        optDeutschland.CheckedChanged<br />        If optJapan.Checked Then<br />            AusgabeLand = "Japan"<br />        ElseIf optSchweiz.Checked Then<br />            AusgabeLand = "Schweiz"<br />        Else<br />            AusgabeLand = "Deutschland"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & Option1<br /><br />    End Sub<br /><br />    Private Sub optOrt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optHotel.CheckedChanged, _<br />        optHaus.CheckedChanged, _<br />        optHütte.CheckedChanged<br />        If optHotel.Checked Then<br />            AusgabeOrt = "Hotel"<br />        ElseIf optHaus.Checked Then<br />            AusgabeOrt = "Haus"<br />        Else<br />            AusgabeOrt = "Hütte"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & Option1<br /><br />    End Sub<br /><br />    Private Sub chkKaufen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />    chkKaufen.CheckedChanged, _<br />    chkMieten.CheckedChanged<br />        If chkKaufen.Checked = True Then<br />            Option1 = "kaufen"<br />        ElseIf chkMieten.Checked = True Then<br />            Option1 = "Mieten"<br />        [COLOR=Red]ElseIf chkMieten.Checked & chkKaufen.Checked = True Then[/COLOR]<br />            Option1 = "Mieten&Kaufen"<br />        Else<br />            Option1 = "Keine Option ausgewählt"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & Option1<br /><br />    End Sub<br />End Class
die ausgabe der checkbox das es nicht aneinandergeschrieben kommt kann ich selber noch ändern Smile aber wo liegt das problem?!



@mfg exe_
 
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162

Verfasst am: 19.09.2008, 18:48
verusch ma

Visual Basic: [code]
if checkboxname.value=true
[/code]
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43

Verfasst am: 19.09.2008, 18:57
(BlAcKfINAl.aT;8585)
verusch ma

Visual Basic: [code]
if checkboxname.value=true
[/code]


ne, value geht glaub nur in vb6;
Fehler 1 "value" ist kein Member von "System.Windows.Forms.CheckBox".



@mfg exe_
 
BlAcKfINAl.aT
Poster
Poster

Anmeldedatum: 26.07.2008
Beiträge: 162

Verfasst am: 19.09.2008, 19:20
achh, scheiße...

sry , dachte wir sind hier in vb6 ^^
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 565

Verfasst am: 19.09.2008, 19:47
musst halt 2x if nehmen

Visual Basic: [code]
if chkkaufen.checked = true then
if chkmieten.checked = true then
option1 = "Mieten & Kaufen"
end if
end if
[/code]

lg

@ BlAcKfINAl.aT
check1.value = 1 then
nicht true Wink
 
noname
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 131

Verfasst am: 19.09.2008, 20:15
Visual Basic: [code]ElseIf chkMieten.Checked = True And chkKaufen.Checked = True Then ...[/code]
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43

Verfasst am: 20.09.2008, 01:02
(noname;8595)
Visual Basic: [code]ElseIf chkMieten.Checked = True And chkKaufen.Checked = True Then ...[/code]


der jetzige Source:
Code:
Public Class p0227<br />    Dim AusgabeLand As String<br />    Dim AusgabeOrt As String<br />    Dim Option1 As String<br /><br /><br />    Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optJapan.CheckedChanged, _<br />        optSchweiz.CheckedChanged, _<br />        optDeutschland.CheckedChanged<br />        If optJapan.Checked Then<br />            AusgabeLand = "Japan"<br />        ElseIf optSchweiz.Checked Then<br />            AusgabeLand = "Schweiz"<br />        Else<br />            AusgabeLand = "Deutschland"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & Option1<br /><br />    End Sub<br /><br />    Private Sub optOrt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optHotel.CheckedChanged, _<br />        optHaus.CheckedChanged, _<br />        optHütte.CheckedChanged<br />        If optHotel.Checked Then<br />            AusgabeOrt = "Hotel"<br />        ElseIf optHaus.Checked Then<br />            AusgabeOrt = "Haus"<br />        Else<br />            AusgabeOrt = "Hütte"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & Option1<br /><br />    End Sub<br /><br />    Private Sub chkKaufen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />    chkKaufen.CheckedChanged, _<br />    chkMieten.CheckedChanged<br />        If chkKaufen.Checked = True Then<br />            Option1 = "kaufen"<br />        ElseIf chkMieten.Checked = True Then<br />            Option1 = "Mieten"<br />        ElseIf chkMieten.Checked And chkKaufen.Checked = True Then<br />            Option1 = "Mieten&Kaufen"<br />        Else<br />            Option1 = "Keine Option ausgewählt"<br />        End If<br /><br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1<br /><br />    End Sub<br />End Class
Die optionsschalter funktionieren ohne probleme. Wenn ich aber nachdem ich etwas von den optschalter ausgewählt habe die beiden checkboxen auf true mache macht es das nicht:
ElseIf chkMieten.Checked And chkKaufen.Checked = True Then
Option1 = "Mieten&Kaufen"
also es steht danach nicht sowas im label:
Japan, Hotel, ==> Mieten&Kaufen


@mfg exe_
 
noname
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 131


Verfasst am: 20.09.2008, 01:21
Du hast meinen Code nicht ganz kopiert Wink
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 20.09.2008, 01:34
(noname;8604)
Du hast meinen Code nicht ganz kopiert Wink


ups, geht aber dennnoch nicht:

Code:
Public Class p0227<br />    Dim AusgabeLand As String<br />    Dim AusgabeOrt As String<br />    Dim Option1 As String<br /><br /><br />    Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optJapan.CheckedChanged, _<br />        optSchweiz.CheckedChanged, _<br />        optDeutschland.CheckedChanged<br />        If optJapan.Checked Then<br />            AusgabeLand = "Japan"<br />        ElseIf optSchweiz.Checked Then<br />            AusgabeLand = "Schweiz"<br />        Else<br />            AusgabeLand = "Deutschland"<br />        End If<br /><br />       [COLOR=Lime] lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1[/COLOR]<br /><br />    End Sub<br /><br />    Private Sub optOrt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optHotel.CheckedChanged, _<br />        optHaus.CheckedChanged, _<br />        optHütte.CheckedChanged<br />        If optHotel.Checked Then<br />            AusgabeOrt = "Hotel"<br />        ElseIf optHaus.Checked Then<br />            AusgabeOrt = "Haus"<br />        Else<br />            AusgabeOrt = "Hütte"<br />        End If<br /><br />        [COLOR=Lime]lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1[/COLOR]<br /><br />    End Sub<br /><br />    Private Sub chkKaufen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />    chkKaufen.CheckedChanged, _<br />    chkMieten.CheckedChanged<br />        If chkKaufen.Checked = True Then<br />            Option1 = "kaufen"<br />        ElseIf chkMieten.Checked = True Then<br />            Option1 = "Mieten"<br />        [COLOR=Red]ElseIf chkMieten.Checked = True And chkKaufen.Checked = True Then<br />            Option1 = "Mieten&Kaufen"[/COLOR]<br />        Else<br />            Option1 = "Keine Option ausgewählt"<br />        End If<br /><br />        [COLOR=Lime]lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1[/COLOR]<br /><br />    End Sub<br />End Class



------
kleine nebenfrage:
lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1

muss das bei jeder Private Sub reinkommen?!  
noname
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 131


Verfasst am: 20.09.2008, 01:46
Wenn du die Ausgabe aktualisieren willst, dann ja.

---------
Ursprüngliches Problem:

Visual Basic: [code]
If chkMieten.Checked = True And chkKaufen.Checked = True Then
'Diese Bedingung ist auf jeden Fall erfüllt wenn beide Checked sind! Dein Fehler muss an einer anderen Stelle liegen.
[/code]

Gute Nacht
 
christopher.g
Überflieger
Überflieger

Anmeldedatum: 03.05.2008
Beiträge: 565


Verfasst am: 20.09.2008, 04:44
hast jetzt meinen code überhaupt probiert???
oder weist e schon wo der fehler liegt????

Visual Basic: [code]
If chkmieten.Checked = True Then
If chkkaufen.Checked = True Then
option1 = "Mieten & Kaufen"
Else
option1 = "Mieten"
End If
ElseIf chkkaufen.Checked = True Then
option1 = "Kaufen"
Else
option1 = "Keine Option gewählt"
End If

[/code]
 
exe_cutable
Tutorial Leser
Tutorial Leser

Anmeldedatum: 19.05.2008
Beiträge: 43


Verfasst am: 20.09.2008, 23:45

(christopher.g;8607)
hast jetzt meinen code überhaupt probiert???
oder weist e schon wo der fehler liegt????

Visual Basic: [code]
If chkmieten.Checked = True Then
If chkkaufen.Checked = True Then
option1 = "Mieten & Kaufen"
Else
option1 = "Mieten"
End If
ElseIf chkkaufen.Checked = True Then
option1 = "Kaufen"
Else
option1 = "Keine Option gewählt"
End If

[/code]


geht leider auch nicht [img]/sad.gif[/img]

Code:
Public Class p0227<br />    Dim AusgabeLand As String<br />    Dim AusgabeOrt As String<br />    Dim Option1 As String<br /><br /><br />    Private Sub optJapan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optJapan.CheckedChanged, _<br />        optSchweiz.CheckedChanged, _<br />        optDeutschland.CheckedChanged<br />        If optJapan.Checked Then<br />            AusgabeLand = "Japan"<br />        ElseIf optSchweiz.Checked Then<br />            AusgabeLand = "Schweiz"<br />        Else<br />            AusgabeLand = "Deutschland"<br />        End If<br /><br />        Ausgabe()<br /><br />    End Sub<br /><br />    Private Sub optOrt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />        optHotel.CheckedChanged, _<br />        optHaus.CheckedChanged, _<br />        optHütte.CheckedChanged<br />        If optHotel.Checked Then<br />            AusgabeOrt = "Hotel"<br />        ElseIf optHaus.Checked Then<br />            AusgabeOrt = "Haus"<br />        Else<br />            AusgabeOrt = "Hütte"<br />        End If<br /><br />        Ausgabe()<br /><br />    End Sub<br /><br />    Private Sub chkKaufen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _<br />    chkKaufen.CheckedChanged, _<br />    chkMieten.CheckedChanged<br />        If chkKaufen.Checked = True Then<br />            If chkMieten.Checked = True Then<br />                Option1 = [COLOR=Purple]"Mieten Kaufen"[/COLOR]<br />            End If<br />        ElseIf chkMieten.Checked = True Then<br />            Option1 = [COLOR=RoyalBlue]"Mieten"[/COLOR]<br />        ElseIf chkKaufen.Checked = True Then<br />            Option1 = "Kaufen"<br />        Else<br />            Option1 = [COLOR=Orange]"Keine Option ausgewählt"[/COLOR]<br />        End If<br /><br />        Ausgabe()<br /><br />    End Sub<br /><br />    Private Sub Ausgabe() [COLOR=Black]' Ausgabe Label[/COLOR]<br />        lblAusgabe.Text = AusgabeLand & ", " & AusgabeOrt & " ==> " & Option1<br />    End Sub<br />End Class
wenn ich Kaufen klicke kommt es nicht im Label.
wenn ich keins angeklickt habe kommt Keine Option ausgewählt.
wenn ich Mieten zuerst klicke kommt Mieten.
wenn ich Mieten und danach Kaufen klicke kommt zuerst wie gewollt Mieten und nachher Mieten Kaufen
  
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: checkbox, ausgabeland, fehler, p0227

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Info.exe ? zum auslesen der IP's 721 30.04.2007, 10:08
Keine neuen Beiträge visual studio 2005 - exe erzeugen 1634 20.04.2007, 23:32
Keine neuen Beiträge .exe erstellen 794 29.03.2007, 18:32
Keine neuen Beiträge exe 646 30.01.2007, 21:34
Keine neuen Beiträge .exe erstellen 731 25.12.2006, 15:14
 



[ Time: 0.0856s ][ Queries: 113 (0.0216s) ][ GZIP on - Debug on ]