2024年3月31日发(作者：)

VB常用代码

. .

移动无标题栏的窗体

dim m(borderstyle=none)

ouseX as integer

dim mouseY as integer

dim moveX as integer

dim moveY as integer

dim down as boolean

form_mousedown: 'mousedown事件

down=true

mouseX=x

mouseY=y

form_mouseup: 'mouseup事件

down=false

form_mousemove

if down=true then

moveX=-mouseX+X

moveY=-mouseY+Y

moveX,moveY

end if

***************************************

****闪烁控件

比方要闪烁一个label〔标签〕

添加一个时钟控件 间隔请根据实际需

. v

要设置 enabled属性设为true

代码为：e=not e

***************************************

****

制止使用 Alt+F4 关闭窗口

Private Declare Function DeleteMenu Lib

"user32" (ByVal hMenu As Long, ByVal n

Position As Long, ByVal wFlags As Long)

As Long

Private Declare Function GetMenuItemCo

unt Lib "user32" (ByVal hMenu As Long)

As Long

Private Const MF_BYPOSITION = &H4

00&

Private Sub Form_Load()

Dim hwndMenu As Long

Dim c As Long

hwndMenu = GetSystemMenu(,

0)

c = GetMenuItemCount(hwndMenu)

DeleteMenu hwndMenu, c - 1, MF_BYPO

SITION

c = GetMenuItemCount(hwndMenu)

.

. .

DeleteMenu hwndMenu, c - 1, MF_BYPO

SITION

End Sub

启动控制面板大全

'翻开控制面板

Call Shell(" ,Control

_RunDLL", 9)

'辅助选项 属性-键盘

Call Shell(" ,Control

_RunDLL ,,1", 9)

'辅助选项 属性-声音

Call Shell(" ,Control

_RunDLL ,,2", 9)

'辅助选项 属性-显示

Call Shell(" ,Control

_RunDLL ,,3", 9)

'辅助选项 属性-鼠标

Call Shell(" ,Control

_RunDLL ,,4", 9)

'辅助选项 属性-常规

Call Shell(" ,Control

_RunDLL ,,5", 9)

. v

'添加/删除程序 属性-安装/卸载

Call Shell(" ,Control

_RunDLL ,,1", 9)

'添加/删除程序 属性-Windows安装程

序

Call Shell(" ,Control

_RunDLL ,,2", 9)

'添加/删除程序 属性-启动盘

Call Shell(" ,Control

_RunDLL ,,3", 9)

'显示 属性-背景

Call Shell(" ,Control

_RunDLL ,,0", 9)

'显示 属性-屏幕保护程序

Call Shell(" ,Control

_RunDLL ,,1", 9)

'显示 属性-外观

Call Shell(" ,Control

_RunDLL ,,2", 9)

'显示 属性-设置

Call Shell(" ,Control

_RunDLL ,,3", 9)

'Internet 属性-常规

.