144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
1

Динамическое изменение размеров элементов управления вместе с формой

08.08.2013, 14:34. Показов 4633. Ответов 19
Метки нет (Все метки)

Подскажите как привязать элементы управления к форме, чтобы при растягивании (изменении размера) формы элементы управления не стояли на месте. Надеюсь вы поняли
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.08.2013, 14:34
Ответы с готовыми решениями:

Динамическое изменение размеров элементов управления
На форме по вертикали горизонтально размещены DataGridView, а под ним ListView. Как сделать между...

Масштабирование элементов управления вместе с формой
Возможно ли растягивая границы формы автоматически пропорционально этому растягиванию изменять...

Изменение размеров элементов управления с изменением размеров формы
подскажите, как сделать так чтобы размер элементов управления изменялся пропорционально размерам...

Как сделать чтобы размеры элементов управления изменялись вместе с формой?
На форме текстбоксы, кнопки и листбокс. Как сделать, чтобы при увеличении формы, они тоже...

19
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.08.2013, 14:53 2
примитив
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim w As Single, h As Single
 
Private Sub Form_Load()
h = Height: w = Width
End Sub
 
Private Sub Form_Resize()
On Error GoTo err
If Height > 2000 And Width > 3000 Then
   Call rsz(w, h)
   h = Height: w = Width
Else
   Height = 2000: Width = 3000
End If
Exit Sub
err: MsgBox err.Description
err.Clear
End Sub
 
Sub rsz(w, h)
Dim w1 As Single, h1 As Single
w1 = Width / w: h1 = Height / h
 
Dim Cont As Control
 
On Error Resume Next
    For Each Cont In Controls
      With Cont
          .Left = .Left * w1:
          .Top = .Top * h1:
         '.Width = .Width * w1:
         '.Height = .Height * h1
''.Move .Left * w1, .Top * h1, .Width * w1, .Height * h1
      End With
    Next
End Sub
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 14:58 3
Посмотри вот этот код:
Вложения
Тип файла: zip t006-a.zip (5.8 Кб, 34 просмотров)
1
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 15:09  [ТС] 4
Цитата Сообщение от Catstail Посмотреть сообщение
Посмотри вот этот код:
Почти то, что нужно, но размер должен меняться когда расширяют нижний правый край формы
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.08.2013, 15:19 5
Цитата Сообщение от Cricket93 Посмотреть сообщение
но размер должен меняться когда расширяют нижний правый край формы
Цитата Сообщение от gaw Посмотреть сообщение
On Error Resume Next
For Each Cont In Controls
With Cont
.Left = .Left * w1:
.Top = .Top * h1:
.Width = .Width * w1:
.Height = .Height * h1
'или
''.Move .Left * w1, .Top * h1, .Width * w1, .Height * h1
End With
Next
/ некоторые ЭУ имеют , например, .Height- только чтение/
1
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 15:29  [ТС] 6
Цитата Сообщение от gaw Посмотреть сообщение
некоторые ЭУ имеют , например, .Height- только чтение
Мне нужно на этой форме сделать так
Вложения
Тип файла: rar Desktop.rar (4.4 Кб, 22 просмотров)
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 15:33 7
Тогда вот:
Вложения
Тип файла: zip t006-b.zip (5.1 Кб, 36 просмотров)
1
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 15:41  [ТС] 8
Catstail, На этой строке выдает ошибку
Visual Basic
1
Ts(nC) = cnt.Top
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 15:48 9
Цитата Сообщение от Cricket93 Посмотреть сообщение
выдает ошибку
- какую?
0
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 15:51  [ТС] 10
Цитата Сообщение от Catstail Посмотреть сообщение
- какую?
Вот:
Миниатюры
Динамическое изменение размеров элементов управления вместе с формой  
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 15:55 11
Ну, так чего же требовать?... Если элемент управления не позволяет даже прочитать свое свойство? Кстати, а что это за контрол?
0
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 16:00  [ТС] 12
Цитата Сообщение от Catstail Посмотреть сообщение
Кстати, а что это за контрол?
По моему это Form1...
0
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 16:08  [ТС] 13
Catstail, Вот форма
Вложения
Тип файла: rar Desktop.rar (4.4 Кб, 14 просмотров)
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 16:12 14
В этом проекте присутствует только одна форма, а ссылки есть еще на три. Как проверить работу?
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.08.2013, 16:13 15
для 5-6 ЭУ можно не заморачиваться
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Resize()
'form4.BorderStyle=5' --- выставить
'циферки можно уточнить 
Command3.Left = Me.Width - Command3.Width - 180
Command2.Left = Command3.Left - Command2.Width - 60
Command1.Left = Command2.Left - Command1.Width - 60
Text2.Left = Command1.Left - Text2.Width - 60
Text1.Width = Text2.Left - 120
WB.Width = Me.Width - 120
WB.Height = Me.Height - (Text1.Top + Text1.Height) - 180 - 360
End Sub
0
Модератор
6781 / 2799 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
08.08.2013, 16:19 16
Вообще без кода, всё что надо это положить на форму компонент ActtiveX - PVResizer.
Магия!
Вложения
Тип файла: zip resizer.zip (65.5 Кб, 54 просмотров)
2
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 16:28  [ТС] 17
Добавлено через 1 минуту
Цитата Сообщение от Catstail Посмотреть сообщение
В этом проекте присутствует только одна форма, а ссылки есть еще на три. Как проверить работу?
Остальные не нужны. Этот код я применяю только к этой форме.
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
31544 / 17463 / 3663
Регистрация: 12.02.2012
Сообщений: 29,406
Записей в блоге: 5
08.08.2013, 16:38 18
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от Pro_grammer Посмотреть сообщение
всё что надо это положить на форму компонент ActtiveX - PVResizer.
- функциональность там сопоставима с моей, но код закрыт...

