[VB6] iets in textbox "vast" zetten

[Verwijderd]

hallo
ben hier bezig met een progie in VB6 waarmee je met tijd iets kan doen
nu is het alleen heel lastig om telkens die dubbele punten te zetten dus
zoek ik een manier om die er al automatisch in te zetten en mocht je een tijd in willen vullen dat ik dan alleen maar 225035 hoef in te tikken en niet 22:50:35
iemand zei dat ik het MID moest gebruiken maar daar kom ik geen wijs uit.....
en ik krijg er voor geen mogelijkheid die ":" er in gebakken

(ik werk met text boxen en met een timer met het volgende: Text1.Text = Time$)

(hoop dat deze wel goed is )

[Super_ik]

ik dacht dat je dat met format oid moet doen en dan iets van format("##:##:##" $tijd) ofziets, staat wel in de help hoe t precies werkt

[Verwijderd]

hhmmm format zou kunnen, ff kijken

[Verwijderd]

je kan het instellen bij dataformat in de eigenschappen van de textbox

[Verwijderd]

hallo dit heb ik gevonden in de MSDN lib.

code:

Format Function Example
This example shows various uses of the Format function to format values 
using both named formats and user-defined formats. For the date separator 
(/), time separator (:), and AM/ PM literal, the actual formatted output displayed 
by your system depends on the locale settings on which the code is running. 
When times and dates are displayed in the development environment, the short
 time format and short date format of the code locale are used. When displayed 
by running code, the short time format and short date format of the system 
locale are used, which may differ from the code locale. For this example, 
English/U.S. is assumed.

MyTime and MyDate are displayed in the development environment using 
current system short time setting and short date setting.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s")   ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")   ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")   ' Returns "Wednesday,
   ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)   ' Returns "23".

' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")   ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")   ' Returns "334.90".
MyStr = Format(5, "0.00%")   ' Returns "500.00%".
MyStr = Format("HELLO", "<")   ' Returns "hello".
MyStr = Format("This is it", ">")   ' Returns "THIS IS IT".

maar nu snap ik niet hoe ik het in een textbox kan krijgen

(textbox)
-----------------
|___:____:_____|

code:

Private Sub Text2_Change() 'poort1
inschakel1 = Text2.Text
End Sub

dit is de code die erbij hoort
en inschakel1 die komt bij de timer weer terug:

code:

Private Sub Timer2_Timer()
If Time$ = inschakel1 Then aan1 = 1 'poort1
aan = aan1 + aan2 + aan3 + aan4 + aan5 + aan6 + aan7 + aan8

D7Segment1.Value = aan
end sub

als ik Format(MyTime, "h:m:s") doe dan zegt hij "compile error = expected"

hoe moet ik die hier bij mij toepassen

[ Voor 0% gewijzigd door Verwijderd op 11-08-2002 12:45 . Reden: te lange regel :) ]

[Super_ik]

je bent ergens een '=' vergeten dan
je hebt bijvoorbeeld text1.text format(blabla) gedaan, da was bij teminste meestal, dat ik m daaro vergat

[Verwijderd]

het enige wat hij bij mij nu doet is ::3 of ::9 net wat je intypet

code:

Private Sub Text2_Change() 'poort1
inschakel1 = Text2.Text
Text2.Text = Format(inschakel1, "##:##:##")
End Sub

en dan heb ik er dit instaan...........

[Apache]

ja, Change is de event die steeds nadat je iets veranderd hebt .

code:

Private Sub Text2_LostFocus()

    Text2.Text = Format(Text2.Text, "##:##:##")

End Sub

[Verwijderd]

hij doet het bedankt allemaal...

[Verwijderd]

alleen nu 1 maar
ik heb hem in een "set" button gezet:

code:

Private Sub Command25_Click() 'poort1 set
Text2.Text = Format(inschakel1, "##:##:##")
Text3.Text = Format(uitschakel1, "##:##:##")
End Sub

als ik er iets in de textboxen neer zet en dan op de set druk dan doet hij het perfect maar als ik nu nog een keer op de set druk terwijl ik niks heb veranderd
dan verandert hij de tijd in :: of ::1 of iets dergelijks

hoem moet ik het doen als ik de houdige waarde wil bewaren of het text vak leeg wil maken

[Sponge]

de eigenlijke waarde ergens anders op slaan, en die elke keer in format omzetten? Er is volgens mij hier ook een bepaalde control voor, op dit moment is me de naam echter even ontschoten

[MrBrown]

Kan je gewoon niet lekker aan de slag met het Masked Editbox Control?!? Daar kan je gewoon een mask van je invoer opgeven, bijvoorbeeld ##:##:##.

[whoami]

Ga idd eens kijken naar een Masked Edit control. Daar heb je een property waar je de mask kunt instellen.... Speel er eens mee...

[Crazy D]

Voor datums en/of tijden kun je ook de DateTimePicker control pakken (zit in de MS Windows common controls 2).

[Verwijderd]

wat is volgens julllie nu het handigst/makkelijkst om te gebruiken...?

[whoami]

Voor datums en tijden neem ik altijd een DateTimePicker.
Wat jij het handigst vind, zul je zelf moeten uitmaken.

[Verwijderd]

wat is volgens jullie het beste/makkelijkst te gebruiken??

[MrBrown]

Ik geloof dat je met die DateTimePicker wel problemen hebt met het intikken van een datum, je moet nog steeds die : intikken om van uren naar minuten en van minuten naar seconden te komen (misschien is dat te omzeilen hoor, nooit uitgezocht). Die Masked Edit Control is heel makkelijk: je vervangt je textbox gewoon door zo'n ding, set de mask, en gaan... Ga gewoon eens proberen, ze zijn allemaal nou niet bepaald moeilijk in te bouwen...

[whoami]

MrBrown schreef op 13 augustus 2002 @ 10:52:
Ik geloof dat je met die DateTimePicker wel problemen hebt met het intikken van een datum, je moet nog steeds die : intikken om van uren naar minuten en van minuten naar seconden te komen (misschien is dat te omzeilen hoor, nooit uitgezocht). Die Masked Edit Control is heel makkelijk: je vervangt je textbox gewoon door zo'n ding, set de mask, en gaan... Ga gewoon eens proberen, ze zijn allemaal nou niet bepaald moeilijk in te bouwen...

Ik dacht het niet? In Delphi is het toch zo niet, en dat zal wel dezelfde control zijn.
Voordeel van een DateTimePicker is dat je niet meer zelf hoeft te controleren op eventuele ongeldige/foutieve datums.

[MrBrown]

Mmmm, ja, ik had dat ding gisteren ff geprobeerd snel, en toen viel het me op... Misschien een property over het hoofd gezien hoor, heb er misschien een minuutje naar gekeken...

[Verwijderd]

Zet je proggie ff op internet dan.

[whoami]

Verwijderd schreef op 13 augustus 2002 @ 13:27:
Zet je proggie ff op internet dan.

Mag ik ff vragen wat je met deze post bedoeld en hoe je denkt hiermee bij te dragen aan het probleem van de topicstarter?

[Sponge]

whoami schreef op 13 augustus 2002 @ 13:28:
[...]
Mag ik ff vragen wat je met deze post bedoeld en hoe je denkt hiermee bij te dragen aan het probleem van de topicstarter?

Misschien zodat 'wij' beter kunnen beoordelen wat het best gebruikt kan worden _{(denk ik dan, lijkt me een logische redenatie}

Denk dat de vraag sowieso al opgelost is...