2009年11月25日水曜日

.NET ダイアログ画面をコントロールの位置に合わせて表示する

ダイアログ画面をテキストボックスの右上に合わせて表示します。
Using frm As New Form
 frm.StartPosition = FormStartPosition.Manual
 Dim p As Point = Me.TextBox1.PointToScreen(New Point(0, 0))
 p.X += Me.TextBox1.Width
 frm.Location = p
 frm.ShowDialog()
End Using

0 件のコメント: