/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Validering af tekstfelt til tid
Fra : Kim Schwalbe


Dato : 09-12-02 15:55

Hej i gruppen

Er der en der gider at vise mig hvordan jeg kan lave en løkke
der ikke stoppe før betingelserne er opfyldt:
Der må kun kunne tastes tidsværdi fra "00:00" til "23:59"

MVH Kim S



 
 
Carsten Suurland (09-12-2002)
Kommentar
Fra : Carsten Suurland


Dato : 09-12-02 17:01

En løkke kan jo laves på mange måder...

Do
.....
If X = 1 Then Exit Do
Loop

eller

Do Until X = 1
...
Loop

eller eller eller...

/Carsten Suurland



Carsten Suurland (09-12-2002)
Kommentar
Fra : Carsten Suurland


Dato : 09-12-02 17:05

Men hvad er sammenhængen til tekstfelterne?

/Carsten Suurland



Kim Schwalbe (09-12-2002)
Kommentar
Fra : Kim Schwalbe


Dato : 09-12-02 22:06

Hej Carsten

Jeg havde forestillet mig et tekstfelt (1 stk.)
Der fungerer på den måde at brugeren kun har mulighed for at taste en
"gyldig"
værdi, i dette tilfælde en tidsværdi fra "00:00" til "23:59".
Løkken skal køre indtil en gyldig tid er indtastet

Jeg kunne have valgt at have to tekstfelter, et til minutter og et til timer
Eller lavet en scroll til at sætte tiden med, "indbyggede" værdier.
Men jeg syntes bare det ville være mere smart hvis man kunne lave en kode
på et enkelt tekstfelt.

De to første tegn må kun indeholde teksten fra "00" til "23"
her efter skal det tredje tegn en, separator være ":" og de sidste
to fra "00" til "59".

MVH Kim S

Carsten Suurland <removethiscarsten@suurland.dk> skrev i
news:at2evc$1riu$1@news.cybercity.dk
> Men hvad er sammenhængen til tekstfelterne?
>
> /Carsten Suurland
>
>



John Doe (10-12-2002)
Kommentar
Fra : John Doe


Dato : 10-12-02 13:03

hvorfor ikke benytte _Change eventen på Text-objektet ?

såsom:

Private Sub Text1_Change()


If IsDate(Text1) Then
If Len(Text1) = 5 Then
MsgBox "hurra"
End If
End If

End Sub



Carsten Suurland (10-12-2002)
Kommentar
Fra : Carsten Suurland


Dato : 10-12-02 18:04

Hej Kim

Så er John's forslag herunder en måde at gøre det på.

Dog bør du udbygge/ændre Johns forslag til følgende:

Private Sub Text1_Validate(Cancel As Boolean)
If IsDate("1-jan-2000 " & Text1.Text) Then
Cancel = False
Else
Cancel = True
End If
End Sub

/Carsten Suurland




Morten Nissen (10-12-2002)
Kommentar
Fra : Morten Nissen


Dato : 10-12-02 13:21

Hej Kim

"Kim Schwalbe" <kim_schwalbe@vip.cybercity.dk> skrev i en meddelelse
news:at2at0$1la2$1@news.cybercity.dk...
> Hej i gruppen
>
> Er der en der gider at vise mig hvordan jeg kan lave en løkke
> der ikke stoppe før betingelserne er opfyldt:
> Der må kun kunne tastes tidsværdi fra "00:00" til "23:59"
>
> MVH Kim S
>
>

Du skulle tage at sætte en masked edit control op i stedet, her har du
mulighed for at definere en maske for inputet eks. ##:## osv.
Kontrollen er meget godt dokumenteret i MSDN



Kim Schwalbe (10-12-2002)
Kommentar
Fra : Kim Schwalbe


Dato : 10-12-02 21:24

Hej Morten , Carsten og John

Mange tak for svarende, her har jeg så noget at gå i gang med!

MVH Kim S


Morten Nissen <mwn@edb.dk> skrev i news:at4m6b$187h$1@news.cybercity.dk
> Hej Kim
>
> "Kim Schwalbe" <kim_schwalbe@vip.cybercity.dk> skrev i en meddelelse
> news:at2at0$1la2$1@news.cybercity.dk...
> > Hej i gruppen
> >
> > Er der en der gider at vise mig hvordan jeg kan lave en løkke
> > der ikke stoppe før betingelserne er opfyldt:
> > Der må kun kunne tastes tidsværdi fra "00:00" til "23:59"
> >
> > MVH Kim S
> >
> >
>
> Du skulle tage at sætte en masked edit control op i stedet, her har du
> mulighed for at definere en maske for inputet eks. ##:## osv.
> Kontrollen er meget godt dokumenteret i MSDN
>
>



Tomas Christiansen (11-12-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 11-12-02 00:17

Morten Nissen skrev:
> Du skulle tage at sætte en masked edit control op i stedet, her har
du
> mulighed for at definere en maske for inputet eks. ##:## osv.
> Kontrollen er meget godt dokumenteret i MSDN

Vær opmærksom på at medmindre de (dvs. MS) har rettet fejlen, har
maskeredigeringsboksen stadig nogle fejl som gør, at det i visse
situationer er muligt at "forbigå" masken. Man kan med andre ord
_ikke_ være 100% sikkert på at inddata fra denne kontrol overholder
reglerne (som de er sat op i masken).

-------
Tomas


Kim Schwalbe (11-12-2002)
Kommentar
Fra : Kim Schwalbe


Dato : 11-12-02 12:52

Hej Thomas
Tak for oplysningen!
MVH Kim S


Tomas Christiansen <toc-nospam-01@blikroer.dk> skrev i
news:at5skb$2a3$1@news.cybercity.dk
> Morten Nissen skrev:
> > Du skulle tage at sætte en masked edit control op i stedet, her har
> du
> > mulighed for at definere en maske for inputet eks. ##:## osv.
> > Kontrollen er meget godt dokumenteret i MSDN
>
> Vær opmærksom på at medmindre de (dvs. MS) har rettet fejlen, har
> maskeredigeringsboksen stadig nogle fejl som gør, at det i visse
> situationer er muligt at "forbigå" masken. Man kan med andre ord
> _ikke_ være 100% sikkert på at inddata fra denne kontrol overholder
> reglerne (som de er sat op i masken).
>
> -------
> Tomas
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408881
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste