twee waarden voor een textbox

old Hippy · 25 mei 2008

Hallo helpers

vraagje (vb 2008 Express) een textbox krijgt een andere kleur als de waarde kleiner is dan de Berekende waarde.
voor de duidelijkheid voorbeeld

Code:

 Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        'bepaald de maximum verkoop prijs in procenten
        If TextBox9.Text < 0.5 Then 'Prijs per stuk
            TextBox9.BackColor = Color.LightGreen
        Else
            TextBox9.BackColor = Color.LightYellow
        End If

dit werkt goed Maaaaar!!!!!!

nu wil ik kunnen zwitsen tussen 2 waarden met een CheckBox bij voorbeeld
of indien er betere oplossingen zijn ook goed

Kan iemand mij hier mee helpen?????

ReneDirks · 25 mei 2008

Ik snap je vraag niet helemaal - wat wil je nu switchen? Maar misschien dat je hier iets mee kunt:

Code:

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If Me.CheckBox1.Checked Then
            'do iets
        Else
            'do iets anders
        End If
    End Sub

old Hippy · 25 mei 2008

Hei ReneDirks
Bij doe iets
TextBox7.Text < 0.5
geeft hij een fout

????????

ReneDirks · 25 mei 2008

TextBox7.Text < 0.5 is geen statement maar een vergelijking. Post je hele sub eens hier

old Hippy · 25 mei 2008

Hier is hij

