Расположить StatusBar по ширение экрана - VB
Формулировка задачи:
на форме расположен элемент управления StatusBar1, в котором расположены 7 панелей.
расширение у всех мониторов разное, поэтому мне нужно расположить StatusBar1 по ширение экрана.
что бы на любом компе, с любым расширением моника StatusBar1 был по ширине всего экрана.
как это сделать? кинте код плиз!!
Решение задачи: «Расположить StatusBar по ширение экрана»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
