ShowInTaskBar

[timsoft]

Использую одну форму в двух программах.
Как сделать, чтобы в одной программе ShowInTaskBar было True, а в другой False?

[XairOn]

Ну например можно по App.EXEName определять какая прога открыла форму и в зависимости от этого True или False

[kif]

установи в True или False

или я что-то не понял?

[timsoft]

Дело в том, что ShowInTaskBar изменить можно только в design-time
А мне надо в run-time менять это дело. Хотелось бы в Sub Main или Form_Load

[kif]

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

сделай ее копию.

[timsoft]

Одна форма это конечно хорошо, но лично я практикую хранить данный экземпляр вместе с проектом.

Это и есть один проект, просто для разных уровней доступа используются разные модули. Например, склад пополняет кладовщик. Ему нужен доступ только к складу. Администратор контролирует больше, у него больше форм открывается и т.д.

[Selektor]

Это так, для тех кто ищет. На буржуинском сайте натолкнулся.

Change the ShowInTaskbar property at runtime
The ShowInTaskbar property lets you decide whether a form is visible in Windows taskbar or not. However, this property is read-only at runtime, so it seems that you can't change this setting while the program is running. Luckly, you just need to change the window's style, using a pair of API functions, and you can stuff all the code in just one line:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000

Private Sub Form_Load()
' hide this form from the taskbar
SetWindowLong Me.hWnd, GWL_EXSTYLE, (GetWindowLong(hWnd, _
GWL_EXSTYLE) And Not WS_EX_APPWINDOW)
End Sub
The next example demonstate that you can use the same approach to force a form to display itself in the taskbar:

Private Sub Form_Load()
' show this form on the taskbar
SetWindowLong Me.hWnd, GWL_EXSTYLE, (GetWindowLong(hWnd, _
GWL_EXSTYLE) Or WS_EX_APPWINDOW)
End Sub
Notice that changing the form's style in this way works only when the form hasn't become visible yet, so you should put this code in the Form_Load event procedure.