Работоспособность Cancel Button зависит от TabControl

@Ivan215 · Регистрация: 03.07.2014

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

Сделал форму с TabControl-ом.

Сделал Cancel Button.

И совершенно случайно обнаружил, что при нажатии Escape я получаю искомое ТОЛЬКО если нахожусь на первой вкладке TabControl-а (всего их три). Кто-нибудь сталкивался? Что за ерунда?

Даже не вызывается Метод Escape_Button.Click, если нахожусь на второй или третьей вкладке.

В остальных многостраничных формах все в порядке, все по одинаковой схеме сделано, куда жучок мог заползти?

@Winney · 13.02.2016, 22:35

А примерчик можно? Сделал у себя тест. Все работает)

@Ivan215 · 13.02.2016, 23:14 **[ТС]**

Ну если все целиком, то:

VB.NET
1
2
3
4
    Private Sub Escape_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Escape_Button.Click
        Call Escape_IL_KS(True)
 
    End Sub

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub Escape_IL_KS(Optional ByRef Sh_Mes As Boolean = False)
        If Sh_Mes Then
            MsgBox("Escape_IL_KS In", MsgBoxStyle.Information, "Сообщение")
        End If    
 
        If Imp_LPU_KS_exist Then
            Imp_LPU_KS.Dispose()
 
            Imp_LPU_KS_exist = False
        End If    
  
        Call Mn_Menu(True)
        
    End Sub

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class IL_KS
    Inherits System.Windows.Forms.Form
 
    'Форма переопределяет dispose для очистки списка компонентов.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Является обязательной для конструктора форм Windows Forms
    Private components As System.ComponentModel.IContainer
 
    'Примечание: следующая процедура является обязательной для конструктора форм Windows Forms
    'Для ее изменения используйте конструктор форм Windows Form.  
    'Не изменяйте ее в редакторе исходного кода.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(IL_KS))
        Me.Pf = New System.Windows.Forms.TabControl()
        Me.P1 = New System.Windows.Forms.TabPage()
        Me.Ck_DelOld = New System.Windows.Forms.CheckBox()
        Me.Escape_Button = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.DGV_Pak = New System.Windows.Forms.DataGridView()
        Me.DGV_LPU = New System.Windows.Forms.DataGridView()
        Me.CMS_LPU = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.Reload_LPU_TSMI = New System.Windows.Forms.ToolStripMenuItem()
        Me.Sep1_TSMI = New System.Windows.Forms.ToolStripSeparator()
        Me.Imp_LPU_TSMI = New System.Windows.Forms.ToolStripMenuItem()
        Me.Imp_All_TSMI = New System.Windows.Forms.ToolStripMenuItem()
        Me.P2 = New System.Windows.Forms.TabPage()
        Me.P3 = New System.Windows.Forms.TabPage()
        Me.Pf.SuspendLayout()
        Me.P1.SuspendLayout()
        CType(Me.DGV_Pak, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DGV_LPU, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.CMS_LPU.SuspendLayout()
        Me.SuspendLayout()
        '
        'Pf
        '
        Me.Pf.Controls.Add(Me.P1)
        Me.Pf.Controls.Add(Me.P2)
        Me.Pf.Controls.Add(Me.P3)
        Me.Pf.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Pf.Location = New System.Drawing.Point(0, 0)
        Me.Pf.Name = "Pf"
        Me.Pf.SelectedIndex = 0
        Me.Pf.Size = New System.Drawing.Size(1208, 574)
        Me.Pf.TabIndex = 2
        '
        'P1
        '
        Me.P1.Controls.Add(Me.Ck_DelOld)
        Me.P1.Controls.Add(Me.Escape_Button)
        Me.P1.Controls.Add(Me.Label1)
        Me.P1.Controls.Add(Me.DGV_Pak)
        Me.P1.Controls.Add(Me.DGV_LPU)
        Me.P1.Location = New System.Drawing.Point(4, 22)
        Me.P1.Name = "P1"
        Me.P1.Padding = New System.Windows.Forms.Padding(3)
        Me.P1.Size = New System.Drawing.Size(1200, 548)
        Me.P1.TabIndex = 0
        Me.P1.Text = "Импорт"
        Me.P1.UseVisualStyleBackColor = True
        '
        'Ck_DelOld
        '
        Me.Ck_DelOld.AutoSize = True
        Me.Ck_DelOld.Checked = True
        Me.Ck_DelOld.CheckState = System.Windows.Forms.CheckState.Checked
        Me.Ck_DelOld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Ck_DelOld.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.Ck_DelOld.Location = New System.Drawing.Point(326, 1)
        Me.Ck_DelOld.Name = "Ck_DelOld"
        Me.Ck_DelOld.Size = New System.Drawing.Size(281, 17)
        Me.Ck_DelOld.TabIndex = 78
        Me.Ck_DelOld.Text = "Удаление старой информации при импорте новой"
        Me.Ck_DelOld.UseVisualStyleBackColor = True
        '
        'Escape_Button
        '
        Me.Escape_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Escape_Button.Location = New System.Drawing.Point(2, -37)
        Me.Escape_Button.Name = "Escape_Button"
        Me.Escape_Button.Size = New System.Drawing.Size(4, 4)
        Me.Escape_Button.TabIndex = 73
        Me.Escape_Button.Text = "Escape Button"
        Me.Escape_Button.UseVisualStyleBackColor = True
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.Color.Transparent
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.Label1.Location = New System.Drawing.Point(1017, 1)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(179, 12)
        Me.Label1.TabIndex = 72
        Me.Label1.Text = "Пакеты (Zip) и реестры ЛПУ"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'DGV_Pak
        '
        Me.DGV_Pak.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DGV_Pak.Location = New System.Drawing.Point(1017, 18)
        Me.DGV_Pak.Name = "DGV_Pak"
        Me.DGV_Pak.Size = New System.Drawing.Size(179, 527)
        Me.DGV_Pak.TabIndex = 1
        '
        'DGV_LPU
        '
        Me.DGV_LPU.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DGV_LPU.ContextMenuStrip = Me.CMS_LPU
        Me.DGV_LPU.Location = New System.Drawing.Point(2, 18)
        Me.DGV_LPU.Name = "DGV_LPU"
        Me.DGV_LPU.Size = New System.Drawing.Size(1010, 527)
        Me.DGV_LPU.TabIndex = 0
        '
        'CMS_LPU
        '
        Me.CMS_LPU.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Reload_LPU_TSMI, Me.Sep1_TSMI, Me.Imp_LPU_TSMI, Me.Imp_All_TSMI})
        Me.CMS_LPU.Name = "CMS_LPU"
        Me.CMS_LPU.Size = New System.Drawing.Size(320, 98)
        '
        'Reload_LPU_TSMI
        '
        Me.Reload_LPU_TSMI.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Reload_LPU_TSMI.ForeColor = System.Drawing.Color.Navy
        Me.Reload_LPU_TSMI.Name = "Reload_LPU_TSMI"
        Me.Reload_LPU_TSMI.Size = New System.Drawing.Size(319, 22)
        Me.Reload_LPU_TSMI.Text = "Перезагрузить список ЛПУ из БД FireBird"
        '
        'Sep1_TSMI
        '
        Me.Sep1_TSMI.Name = "Sep1_TSMI"
        Me.Sep1_TSMI.Size = New System.Drawing.Size(316, 6)
        '
        'Imp_LPU_TSMI
        '
        Me.Imp_LPU_TSMI.Name = "Imp_LPU_TSMI"
        Me.Imp_LPU_TSMI.Size = New System.Drawing.Size(319, 22)
        Me.Imp_LPU_TSMI.Text = "Импорт пакета ЛПУ"
        '
        'Imp_All_TSMI
        '
        Me.Imp_All_TSMI.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Imp_All_TSMI.ForeColor = System.Drawing.Color.Purple
        Me.Imp_All_TSMI.Name = "Imp_All_TSMI"
        Me.Imp_All_TSMI.Size = New System.Drawing.Size(319, 22)
        Me.Imp_All_TSMI.Text = "Импортировать все"
        '
        'P2
        '
        Me.P2.Location = New System.Drawing.Point(4, 22)
        Me.P2.Name = "P2"
        Me.P2.Padding = New System.Windows.Forms.Padding(3)
        Me.P2.Size = New System.Drawing.Size(1200, 548)
        Me.P2.TabIndex = 1
        Me.P2.Text = "Фатальные ошибки"
        Me.P2.UseVisualStyleBackColor = True
        '
        'P3
        '
        Me.P3.Location = New System.Drawing.Point(4, 22)
        Me.P3.Name = "P3"
        Me.P3.Padding = New System.Windows.Forms.Padding(3)
        Me.P3.Size = New System.Drawing.Size(1200, 548)
        Me.P3.TabIndex = 2
        Me.P3.Text = "Состав реестра"
        Me.P3.UseVisualStyleBackColor = True
        '
        'IL_KS
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.CancelButton = Me.Escape_Button
        Me.ClientSize = New System.Drawing.Size(1208, 574)
        Me.Controls.Add(Me.Pf)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "IL_KS"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Импорт данных ЛПУ - Крым"
        Me.Pf.ResumeLayout(False)
        Me.P1.ResumeLayout(False)
        Me.P1.PerformLayout()
        CType(Me.DGV_Pak, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DGV_LPU, System.ComponentModel.ISupportInitialize).EndInit()
        Me.CMS_LPU.ResumeLayout(False)
        Me.ResumeLayout(False)
 
    End Sub
    Friend WithEvents Pf As System.Windows.Forms.TabControl
    Friend WithEvents P1 As System.Windows.Forms.TabPage
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents DGV_Pak As System.Windows.Forms.DataGridView
    Friend WithEvents DGV_LPU As System.Windows.Forms.DataGridView
    Friend WithEvents P2 As System.Windows.Forms.TabPage
    Friend WithEvents P3 As System.Windows.Forms.TabPage
    Friend WithEvents Escape_Button As System.Windows.Forms.Button
    Friend WithEvents CMS_LPU As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents Reload_LPU_TSMI As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents Ck_DelOld As System.Windows.Forms.CheckBox
    Friend WithEvents Imp_LPU_TSMI As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents Imp_All_TSMI As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents Sep1_TSMI As System.Windows.Forms.ToolStripSeparator
