怎么使程序在任务栏的按钮失效？
多个窗体的程序中，从一个窗体中打开另一个窗体，而想使
前一个窗体在任务栏中的控制按钮失效该怎么做？
问题点数：20、回复次数：7Top
1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-04-08 19:32:59 得分 2
ShowInTaskbar属性设为False！Top
2 楼wybpipipipi（pipi）回复于 2002-04-08 19:45:39 得分 0
showintaskbar属性好象只能在程序设计时使用，运行时好象不能更改，我说的窗体在任务栏中有任务按钮，只是失效而已并且还能恢复有效状态。Top
3 楼uguess（天地间，有我在行走！）回复于 2002-04-09 00:52:34 得分 18
这个属性在运行时也是可以改变的！
Option Explicit
'--------------------------------
' This code will set "ShowInTaskBar" property
' of a VB Form at runtime. I haven't been able
' to change this property without unloading the
' form. This code could be useful when used in
' conjunction with a user-chosen preference.
' (Maybe you can think of a good use for it.)
' Comments, improvements? Please forward to:
' Joe LeVasseur
'-----------------------------------------------
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 = (-&H14)
Private Const WS_EX_TOOLWINDOW = &H80
'----------------------------
Private Sub Form_Initialize()
Call SetStyle
End Sub
Private Sub SetStyle()
Dim lWindowStyle&, lRetVal&
Debug.Print Second(Now)
' 50/50 chance
If (Second(Now) Mod 2) Then
lWindowStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
lWindowStyle = lWindowStyle And WS_EX_TOOLWINDOW
lRetVal = SetWindowLong(hwnd, GWL_EXSTYLE, lWindowStyle)
End If
End Sub
Top
4 楼luosidao（螺丝刀）回复于 2002-04-09 02:41:36 得分 0
Up1Top
5 楼wybpipipipi（pipi）回复于 2002-04-12 20:29:41 得分 0
不明白Top
6 楼uguess（天地间，有我在行走！）回复于 2002-04-13 00:02:02 得分 0
To ： wybpipipipi(pipi)
什么地方不明白？
只要把上面的代码Copy到一个新建工程中，运行一下就知道了！Top
7 楼liuzhanwen（研究一下！）回复于 2002-04-13 10:09:50 得分 0
ShowInTaskbar属性设为False！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
