VB编程问题API

来源：百度知道 编辑：UC知道 时间：2024/05/08 21:25:10
Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long参数 类型及说明
dw Long，下述常数的一个或多个
BSF_FLUSHDISK 每次处理完一条消息后，都对磁盘进行刷新（将未存盘的数据存下来
BSF_FORCEIFHUNG 如目标处于挂起状态，则在设定的超时后到期返回
BSF_IGNORECURRENTTASK 发送任务不接收消息
BSF_LPARAMBUFFER lParam指向一个内存缓冲区
BSF_NOHANG 跳过被挂起的所有进程
BSF_POSTMESSAGE 投递消息。不与BSF_LPARAMBUFFER和BSF_QUERY兼容
BSF_QUERY 将消息顺序发给进程，只有前一个返回TRUE时，才进入下一个进程
pdw Long，下述常数的一个或多个
BSF_ALLCOMPONENTS 消息进入能够接收消息的每一个系统组件
BSF_APPLICATIONS 消息到达应用程序
BSF_INSTALLABLEDRIVERS 消息到达可安装的驱动程序
BSF_NETDRIVERS 消息到达网络驱动程序
BSF_VXDS 消息到达系统设备驱动程序

上边的 BSF_*******是什么????如何使用
你也没有说VB编程问题API
悬赏分：0 - 离问题结束还有 14 天 3 小时
Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long,

小弟的理解，请指教!!!
BSF是API “BroadcastSystemMessage”的参数常量前缀，其中BS是"BroadcastSystemMessage"是英文缩写,F是为了功能常量扩充而加上的。在此没有实际意义。

其实用法可以这样来使用：

Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
Dim re As Long
re = BroadcastSystemMessage(BSF_FLUSHDISK, BSF_ALLCOMPONENTS, WM_GETTEXT, 0, 0)

If (re = -1) Then MsgBox "应用函数出错"

End Sub