我用VB作触摸屏程序，希望程序运行后任务栏就隐藏起来，即使MOUSE（或手指）指到任务栏处也不出来，直到程序关闭再让它才出来， windows的自动隐藏功能是当MOUSE移到该处时它会出来，我不希望它出来。[2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要： 1）事务提交(transbegin,committrans)和直接调取存储过程相比，除了事务是可逆的(rollback)以外是否还有什么不同，如果我update一个表使用transbegin在我使用committrans之前是否是锁定的，如果其他用户要编辑这个表是否会报错？ 2）在我把一个查询装入dataset的一个表中，是否可以有方法对这个表里的数据再进行查询？例如我把"se......

·单步执行调试程序时，为什么有时会停下来，不能继续单步执行。 »显示摘要«

摘要：需要重新来一遍，但还可能遇到这种问题。 ......

怎么在我的VB程序运行期间一直隐藏任务栏，直到程序关闭

我用VB作触摸屏程序，希望程序运行后任务栏就隐藏起来，即使MOUSE指到任务栏处也不出来，直到程序关闭再让它才出来， windows的自动隐藏功能是当MOUSE移到该处时它会出来，我不希望它出来。怎么做呢？

NO.1 作者： wangdeshui

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_SHOW = 5
Public Const SW_HIDE = 0

Private hwnd5 as Long

hwnd5 = FindWindow("Shell_traywnd","")
Call ShowWindow(hwnd5, SW_HIDE) 隐藏工作列

Call ShowWindow(hwnd5, SW_SHOW) 显示工作列

这不是一个好的方式，如果您将任务栏隐藏了，但没有将之显示，那我们只有重新开机才能使之重新出现，当使用者发现叫不出工作列时，他可能会很生气。

NO.2 作者： weiym

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0

Private hwnd5 As Long

Private Sub Command1_Click()
Dim sName As String
sName = "Shell_TrayWnd"
hwnd5 = FindWindow(sName, "")
Call ShowWindow(hwnd5, SW_HIDE) 隐藏工作列

End Sub

Private Sub Command2_Click()
Dim sName As String
sName = "Shell_TrayWnd"
hwnd5 = FindWindow(sName, "")

Call ShowWindow(hwnd5, SW_SHOW) 显示工作列
End Sub

·问一个简单的存储过程 »显示摘要«

摘要： create procedure p1 @record int as declare @sql varchar(2000) set @sql=select top +convert(varchar(5),@record)+ * from table1 exec @sql go 在查询分析器里执行　exec p1 10 提示：未能找到存储过程“select top 10 * from tab......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：