Остановка закрытия формы.
Нужна помощь!
При нажатии на кнопку открываеся форма в которой числа идут с com порта.
При повторном нажатии на кнопку форма не должна закрываться, она должна исчезать(типа мы закрыли).
Нужен алгоритм на vb 2010
При нажатии на кнопку форма открыватеся если она спрятана, а если спрятана при нажатии на кнопку опять её видим.
HELP
При нажатии на кнопку открываеся форма в которой числа идут с com порта.
При повторном нажатии на кнопку форма не должна закрываться, она должна исчезать(типа мы закрыли).
Нужен алгоритм на vb 2010
При нажатии на кнопку форма открыватеся если она спрятана, а если спрятана при нажатии на кнопку опять её видим.
HELP
Код:
if form.visible then
form.hide()
else
form.show()
end if
form.hide()
else
form.show()
end if
Отлично Спасибо! Это у нас при нажатии кнопки. А как теперь запретить закрывать форму через [x] или при нажатии на [x] тоже происходило скрытие формы??
Код:
'отменяем событие закрития
Private Sub FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = True
End Sub
'убираем кнопку закрыть
Private Const CP_NOCLOSE_BUTTON As Integer = &H200
Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim myCp As CreateParams = MyBase.CreateParams
myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON
Return myCp
End Get
End Property
Private Sub FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = True
End Sub
'убираем кнопку закрыть
Private Const CP_NOCLOSE_BUTTON As Integer = &H200
Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim myCp As CreateParams = MyBase.CreateParams
myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON
Return myCp
End Get
End Property