分页： 2/2 第一页 上页 1 2 最后页 [ 显示模式： 摘要 | 列表 ]

vb窗体最上层源码

[不指定 2007年1月25日星期四 14:34 | by 九天狼 | 出处：本站原创 ]
↓看看这下面↓
↑诱惑你自己↑
下面的是模块代码

'窗体位于最上层代码开始
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = &H2 Or &H1
'窗体位于最上层代码结束


下面是使用代码,可以放在任意地方,注意的两个retvalue=同时只能使用一个

Dim retvalue As Long
retvalue = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)'取消最上层
retvalue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)'设置为最上层
Tags:
VB代码 | 评论(0) | 引用(0) | 阅读(6686)

快速搜索硬盘中的某个文件

[不指定 2007年1月23日星期二 02:36 | by 九天狼 | 出处：本站原创 ]
先建位个如下图的工程,文本和其中两上Label按图上显示的名字,命令按钮和时间控件为默认名
1169490947_0

复制以下代码:到窗口代码中:
VB代码 | 评论(0) | 引用(0) | 阅读(5337)

读写INI的模块

[不指定 2007年1月23日星期二 02:32 | by 九天狼 | 出处：本站原创 ]
一个VB读写INI文件和模块代码
Tags: , ,
VB代码 | 评论(0) | 引用(0) | 阅读(3232)
分页： 2/2 第一页 上页 1 2 最后页 [ 显示模式： 摘要 | 列表 ]