Tweet
Hallo zusammen,
ich habe folgendes Problem und komme leider trotz intensiver Suche im Internet nicth dahinter.
Ich habe eine Form mit diversen DropDown und Textfeldern, die leider die gesamt sichtbare Maske des Palm ausfüllt. Die InputBox wird interaktiv enabled, wenn ein entsprechendes Feld den Focus erhält. Damit fängt das Problem auch schon an:
Jedesmal, wenn die InputBox enabled wird, wird das Fenster dynamisch verkleinert
--> über InputPanel1_EnabledChanged
Dim visiblerect As Rectangle
If InputPanel1.Enabled = False Then
' The SIP is disabled, so set the height of the tab control
' to its original height with a variable (TabOriginalHeight),
' which is determined during initialization of the form.
visiblerect = InputPanel1.VisibleDesktop
Me.Panel1.Height = panel_original_height
Else
Me.Height = 307
' The SIP is enabled, so the height of the tab control
' is set to the height of the visible desktop area.
visiblerect = InputPanel1.VisibleDesktop
Me.Panel1.Height = visiblerect.Height - 70
End If
Me.PerformAutoScale()
Das entsprechende Textfeld behält auch den Focus, jedoch springt das Panel immer nach oben !?!
Wie kann ich dafür sorgen, das das Panel sich so verschiebt, das die gerade aktivierte Textbox auch sichtbar ist?
Ein ähnliches Problem (warscheinlich die gleiche Ursache) tritt auf, wenn man die Form über me.close schließt und anschließend wieder aufruft:
Sie springt jetzt nicht im Panel nach oben (was sie aber durch das Setzen des Focus im Load machen sollte) , sondern steht da, wo man sie vorher verlassen hat.
In Erwartung einer konsrtuktiven Hilfe
Gruß Christian
ich habe folgendes Problem und komme leider trotz intensiver Suche im Internet nicth dahinter.
Ich habe eine Form mit diversen DropDown und Textfeldern, die leider die gesamt sichtbare Maske des Palm ausfüllt. Die InputBox wird interaktiv enabled, wenn ein entsprechendes Feld den Focus erhält. Damit fängt das Problem auch schon an:
Jedesmal, wenn die InputBox enabled wird, wird das Fenster dynamisch verkleinert
--> über InputPanel1_EnabledChanged
Dim visiblerect As Rectangle
If InputPanel1.Enabled = False Then
' The SIP is disabled, so set the height of the tab control
' to its original height with a variable (TabOriginalHeight),
' which is determined during initialization of the form.
visiblerect = InputPanel1.VisibleDesktop
Me.Panel1.Height = panel_original_height
Else
Me.Height = 307
' The SIP is enabled, so the height of the tab control
' is set to the height of the visible desktop area.
visiblerect = InputPanel1.VisibleDesktop
Me.Panel1.Height = visiblerect.Height - 70
End If
Me.PerformAutoScale()
Das entsprechende Textfeld behält auch den Focus, jedoch springt das Panel immer nach oben !?!
Wie kann ich dafür sorgen, das das Panel sich so verschiebt, das die gerade aktivierte Textbox auch sichtbar ist?
Ein ähnliches Problem (warscheinlich die gleiche Ursache) tritt auf, wenn man die Form über me.close schließt und anschließend wieder aufruft:
Sie springt jetzt nicht im Panel nach oben (was sie aber durch das Setzen des Focus im Load machen sollte) , sondern steht da, wo man sie vorher verlassen hat.
In Erwartung einer konsrtuktiven Hilfe
Gruß Christian