25. juni 2002 - 00:11Der er
12 kommentarer og 1 løsning
With.... & .SetFocus
Jeg vil gerne have hjælp til følgende:
Jeg har lavet (tidligere fået lidt hjælp til noget af det) denne stump kode.
Hvis der bliver indtastet en ugyldig værdi i tekstboksen, kommer der en advarsel, helt som der skal, men curseren bliver ikke i cellen. SetFocus plejer at virke, men ikke her. Er det muligvis fordi det er ved udgang af boksen??? Derudover vil jeg gerne, at indtastningsfeltet bliver "highlighted", så brugeren kan taste et nyt tidspunkt, uden at skulle slette først. Kan det lade sig gøre???
Jaae, jeg tror jeg har opgivet det. Man kan åbenbart ikke lave en setfocus på den textbox man står i, dvs valideringen skal ske efter at textbox er forladt og man skal så spinge tilbage.
Jeg har tidligere lavet noget tilsvarende, hvor jeg valgte .SetFocus i forbindelse med OK-knappen på en form. Kan formateringen, hvor brugeren ikke selv skal skrive ":", der kan drille mig. Jeg vil prøve at dele indtastningen af tidspunkt op i to felter, et med timer og et med minutter og så prøve om det kan virke. M.v.h. Susanne
Susanne > jeg mener ikke at det er formateringen der driller. Jeg har også prøvet uden, bare med tekst. Det med OK knappen lyder mere rigtigt, for så har focus jo forladt din tekstbox og så kan du sætte den tilbage til tekstboxen. Forøvrigt ganske smart, det med : :-)
Ved at udskifte .SetFocus med Cancel = True, er jeg nødt til at have fat i musen for at markere cellen igen. Jeg kan ikke bruge tabulatoren. Når jeg laver denne slags opgaver, forsøger jeg at gøre musen "overflødig" eller i hvertfald unødvendig, hvis brugere ønsker dette. Jeg er blevet lidt "antimusefixeret".
Jeg skal ingen mus bruge, når jeg gør således: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not TextBox1.Text = "dahl" Then TextBox1.Text = "" Cancel = True End If End Sub
Du kan også prøve med denne her: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not TextBox1.Text = "dahl" Then 'TextBox1.Text = "" Cancel = True With TextBox1 .SelStart = 0 .SelLength = Len(TextBox1.Text) End With End If End Sub
Tak for det Flemming Jeg forsøger lige..... M.v.h. Susanne
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
