Dit betekend dat je dit niet kan setten maar enkel getten. Maw: je kan dit enkel opvragen, hier kan je geen waarde aan instellen (ook vrij logisch...)
Als je de maximumlengte wil instellen gebruik dan:
lblOpdrachtdatum_Opdrachten.Text = Date.Today
Dim strTijdstip_Ophalen As String = txtTijdstip.Text
Dim strTussenvoegsel As String = ":"
strTijdstip_Ophalen = strTijdstip_Ophalen.Insert(3, strTussenvoegsel)
If (strTijdstip_Ophalen.Length < 6) Then
MsgBox("Tijd klopt niet!")
End If
lblOpdrachtdatum_Opdrachten.Text=Date.Today
Dim strTijdstip_Ophalen AsString= txtTijdstip.Text
Echt dr klopt niks van want krijg een fout:
Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: startIndex
Wil je maxlengte of wat wil je? (maxlengte staat in vorige post)
Abbas - 06/11/2008 17:01 (laatste wijziging 06/11/2008 17:07)
Crew .NET
Als je deftig leest zie je dat hij zowel een oplossing geeft op de fout die je krijgt EN een oplossing geeft om de MaxLength in te stellen. Je vraag was dus compleet overbodig!
Edit:
Bij de Insert() mag de startIndex niet groter zijn dan de lengte van je string. Als je string 4 tekens lang is, is de maximum startIndex 3 (Zero-based beginnen tellen)!
txtTijdstip.MaxLength = 5
Dim strTijdstip_Ophalen As String = txtTijdstip.Text
Dim strTussenvoegsel As String = ":"
If IsNumeric(txtTijdstip.Text.Length = 2) Then
strTijdstip_Ophalen = strTijdstip_Ophalen.Insert(2, strTussenvoegsel)
ElseIf txtTijdstip.Text.Length < 2 Then
MsgBox("Geen juiste tijd ingevoerd!")
End If
txtTijdstip.MaxLength=5
Dim strTijdstip_Ophalen AsString= txtTijdstip.Text
@vage:
Snap het boolean verhaal (stond hier namelijk eerst wat anders), maar waar de fout zit is dat ik out of range ben!
txtTijdstip.MaxLength = 5 Dim strTijdstip_Ophalen As String = txtTijdstip.Text
Dim strTussenvoegsel As String = ":"
If (txtTijdstip.Text.Length = 2) Then strTijdstip_Ophalen = strTijdstip_Ophalen.Insert(2, strTussenvoegsel)
ElseIf txtTijdstip.Text.Length < 5 Then
MsgBox("Geen juiste tijd ingevoerd!")
End If
Ik zelf denk dat de fout zit bij het vetgedrukte gedeelte....omdat het een txtbox is waar die de waarde uit moet halen en daarom zegtie waarschijnlijk out of range...hoe los ik dit op?
Private Sub txtTijdstip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTijdstip.TextChanged
'Tijd afspraak, verhuurde producten worden opgehaald'
Dim strTijdstip_Ophalen As String
Dim strTussenvoegsel As String = ":"
txtTijdstip.MaxLength = 5
strTijdstip_Ophalen = txtTijdstip.Text
strTijdstip_Ophalen = strTijdstip_Ophalen.Insert(2, strTussenvoegsel)
End Sub
PrivateSub txtTijdstip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles txtTijdstip.TextChanged
'Tijd afspraak, verhuurde producten worden opgehaald'
txtTijdstip.MaxLength = 5
Dim strTussenvoegsel As String = ":"
'Dit klopt duidelijk niet...: If IsNumeric(txtTijdstip.Text.Length = 2) Then
if (isnumeric(txtTijdstip.Text) AND txtTijdstip.Text.Length = 2) Then
'strTijdstip_Ophalen = strTijdstip_Ophalen.Insert(2, strTussenvoegsel)
'je controleert of er 2 tekens zijn, dus waarom met die insert?
txtTijdstip.Text &= ":" 'zelfde resultaat...
ElseIf txtTijdstip.Text.Length < 2 Then
MsgBox("Geen juiste tijd ingevoerd!")
End If
txtTijdstip.MaxLength=5
Dim strTussenvoegsel AsString=":"
'Dit klopt duidelijk niet...: If IsNumeric(txtTijdstip.Text.Length = 2) Then
'je controleert of er 2 tekens zijn, dus waarom met die insert?
txtTijdstip.Text&=":"'zelfde resultaat...
ElseIf txtTijdstip.Text.Length < 2Then
MsgBox("Geen juiste tijd ingevoerd!")
EndIf
verder, waarom ga je txtTijdstip.text eerst in een variabele steken om dan toch nog door gans je code txttijdstip.text te gebruiken?
@krankzin:
txtTijdstip is een tekstbox, en dus een object
een object kan verschildende properties hebben, waaronder Text. Text is de property die de inhoud van de tekstbox bevat, en is dus een string!
Ja dat stond er eerst ook, maar het werkt wel bedankt!
Maar als ik nu zegmaar 00 heb ingetypt dan komt er een dubbel punt dat is goed, alleen dan sprint de cursor weer naar het begin en die moet aan het eind blijven...
[..code..]
@krankzin:
txtTijdstip is een tekstbox, en dus een object
een object kan verschildende properties hebben, waaronder Text. Text is de property die de inhoud van de tekstbox bevat, en is dus een string!
Dat weet ik. Bedankt voor de uitleg. Maar in o.a. Flex gebruik je alln de variabele en daarachter length.
Best dat je het goed bedoelde, maar als je ziet dat er al 2 mensen hebben gereageerd die er wel iets van weten en daar geen opmerking over hebben gemaakt is de kans groot dat dat niet fout is. Offcourse het kon zijn dat we dat over het hoofd hadden gezien maar dat was hier niet het geval ^_^