End Class

Добавлено через 2 минуты

А примерчик можно? Сделал у себя тест. Все работает

Да и у меня все остальные формы работают, наваждение какое-то...

@Winney · 13.02.2016, 23:37

у вас батон на первой вкладке, а не на форме

Добавлено через 1 минуту
Код дизайнера

VB.NET
1
        Me.P1.Controls.Add(Me.Escape_Button)

Добавлено через 1 минуту
По сему, результат очевиден)

Перетащите ее в форму
Что то вроде

VB.NET
1
        Me.Controls.Add(Me.Escape_Button)

И должно работать

Добавлено через 3 минуты
И, извините конечно, но мне кажется, как говориться, месье знает толк в извращениях)))))

VB.NET
1
2
Me.Escape_Button.Location = New System.Drawing.Point(2, -37)
Me.Escape_Button.Size = New System.Drawing.Size(4, 4)

Добавлено через 1 минуту
Почему просто не перехватить нажатие клавиши ESC?

@Ivan215 · 14.02.2016, 00:04 **[ТС]**

Почему просто не перехватить нажатие клавиши ESC

Нет месье и не думал извращаться, просто намучился с этой дурацкой системой DotNet и выбрал самый простой вариант. А кнопку спрятал, чтобы не мешалась и чтобы случайно на нее не нажать.

И потом, как выяснилось - ПЕРЕХВАТИТЬ нажатие не так-то просто, если у Вас есть ПРОСТОЕ решение, буду весьма рад познакомиться.

@Winney · 14.02.2016, 00:07

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

Нет месье и не думал извращаться, просто намучился с этой дурацкой системой DotNet

Временами вас понимаю)))

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

кнопку спрятал, чтобы не мешалась и чтобы случайно на нее не нажать.

Создаем где угодно и Visible=false.

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

ПЕРЕХВАТИТЬ нажатие не так-то просто, если у Вас есть ПРОСТОЕ решение, буду весьма рад познакомиться.

Щас посмотрю)

@Ivan215 · 14.02.2016, 00:11 **[ТС]**

Огромное спасибо, Winney, я бы искал этого червячка целую вечность...

@Winney · 14.02.2016, 00:18

1. Перетащить кнопку непосредственно на форму (убрать P1 в вашем случае)
2. Попробовать воспользоваться перехватом событий KeyPress или KeyDown

Добавлено через 58 секунд

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

Огромное спасибо, Winney, я бы искал этого червячка целую вечность...

Я бы тоже, если б в код дизайнера не полез смотреть)

@Ivan215 · 14.02.2016, 00:20 **[ТС]**

Вообще, к слову сказать - интересно, а как в визуальном дизайнере можно было определить, что кнопка принадлежит не форме, а вкладке? По сгенерированному коду дизайнера понятно - но должно же быть УДОБНО...

И еще интересно - ну и что, что кнопка лежала на первой вкладке, а не в самой форме - свойство CancelButton относится к форме и какая разница, где находится сама кнопка - по любому - внутри контейнера - внутри формы.

@Winney · 14.02.2016, 00:24

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

форме и какая разница, где находится сама кнопка - по любому - внутри контейнера - внутри формы.

ФОКУС. всмысле не магия, а Focus)

Добавлено через 2 минуты

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

как в визуальном дизайнере можно было определить, что кнопка принадлежит не форме, а вкладке

Мне такой способ не знаком. Единственный выход - создавать контролы внутри правильного контейнера. Ну, или лезть в дизайнер.

@Ivan215 · 14.02.2016, 00:29 **[ТС]**

Я бы тоже, если б в код дизайнера не полез смотреть

Вообще клевый дизайнер у студии - столько прелестей. К примеру - переношу элемент управления из одной формы в другую - сам элемент переносится, а методы нет.

Вытаскиваю элемент управления из панели наружу - та же песня - методы очищаются - так удобно работать - просто жуть.

