Positionierung UserControl relativ zum Formular oder den Bildschirm

Gibt es eine Möglichkeit zum abrufen und festlegen der .Location einer UserControl, das ist positioniert auf einer Container (z.B. ein Panel) relativ zu den "meisten Eltern" Form?

Ich weiß, dass es die Möglichkeit der Berechnung der offset des Panel selbst, und indem es der .Location des UserControl.

Aber in meinem Fall die Anzahl der übergeordneten Ebenen ist unbekannt, und kann sich von Fall zu Fall.
Also erst einmal die UserControl gesetzt werden könnten auf eine Panel direkt am Form. Aber es gibt auch die Möglichkeit, dass die UserControl befindet sich auf einem 2. Panel die auf der 1. Panel die auf der Form.

InformationsquelleAutor mookey | 2014-09-19
  1. 1

    Versuchen:

    Dim pnt As Point

pnt = UserControl.PointToScreen(New Point(0, 0))
pnt = Me.PointToClient(pnt)

    Dieser berechnet die Position relativ zu Ihrem Form. Ändern Mir jedem Steuerelement, wenn Sie wie

    Nun, wenn Sie wollen set der Lage z.B. (100, 100), im Verhältnis zu Ihrer Form

    pnt = Me.PointToScreen(New Point(100, 100))
pnt = UserControl.Parent.PointToClient(pnt)
UserControl.Location = pnt

    Denken Sie daran, dass, wenn die neue Position außerhalb der übergeordnete Bereich, das Steuerelement nicht sichtbar sein.

    • Wissen Sie, welche Lösung ist die bessere in Bezug auf die Leistung, die Ihnen oder Capellan ist?
    • Wenn Sie rufen beide ein paar mal keinen Unterschied noticible. Aber wenn Sie nennen Sie viele Male pro Sekunde vielleicht mir, weil ich bin mit nativen Funktionen. Sie haben, um es zu testen, obwohl, um sicher zu sein.
    InformationsquelleAutor γηράσκω δ' αεί πολλά διδασκόμε
  2. 2

    Ich diese Funktion verwenden, um ein Kontext-Menü in der Nähe ein Steuerelement wie eine textbox oder ein button. Sie können x-und y-zu null gibt die Position eines Steuerelements selbst.

    '--- Return the screen location of a control with an offset

Private Function Offset(ByRef controlObj As Control, ByVal x As Integer, ByVal y As Integer) As Point

  Dim pt As Point
  Dim parentObj As Control = controlObj.Parent

  Do While parentObj IsNot controlObj.FindForm
    x += parentObj.Location.X
    y += parentObj.Location.Y
    parentObj = parentObj.Parent
  Loop

  pt = PointToScreen(controlObj.Location)
  pt.Offset(x, y)
  Return pt

End Function
    InformationsquelleAutor oldvbguy
  3. 1

    Was ist, wenn Sie nehmen Sie Ihre Idee von der Berechnung der offset von der Platte und berechnen Sie den offset, die rekursiv wieder auf die Form? also ich habe eine Textbox1 in eine Panel2 innerhalb einer Panel1. Panel1 liegt bei .Links 266, Panel2 ist .Links 77 in Panel1.

    Private Function GetLeftOffset(ByVal UserControl As Control) As Int32
    Dim intLeftOffset As Int32 = 0
    If Not TypeOf UserControl.Parent Is Form Then
        intLeftOffset = UserControl.Parent.Left
        intLeftOffset += GetLeftOffset(UserControl.Parent)
    End If
    Return intLeftOffset
End Function

    Nun, wenn ich GetLeftOffset(Mich.TextBox1), es gibt einen Offset von 343 (266 + 77).

    InformationsquelleAutor Capellan
Schreibe einen Kommentar