Добавлено через 7 минут
Устранить ошибку можно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Form_Load()
Dim cnt As Control
 
        zapros = Text1.Text  '<<< Пиши код аккуратно, с отступами!
 
        FH = Me.Height
        FW = Me.Width
        
        FSH = Me.ScaleHeight
        FSW = Me.ScaleWidth
        
        n% = Me.Controls.Count
        
        ReDim cntList(1 To n%) As Control
        ReDim Ts(1 To n%) As Double
        ReDim Ls(1 To n%) As Double
        ReDim Hs(1 To n%) As Double
        ReDim Ws(1 To n%) As Double
        
        nC = 0
        
        On Error Resume Next '!!!
        
        For Each cnt In Me.Controls
        
            nC = nC + 1
        
            Set cntList(nC) = cnt
            Ts(nC) = cnt.Top
            Ls(nC) = cnt.Left
            Hs(nC) = cnt.Height
            Ws(nC) = cnt.Width
            
        Next
        
        On Error GoTo 0 '!!!
        
End Sub
Private Sub Form_Resize()
 
        SW# = Me.ScaleWidth
        SH# = Me.ScaleHeight
 
        Zw# = FSW / SW#
        Zh# = FSH / SH#
 
        On Error Resume Next '!!!
 
        For i% = 1 To nC
            cntList(i%).Width = Ws(i%) / Zw#
            cntList(i%).Left = Ls(i%) / Zw#
            cntList(i%).Height = Hs(i%) / Zh#
            cntList(i%).Top = Ts(i%) / Zh#
            
        Next i%
 
        On Error GoTo 0 '!!!
 
End Sub
Добавлено через 1 минуту
Установил у формы стиль Sizable - все прекрасно работает...
4
144 / 45 / 1
Регистрация: 06.11.2012
Сообщений: 283
08.08.2013, 16:48  [ТС] 19
Цитата Сообщение от Catstail Посмотреть сообщение
все прекрасно работает
Работает. Огромное спасибо!

Не по теме:

Буду писать с отступами

0
0 / 0 / 0
Регистрация: 31.10.2019
Сообщений: 6
09.12.2019, 13:02 20
Catstail. Привет!
Как быть с сохранением размеров формы и позиции?
Visual Basic
1
2
3
4
5
6
7
8
With frm
    .Left = val(LoadLogSettingNew(.Name & "_left$", .Left))
    .Top = val(LoadLogSettingNew(.Name & "_Top", .Top))
    
    .Width = val(LoadLogSettingNew(.Name & "_Width", .Width))
    .Height = val(LoadLogSettingNew(.Name & "_Height", .Height))
 
End With
У меня после очередной загрузки обрезается правый край?
Пришлось умножать на какие-то дополнительные козфф
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim sw#, SH#, ZW#, ZH#
Dim i As Integer, PerHeight As Single, Perwidth As Single
sw# = Me.ScaleWidth
        SH# = Me.ScaleHeight
 
        ZW# = (FSW / sw#) * 1.1
        ZH# = (FSH / SH#) * 1.2
On Error Resume Next
        For i% = 1 To nC
            cntList(i%).Width = ws(i%) / ZW#
            cntList(i%).Left = Ls(i%) / ZW#
            cntList(i%).Height = Hs(i%) / ZH#
            cntList(i%).Top = ts(i%) / ZH#
 
        Next i%
On Error GoTo 0
Добавлено через 22 минуты
Получилось вот так более не менее нормально
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim SW As Single, SH#, ZW#, ZH#
Dim koefW As Single, koefH As Single
Dim i As Integer
SW = Me.ScaleWidth
        SH# = Me.ScaleHeight
        koefW = 0.06 + (Me.Width / SW)
        koefH = Me.Height / SH
        ZW# = (FSW / SW) * koefW
        ZH# = (FSH / SH#) * koefH
On Error Resume Next
        For i = 1 To nC
            cntList(i).Width = ws(i) / ZW#
            cntList(i).Left = Ls(i) / ZW#
            cntList(i).Height = Hs(i) / ZH#
            cntList(i).Top = ts(i) / ZH#
        Next i
On Error GoTo 0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2019, 13:02
Помогаю со студенческими работами здесь

Изменение размера элементов вместе с формой (Anchor, Dock)
Привет, я хотел бы чтобы размер элементов на форме пропорционально менялся вместе с формой. Но......

Изменение размеров элементов вместе с изменением размера экрана
Доброго времени суток. Я новичок в WPF, пытаюсь разобраться с резиновой версткой. Требуется...

Изменение размеров элементов управления в рантайме
Возможно ли изменять размеры элементов управления на форме C# после запуска приложения? Например...

Изменение размера контрола вместе с формой
Знаю, что где-то было, но не нашёл. Есть на форме WebBrowser. Так вот хочу изменять его размер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru