Springen naar inhoud


- - - - -
VS 2015

Gegevens Textboxen Opslaan...

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 5 reacties in dit onderwerp

#1 Luc2803

Luc2803

    Starting Developer

  • Leden
  • 7 berichten
    Laatst bezocht gisteren, 10:53

Geplaatst op 14 november 2020 - 12:37

Hallo,

In heb een database en deze wordt via textboxen ingevuld.
Ook heb ik een code voorzien om positieve of negatieve getallen een kleur te geven.
Hier is mijn code:

Code:
  Dim C4, D4 As Decimal
		If Decimal.TryParse(TextBox14.Text, C4) AndAlso Decimal.TryParse(TextBox4.Text, D4) Then
			Dim percentage4 As Decimal = (D4 - C4) / C4 * 100
			TextBox19.Text = String.Format("{0:0.00} %", percentage4)
			If percentage4 >= 0.00 Then
				TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
				TextBox19.ForeColor = Color.DarkGreen
			Else
				TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
				TextBox19.ForeColor = Color.Red
			End If
		Else
			TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
			TextBox19.ForeColor = Color.Black
			TextBox19.Text = "Invalid input"
		End If


Het werkt perfect tot ik de Form sluit en heropen.

Wat is de beste manier om deze informatie op te slaan, zodat bij heropening de Textboxen terug de excacte kleur weergeven?

Mvg,
Luc

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 780 berichten
    Laatst bezocht gisteren, 19:43
  • LocatieMechelen (BE)

Geplaatst op 15 november 2020 - 13:27

een sub maken die de tekst gewoon terug controleert?

Visual Basic Code:
private sub CheckTextboxes()
Dim C4, D4 As Decimal ' ik vermoed dat je eerst wel iets in de c4/d4 steekt :)
If Decimal.TryParse(TextBox14.Text, C4) AndAlso Decimal.TryParse(TextBox4.Text, D4) Then
Dim percentage4 As Decimal = (D4 - C4) / C4 * 100
TextBox19.Text = String.Format("{0:0.00} %", percentage4)
If percentage4 >= 0.00 Then
TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
TextBox19.ForeColor = Color.DarkGreen
Else
TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
TextBox19.ForeColor = Color.Red
End If
Else
TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold)
TextBox19.ForeColor = Color.Black
TextBox19.Text = "Invalid input"
End If
end sub
en dan roep je die aan zodra je je data hebt ingeladen of je de tekstbox veranderd.

Opgepast trouwens met bepaalde fonts, volgens mij heeft niet iedereen "Adobe Devanagari" op zijn pc staan ;) en als je dit overal gebruikt kun je dat beter instellen als je je form laad

#3 Luc2803

Luc2803

    Starting Developer

  • Leden
  • 7 berichten
    Laatst bezocht gisteren, 10:53

Geplaatst op 15 november 2020 - 19:17

Ik had jullie dit reeds moeten vermelden dat het in een Sub staat en wordt ingeladen.
Het probleem is dus dat de tekst zwart wordt en niet de voorziene kleur.

Wat het fonts betreft is een goede opmerking en zal ik een meer regulier fonts gebruiken zoals " Calibri".

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 780 berichten
    Laatst bezocht gisteren, 19:43
  • LocatieMechelen (BE)

Geplaatst op 15 november 2020 - 20:18

Hazo ja en wanneer roep je de check aan?

Ik doen dat meestal op een text change dat weet je zeker dat er iets veranderd is aan je textbox :)

#5 Luc2803

Luc2803

    Starting Developer

  • Leden
  • 7 berichten
    Laatst bezocht gisteren, 10:53

Geplaatst op 18 november 2020 - 11:53

Ik roep de check aan bij "Form load", maar geen succes.

Heb nu jouw manier geprobeerd via "Textbox Textchange", maar eveneens geen geluk.

#6 Luc2803

Luc2803

    Starting Developer

  • Leden
  • 7 berichten
    Laatst bezocht gisteren, 10:53

Geplaatst op 01 december 2020 - 16:23

Probleem opgelost met deze code in de Form Load.

Code:
Dim percentage4 As Decimal = val(Textbox19.Text)
If percentage4 >= 0.00 Then 
TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold) 
TextBox19.ForeColor = Color.DarkGreen 
Else 
TextBox19.Font = New Font("Adobe Devanagari", 11.0, FontStyle.Bold) 
TextBox19.ForeColor = Color.Red 
End If 


Hartelijk dank voor jullie help.





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)