ToolStripDropDownButton1 выпадающий список

@_Alf_ · Регистрация: 18.12.2018

Студворк — интернет-сервис помощи студентам

Всем привет!
Есть проект. (во вложении)
По кнопке ToolStripDropDownButton1 выпадает меню, с текстовыми полями, лейблами, и кнопками.
Вопрос в следующем. Как добавить мне кнопку на следующую строчку в правый нижний угол?
И когда фокус уходит с ToolStripDropDownButton1, то менюшка сворачивается (так же при смене раскладки клавиатуры сворачивается). Как сделать так что бы менюшка не сворачивалась?
Подскажите, как решить данный вопросы
P/s код добавления кнопки закоментирован. Не знаю только как расположить кнопку в правый нижний угол.
Заранее спасибо.

@andrsh · 14.10.2019, 10:09

_Alf_, Добавление кнопки в правый нижний угол:

VB.NET
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
60
61
62
63
64
65
66
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dropdown1 = New ToolStripDropDown()
        'Define style
        dropdown1.LayoutStyle = ToolStripLayoutStyle.Table
        Dim settings1 = (TryCast(dropdown1.LayoutSettings, TableLayoutSettings))
        settings1.ColumnCount = 7
 
        Dim item10 = New ToolStripLabel
        item10.Text = "ФИО:"
        dropdown1.Items.Add(item10)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item14 = New ToolStripLabel
        item14.Text = "Адрес:"
        dropdown1.Items.Add(item14)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item11 = New ToolStripLabel
        item11.Text = "Телефон:"
        dropdown1.Items.Add(item11)
        dropdown1.Items.Add("-")
 
        Dim item21 = New ToolStripLabel
        item21.Text = "Кнопка"
        dropdown1.Items.Add(item21)
 
        Dim item12 = New ToolStripTextBox
        item12.BorderStyle = BorderStyle.FixedSingle
        item12.AutoSize = False
        item12.Width = 150
        dropdown1.Items.Add(item12)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item17 = New ToolStripTextBox
        item17.BorderStyle = BorderStyle.FixedSingle
        item17.AutoSize = False
        item17.Width = 250
        dropdown1.Items.Add(item17)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item13 As New MaskedTextBox
        Dim host1 As New ToolStripControlHost(item13) With {.AutoSize = False, .Width = 96}
        item13.Mask = "+7(999) 000-00-00"
        dropdown1.Items.Add(host1)
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item18 As New Button
 
        Dim host2 As New ToolStripControlHost(item18) With {.AutoSize = False, .Width = 75}
 
        item18.Text = "Submit"
        dropdown1.Items.Add(host2)
 
        ToolStripDropDownButton1.DropDown = dropdown1
    End Sub
End Class

Добавил колличество колонн ColumnCount = 7 и еще один лейбл

@_Alf_ · 14.10.2019, 10:15 **[ТС]**

andrsh,

Сообщение от _Alf_

Как добавить мне кнопку на следующую строчку в правый нижний угол?

это я знаю, как на этой же строке кнопу добавить...но мне надо кнопку строкой ниже в правый нижний угол

@andrsh · 14.10.2019, 11:39

_Alf_, Можно в нижней строке два пустых лейбла добавить а потом и кнопку:

VB.NET
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
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dropdown1 = New ToolStripDropDown()
        'Define style
        dropdown1.LayoutStyle = ToolStripLayoutStyle.Table
        Dim settings1 = (TryCast(dropdown1.LayoutSettings, TableLayoutSettings))
        settings1.ColumnCount = 5
 
        Dim item10 = New ToolStripLabel
        item10.Text = "ФИО:"
        dropdown1.Items.Add(item10)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item14 = New ToolStripLabel
        item14.Text = "Адрес:"
        dropdown1.Items.Add(item14)
        'Separator
        dropdown1.Items.Add("-")
        Dim item11 = New ToolStripLabel
        item11.Text = "Телефон:"
        dropdown1.Items.Add(item11)
        Dim item12 = New ToolStripTextBox
        item12.BorderStyle = BorderStyle.FixedSingle
        item12.AutoSize = False
        item12.Width = 150
        dropdown1.Items.Add(item12)
        'Separator
        dropdown1.Items.Add("-")
        Dim item17 = New ToolStripTextBox
        item17.BorderStyle = BorderStyle.FixedSingle
        item17.AutoSize = False
        item17.Width = 250
        dropdown1.Items.Add(item17)
 
        'Separator
        dropdown1.Items.Add("-")
 
        Dim item13 As New MaskedTextBox
        Dim host1 As New ToolStripControlHost(item13) With {.AutoSize = False, .Width = 96}
        item13.Mask = "+7(999) 000-00-00"
        dropdown1.Items.Add(host1)
        Dim item18 = New ToolStripLabel
        item18.Text = "Телефон:"
        dropdown1.Items.Add(item18)
        dropdown1.Items.Add("-")
        Dim item19 = New ToolStripLabel
        item19.Text = "Телефон:"
        dropdown1.Items.Add(item19)
        dropdown1.Items.Add("-")
        Dim item20 As New Button
        Dim host2 As New ToolStripControlHost(item20) With {.AutoSize = False, .Width = 75}
        item20.Text = "Submit"
        dropdown1.Items.Add(host2)
 
        ToolStripDropDownButton1.DropDown = dropdown1
    End Sub
End Class

У меня лейблы с текстом для наглядности

Добавлено через 29 минут
чтобы сепараторы перед кнопкой не видно было можно сделать так:
Вместо

VB.NET
1
dropdown1.Items.Add("-")

между пустыми лейблами и копкой записать:

VB.NET
1
dropdown1.Items.Add("")

@andrsh · 14.10.2019, 11:46

Вот снимок без сепараторов

@_Alf_ · 14.10.2019, 12:04 **[ТС]**

andrsh, думал об этом,но все равно она не в край правый нижний становиться...

@andrsh · 14.10.2019, 12:37

_Alf_, Тебе нужно чтобы выравнивание было по правому краю MaskedTextBox?

@_Alf_ · 14.10.2019, 12:48 **[ТС]**

andrsh, ну да, типо того

@andrsh · 14.10.2019, 12:55

_Alf_, Могу посоветовать сделать пользовательский контрол из этих элементов, разместить элементы управления как ты хочешь и попробовать замостить в ToolStrip. Пользовательские контролы делал а вот размещать в ToolStrip не пробовал. Может получится?

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	14.10.2019, 11:46
	Вот снимок без сепараторов Миниатюры 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	14.10.2019, 12:04 [ТС]
	andrsh, думал об этом,но все равно она не в край правый нижний становиться... 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	14.10.2019, 12:37
	_Alf_, Тебе нужно чтобы выравнивание было по правому краю MaskedTextBox? 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	14.10.2019, 12:48 [ТС]
	andrsh, ну да, типо того 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 836
	14.10.2019, 12:55
	_Alf_, Могу посоветовать сделать пользовательский контрол из этих элементов, разместить элементы управления как ты хочешь и попробовать замостить в ToolStrip. Пользовательские контролы делал а вот размещать в ToolStrip не пробовал. Может получится? 0