0

こんにちは、Visual Basic 2005 を使用して論文の作成に取り組んでいます。テキスト ボックスの下に表示したいのですが、描画ポイントを使用してテキスト ボックスの正確な位置を取得できます。

ここに私のコードがあります：

Dim x As Integer = Me.txtStockQUnit.Location.X + Me.Location.X + Me.grpMonitoring.Location.X
Dim y As Integer = Me.txtStockQUnit.Height + Me.txtStockQUnit.Location.Y + Me.Location.Y + Me.grpMonitoring.Location.Y
My.Forms.frmQuantityUnitDropListGrid.Location = New Point(x, y)
My.Forms.frmQuantityUnitDropListGrid.ShowDialog()
4

2 に答える 2

0

ネットで見つけたばかりで、私が望むように機能しています。

Dim ctl as Textbox 'the textbox which the form will show at its bottom
Dim ctlpos As Point = ctl.PointToScreen(New Point(0, 0)) 'Point.Empty is not function so se Point(0, 0)

Me.StartPosition = FormStartPosition.Manual 'set it to manual
Me.Location = New Point(ctlpos.X - 2, ctlpos.Y + ctl.Height - 2) 'then locate its position
Me.show
于 2012-07-29T21:18:18.703 に答える
0

フォーム上のコントロールの位置は、フォームの左上隅に相対的であるため、Me.Location を使用してテキスト ボックスを配置する必要はありません。

次の例では、Form_Load でテキスト ボックスとフォームの位置を設定します。

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    'position a textbox on the form relative to the top left corner of the form
    txtStockQUnit.Location = New Point(100, 25)

    'position the form relative the top left corner of the primary display
    Me.Location = New Point(100, 300)
End Sub

注: テキストボックスは、「空中」ではなく、フォームの表面にのみ配置できます。

于 2012-07-29T08:34:31.120 に答える