tasten tab

Brug Keydown

Check for værdien 9.

Det virker ikke
og se hvad manual skriver
KeyDown and KeyUp aren't invoked for:

The ENTER key if the form has a CommandButton control with the Default property set to True.


The ESC key if the form has a CommandButton control with the Cancel property set to True.


The TAB key.

Du bliver nødt til at lave det for samtlige textbox'e på din form. Det letteste er hvis du laver textboxene til et controlarray.

Ups... du har jo ret. Jeg vender lige tilbage om lidt.

Kan du bruge "lostfocus" i stedet?

ja jeg bruger iøjeblikket lostfocus; men jeg ved ikke om brugeren taster på tab eller en knap.
Jeg har en række text-felter bruger kan indtaste i og brugeren ser så en del af disse ad gangen. Brugeren kan så scrolle eller tabbe nedad til det næste felt.
Problemet opstår så når brugeren tabber på det nederst synlig felt, vil jeg jo gerne kunne rykke felterne op så brugeren kan se det næste felt; men cursoren forsvinder ud af skærmen.
Jeg har alle mine indtastningsfelter i en picbox og scrollbar. Antallet af text-felter er dynamisk afhængig af nogle andre ting

Kan du så ikke bruge GotFocus-eventen til at styre din automatiske scrolling?

det vil jeg undersøge; men hvordan finder jeg ud af om det 'nye' felter er synligt for brugeren eller ej så jeg ved om jeg overhovedet skal scrolle eller ej ???? Top er jo ift til cotaineren og ikke ift til skærmen

if Container.Top + Control.Top + Control.Height > form.height then
  msgbox "Kontroller er usynglig"
end if

Når jeg kører det for det 'øverste' felt (som står midt på brugerens side), ser tallene således og dermed aftid er opfyldt
240+1+245745 > 11640

Når jeg skrive Control skal du altså sætte textboxens navn ind. Ellers er det en MEGET høj textbox.

Koden direkte se således ud
If picscroll.top + txt_total(Index).top + txt_total(index).Height > frm_indtastning.Height Then
      MsgBox "Kontroller er usynlig"
  End If
jeg havde læst forkert *S*
Tallene ser således ud nu
240+1+24 > 11640 for det først felt
240 + 301 + 24 > 11640 første gang den skal scroll og dermed kommer msgbox'en ikke

Hmmm... Check lige at ScaleMode er sat twips på formen.

Under properties for formen, står der 1-Twip

Kan du sende projektet til mig?

mailto:anonymanonym715@hotmail.com

Jo men dels er MEGET stort VB program og dels bruger det SQL
Jeg laver lige et testprogram og sender det til dig

Jeg har nu sendt en testversion til dig

I forhold til den testkode du har sendt mig kan det laves sådan her:

Private Sub txt_indtast_GotFocus(Index As Integer)

    Dim txt As TextBox
    Set txt = txt_indtast(Index)
   
    'Vi bestemmer om textboxen rager nedenud af framen
    If (txt.Top + txt.Height) > (Frame1.Height - Picture1.Top) Then
        'Sørg for at boksens underkant flugter med framens
        Picture1.Top = Picture1.Top - ((txt.Top + txt.Height) - (Frame1.Height - Picture1.Top))
    ElseIf Picture1.Top + txt.Top < 0 Then
        'Hvis tekstboksen er *over* det synlige område skal vi justere picture1
        Me.Caption = Picture1.Top & " " & txt.Top
        Picture1.Top = Picture1.Top - (Picture1.Top + txt.Top)
    End If

End Sub

Det ser ud som om det virker meget godt så tak for hjælpen

John