Или я что-то неправильно переношу?

Добавлено через 3 минуты

Единственный выход - создавать контролы внутри правильного контейнера

Вот на старом добром Фоксе - там список элементов управления был с отступами - и легко можно было понять ЧТО внутри ЧЕГО лежит. Наблюдаем деградацию M$.

@Winney · 14.02.2016, 00:32

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

Или я что-то неправильно переношу?

Насколько я помню, если переносишь мышкой - то негативный эффект минимальный. А если делаешь Вырезать-Вставить -- вот тогда слетают все подписки на события. Но код остается в любом случае.

@Ivan215 · 14.02.2016, 00:39 **[ТС]**

если переносишь мышкой - то негативный эффект минимальный

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

@Winney · 14.02.2016, 00:48

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

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

Вот тут то как раз все нормально. Когда вы вырезаете объект - тут же вносятся изменения код дизайнера и, поскольку элемента нет, подписки слетают. А когда вставляете - даже на ту же форму, не говоря уж о другой, откуда студия должна знать какой метод с каким объектом связывать???

Хороший выход в такой ситуации - создать свой контрол и таскать его вместе со всеми методами)

Добавлено через 2 минуты

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

формы на разных вкладках - и обе не лезут в экран

М... там кнопочка такая есть.... разделить экран. Может помочь)

Добавлено через 2 минуты

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

М... там кнопочка такая есть.... разделить экран. Может помочь)

Пирдон. Не может. Активна только для кода.
Покупайте второй моник)))

@Ivan215 · 14.02.2016, 00:53 **[ТС]**

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

откуда студия должна знать какой метод с каким объектом связывать

Как откуда - она же после вставки контрола в целевую форму дает ему имя - вот с этим именем и связывать надо методы.

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

Когда вы вырезаете объект - тут же вносятся изменения код дизайнера

Конечно вносятся - но я то вырезаю ОБЪЕКТ, а методы, как известно это ЧАСТЬ, ПРИНАДЛЕЖАЩАЯ объекту - и они должны копироваться (вырезаться) ВМЕСТЕ с объектом. Вот это - для меня - нормально. Хотя, давно я уже понял - сколько людей на свете - столько и разных логик.

Добавлено через 1 минуту

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

Покупайте второй моник

Да у меня тут теснота - один еле на стол помещается. А! Я понял, у них там по десять мониторов - и им (M$) пофиг...

@Winney · 14.02.2016, 01:01

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

Конечно вносятся - но я то вырезаю ОБЪЕКТ, а методы, как известно это ЧАСТЬ, ПРИНАДЛЕЖАЩАЯ объекту - и они должны копироваться (вырезаться) ВМЕСТЕ с объектом. Вот это - для меня - нормально.

В принципе это нормально. Но здесь видимо руководствовались тем, что в одной форме, например, методы могут быть связаны с некими локальными переменными, а в другой их может и не быть! Ну не таскать же весь комплект переменных за кнопкой!)))

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

у них там по десять мониторов

Ну насчет 10 не знаю - но лично для себя работу с одним моником уже не представляю)))

@Ivan215 · 14.02.2016, 01:30 **[ТС]**

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

но лично для себя работу с одним моником уже не представляю

Не знал, не знал, что так техника шагнула...

@Winney · 14.02.2016, 01:36

ага

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398

	Работоспособность Cancel Button зависит от TabControl 13.02.2016, 21:17. Показов 1473. Ответов 17 Метки нет (Все метки) Сделал форму с TabControl-ом. Сделал Cancel Button. И совершенно случайно обнаружил, что при нажатии Escape я получаю искомое ТОЛЬКО если нахожусь на первой вкладке TabControl-а (всего их три). Кто-нибудь сталкивался? Что за ерунда? Даже не вызывается Метод Escape_Button.Click, если нахожусь на второй или третьей вкладке. В остальных многостраничных формах все в порядке, все по одинаковой схеме сделано, куда жучок мог заползти? 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	13.02.2016, 22:35
	А примерчик можно? Сделал у себя тест. Все работает) 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	14.02.2016, 00:11 [ТС]
	Огромное спасибо, Winney, я бы искал этого червячка целую вечность... 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	14.02.2016, 00:20 [ТС]
	Вообще, к слову сказать - интересно, а как в визуальном дизайнере можно было определить, что кнопка принадлежит не форме, а вкладке? По сгенерированному коду дизайнера понятно - но должно же быть УДОБНО... И еще интересно - ну и что, что кнопка лежала на первой вкладке, а не в самой форме - свойство CancelButton относится к форме и какая разница, где находится сама кнопка - по любому - внутри контейнера - внутри формы. 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	14.02.2016, 01:36
	ага 0

Работоспособность Cancel Button зависит от TabControl

Решение