求助：工具栏隐藏

Question

我的一个运行程序在运行的过程中，下面的工具栏隐藏掉了，显示不出来。请教在那里进行设置，使工具栏再显示出来。谢了！

Answer 1

你说的是不是任务栏?
Private Sub CmdHide_Click()
    ma = FindWindow("Shell_TrayWnd", nil) '获取任务栏句柄
    ShowWindow ma, SW_HIDE '隐藏任务栏
End SubPrivate Sub CmdShow_Click()
    ma = FindWindow("Shell_TrayWnd", nil)
    ShowWindow ma, SW_RESTORE  '显示任务栏
End SubFindWindow  ShowWindow都是api,需要声明.

Answer 2

hehe....楼上的两种办法都好用，下次楼主再做这种东西之前先打好退路

Answer 3

可能是我第一次没说明白：任务栏在别的环境中都有显示。但我做的一个工程运行后（在vb的环境下），任务栏就没了。所以并不象第一位说的那样。可能象第二位说的，可能是别人用到了，我查一下看有没有用到api。