Jatinder Gupta Ответов: 1

Расположение Панели

Дорогие Все,

Я пытаюсь разместить панель, но она не приходит в нужное положение.

На самом деле мое требование состоит в том, чтобы поместить Panel_B внутри Panel_A точно в центральное положение.

Dim xx, yy As Integer
xx = (PANEL_A.Width - Panel_B.Width)
yy = (PANEL_A.Height - Panel_B.Height)
PanelB.Location = New System.Drawing.Point(CInt(xx / 2), CInt(yy / 2))

Пожалуйста, проводите.

Sandeep Mewara

Предложение, текст говорят и форматирование кода сделано.

1 Ответов

Рейтинг:
8

DaveAuld 

Dim panelA As New Panel
Dim panelB As New Panel
panelA.BackColor = Color.White
panelB.BackColor = Color.Black
panelA.Width = 100
panelA.Height = 100
panelB.Width = 50
panelB.Height = 50
Me.Controls.Add(panelA)
panelA.Controls.Add(panelB)

panelB.Top = CInt((panelA.Width - panelB.Width) / 2)
panelB.Left = CInt((panelA.Width - panelB.Width) / 2)


Этот код создаст 2 панели, одна из которых будет центрирована внутри другой.

Запустите его из кнопки формы или события загрузки, Me.Controls представляйте форму.
Для меня это прекрасно работает.

Jatinder Gupta

Спасибо, сэр, все решено. Если у вас нет возражений, пожалуйста, поделитесь своим идентификатором электронной почты

С уважением,

Джатиндер Гупта.

DaveAuld

Если вам нужно написать мне по электронной почте (не знаю почему), просто найдите любое сообщение, которое я разместил на форумах, и нажмите кнопку "электронная почта"!