Расположить StatusBar по ширение экрана - VB

Формулировка задачи:

на форме расположен элемент управления StatusBar1, в котором расположены 7 панелей. расширение у всех мониторов разное, поэтому мне нужно расположить StatusBar1 по ширение экрана. что бы на любом компе, с любым расширением моника StatusBar1 был по ширине всего экрана. как это сделать? кинте код плиз!!

Код к задаче: «Расположить StatusBar по ширение экрана - VB»

textual
Private Sub Form_Load()
' Ширина экрана в Twips или пикселях( убрать коммент)
 Wid = Screen.Width '/ Screen.TwipsPerPixelX
 PanelWid = Wid / 7
 Form1.Width = Wid
 For i = 1 To 7
 StatusBar1.Panels.Item(i).Width = PanelWid
 Next
 End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.400 из 5


СДЕЛАЙТЕ РЕПОСТ