Code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Berekend de prijs in dollars
        If RadioButton1.Checked = True Then
            Dim Koers, Aantal, verzendkosten, prijs
            Dim PrijsinEuro
            Koers = Val(TextBox1.Text)
            Aantal = Val(TextBox2.Text)
            verzendkosten = Val(TextBox3.Text)
            prijs = Val(TextBox4.Text)
            PrijsinEuro = Val(TextBox5.Text)
            'berekenen
            TextBox5.Text = (verzendkosten + prijs) * Koers
            TextBox6.Text = (verzendkosten + prijs) * (Koers / Aantal)
            TextBox7.Text = (verzendkosten + prijs) * (Koers / Aantal) / (0.75) * (1.19)
            TextBox8.Text = (verzendkosten + prijs) * (Koers / Aantal) / (0.65) * (1.19)
            TextBox9.Text = (verzendkosten + prijs) * (Koers / Aantal) / (0.55) * (1.19)
            TextBox10.Text = (verzendkosten + prijs) * (Koers / Aantal) / (0.45) * (1.19)
            TextBox5.Text = FormatCurrency(TextBox5.Text, 2)
            TextBox6.Text = FormatCurrency(TextBox6.Text, 2)
            TextBox7.Text = FormatCurrency(TextBox7.Text, 2)
            TextBox8.Text = FormatCurrency(TextBox8.Text, 2)
            TextBox9.Text = FormatCurrency(TextBox9.Text, 2)
            TextBox10.Text = FormatCurrency(TextBox10.Text, 2)
        End If
        'berekend de prijs in Euros
        If RadioButton2.Checked = True Then
            Dim Koers, Aantal, verzendkosten, prijs
            Dim PrijsinEuro
            Koers = Val(TextBox1.Text)
            Aantal = Val(TextBox2.Text)
            verzendkosten = Val(TextBox3.Text)
            prijs = Val(TextBox4.Text)
            PrijsinEuro = Val(TextBox5.Text)
            'berekenen
            TextBox5.Text = (verzendkosten + prijs)
            TextBox6.Text = (verzendkosten + prijs) / (Aantal)
            TextBox7.Text = (verzendkosten + prijs) / (Aantal) / (0.75) * (1.19)
            TextBox8.Text = (verzendkosten + prijs) / (Aantal) / (0.65) * (1.19)
            TextBox9.Text = (verzendkosten + prijs) / (Aantal) / (0.55) * (1.19)
            TextBox10.Text = (verzendkosten + prijs) / (Aantal) / (0.45) * (1.19)
            TextBox5.Text = FormatCurrency(TextBox5.Text, 2)
            TextBox6.Text = FormatCurrency(TextBox6.Text, 2)
            TextBox7.Text = FormatCurrency(TextBox7.Text, 2)
            TextBox8.Text = FormatCurrency(TextBox8.Text, 2)
            TextBox9.Text = FormatCurrency(TextBox9.Text, 2)
            TextBox10.Text = FormatCurrency(TextBox10.Text, 2)
        End If
        TextBox2.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'sluit de calculator af
        Application.Exit()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        'bepaald de valuta berekening
        If ComboBox1.Text = "Dollar" Then
            TextBox12.Text = "0.6350"
            Label12.Text = "Euro"
            Label13.Text = "Wisselkoers Dollar naar Euro"
        End If
        If ComboBox1.Text = "Euro" Then
            TextBox12.Text = "1.5748"
            Label12.Text = "Dollar"
            Label13.Text = "Wisselkoers Euro naar Dollar"
        End If
        If ComboBox1.Text = "GB Pound" Then
            TextBox12.Text = "1.6270"
            Label13.Text = ""
            Label12.Text = ""

        End If
    End Sub


    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        'Geeft het type valuta weer in Euros
        Label3.Text = "Koers: €"
        Label5.Text = "Verzend kosten: €"
        Label6.Text = "Prijs: €"
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        'Geeft het type valuta weer in dollars
        Label3.Text = "Koers: $"
        Label5.Text = "Verzend kosten: $"
        Label6.Text = "Prijs: $"
    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        If TextBox7.Text < 0.5 Then
            TextBox7.BackColor = Color.LightGreen
        Else
            TextBox7.BackColor = Color.LightYellow
        End If
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        If TextBox8.Text < 0.5 Then
            TextBox8.BackColor = Color.LightGreen
        Else
            TextBox8.BackColor = Color.LightYellow
        End If
    End Sub

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        'bepaald de maximum verkoop prijs in procenten
        If TextBox9.Text < 0.5 Then
            TextBox9.BackColor = Color.LightGreen
        Else
            TextBox9.BackColor = Color.LightYellow
        End If
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        'bepaald de maximum verkoop prijs in procenten
        If TextBox10.Text < 0.5 Then
            TextBox10.BackColor = Color.LightGreen
        Else
            TextBox10.BackColor = Color.LightYellow
        End If
    End Sub

    Private Sub TextBox11_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox11.KeyDown
        'berekend valuta in de calculator
        Dim Bedrag, Koers1, Resultaat
        Bedrag = Val(TextBox11.Text)
        Koers1 = Val(TextBox12.Text)
        Resultaat = Val(TextBox13.Text)
        TextBox13.Text = FormatNumber(Bedrag * Koers1, 2)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        'opend een valuta Website
        System.Diagnostics.Process.Start("http://mistermoney.rtl.nl/valuta.asp")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label14.Text = TimeOfDay
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.DefaultName = Me.TextBox1.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Text = My.Settings.DefaultName
        Dim TopControl As Control = DirectCast(sender, Control)
        For Each c As Control In TopControl.Controls
            If c.HasChildren Then
                Form1_Load(c, e)
            End If
            If TypeOf c Is TextBox Then
                If CType(c, TextBox).Multiline = False Then
                    AddHandler c.KeyPress, AddressOf AnyTextBox_KeyPress
                End If
            End If
        Next

    End Sub
    Private Sub AnyTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            SendKeys.Send("{Tab}")
        End If
    End Sub

Ok Moet nog wat anders doen kijk morgen weer

That Guy · 25 mei 2008

Code:

dim [COLOR="darkred"]varProc [/COLOR]as single

Private SUb CheckBox1_click(...)...
if checkbox1.value = 1 then
  [COLOR="darkred"]varProc [/COLOR]= 0.5
else
  [COLOR="darkred"]varProc [/COLOR]= 0.25
end if
end sub


 Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        'bepaald de maximum verkoop prijs in procenten
        If TextBox9.Text < [COLOR="DarkRed"]varProc[/COLOR] Then 'Prijs per stuk
            TextBox9.BackColor = Color.LightGreen
        Else
            TextBox9.BackColor = Color.LightYellow
        End If

zoiets?

old Hippy · 26 mei 2008

Zo iets dus helemaal goed

Bedankt voor alle hulp ook namens mijn dochter waar het programmatje voor is.
heb weer veel geleerd en dat maakt de hobby alleen maar leuker.

That Guy · 26 mei 2008

aye, np

twee waarden voor een textbox

old Hippy

Gebruiker

ReneDirks

Terugkerende gebruiker

old Hippy

Gebruiker

ReneDirks

Terugkerende gebruiker

old Hippy

Gebruiker

That Guy

Meubilair

old Hippy

Gebruiker

That Guy

Meubilair

Nieuwste berichten

Wij waarderen jouw privacy