Проперть ShowInTaskbar

[Calvin]

Здраствуйте, уважаемые! У меня проблема - вот решил при сворачивании формы убрать иконку с панели задач, но ......ShowInTaskbar ругается и говорит мол "Function or interface marked as restricted, or the function uses an Automation type not supported in Visual basic"

Код: Выделить всё

Private Sub form_Resize()
If Form1.WindowState = vbMinimized Then
Form1.ShowInTaskbar = False
End If
End Sub


в чем трабла?
ЗЫ Ну я типа иконкой в трэе потом ее разверну

[skiperski]

Дык, readonly эта пропертя!

[MEMBER]

Me.hide

[Calvin]

Т.е. я так понял, что когда форму сворачивают в трэй, то ее скрывают?



Спасибо все понятно..
ЗЫ просто интересовал стандартный способ, как белые люди это делают

[MEMBER]

Да.

[Calvin]

у меня тут еще параллельно вопрос (изъезженая тема но все-таки у меня глюк)
я добавил иконку в трэй, свернул форму, скрыл иконку на панели задач, а потом по двойному щелчку развернуть. Оно то разворачивается. но со второй попытки. Что за фигня понять не могу - с этой пошаговой проверкой в событии маузмув геморрой какой-то - пока до нужного события (иконки в трэе) дойдешь, состаришься, да и еще главное сильно мышей не дергать, а то будешь постоянно висеть в событии со значением 512 (это для тех кто в курсе)))))))
Вот кусок кода

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN

Case WM_LBUTTONUP

Case WM_LBUTTONDBLCLK
Form1.Show
Form1.WindowState = vbNormal

Case WM_RBUTTONDOWN
.......... и т.д...


[MEMBER]

Form1.Show
Form1.SetFocus

[Calvin]

2MEMBER А у тебя что код работает?
У меня ругается именно на фокусе, говорит - Invalid procedure call or argument
Извините, это трабла в моей голове ...... все работает - просто логика подвела

Код: Выделить всё

Private Sub form_Resize()
  If Form1.WindowState = vbMinimized Then
     Form1.Hide
  End If
End Sub


там дальше я пишу

Код: Выделить всё

Form1.Show
Form1.WindowState = vbNormal


а надо так

Код: Выделить всё

Form1.WindowState = vbNormal
Form1.Show


[MEMBER]

frmMain.Visible = True
frmMain.SetFocus
А так?
-
Да работает.

[Calvin]

Вот еще маленьки нюанс. У меня дома 98-я винда, а на работе 2000.
Когда я двойным щелчком разворачиваю форму из трэя (а там все как положено устанавливаю фокус на форму при разворачивании), то на 98-й форма вроде бы активна, но иконка на панели задач не активна, да и еще она мигает поначалу (как это побороть?) Еще к тому же несмотря на то, что моя форма активна, она может быть не на первом плане, а за каким-нибудь окном - вот это вторая проблема.
А вот в 2000-м все вроде бы нормально