VB中实现人物角色权限的源码

方法1：程序中根据角色不同判断能否执行功能。

方法2：在数据库中建一个角色功能权限表，在程序中根据角色和功能查询表中权限结果确定是否允许调用相应功能。

方法1比较简单。但是如果功能或者角色太多就会很麻烦。

方法2比较灵活，可以随时修改角色的功能适合功能角色较多的情况，就是要增加一个表。

使用webbrowser控件来加载网页，然后再 Private Sub WebBrowser1_DocumentCompleted下通过使用WebBrowser1DocumentBodyInnerHtml 来获取网页的源代码，或使用 WebBrowser1DocumentBodyInnerText来获取网页中的文本。之后可以通过字符串控制指令或者正则表达式来精确获取到你所需的数据。

如果这个程序带工程文件，你找到vbp文件双击打开，然后在各窗体双击查看代码。

如果没有工程文件，你可以自己建一个工程文件，然后把这些窗体文件加入。

如果不想建你可以直接双击某个窗体文件，也能打开，打开后双击窗体，可以看到代码。

SetWindowPos mehWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 将窗口设为总在最前

SetWindowPos mehWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 取消窗口设为总在最前

这个有一个缺陷，在窗体最小化后就不执行了，所以保持窗口总在最前的话最好放在窗体重画事件里

Private Sub Form_Paint()

SetWindowPos MehWnd, -1, 0, 0, 0, 0, 2 Or 1 ' 将窗口设为总在最前

End Sub

mciSendString是向多媒体设备发送MCI（媒体控制接口）指令的API函数。它的四个参数的意义分别是：第一个是MCI命令字符串，就是用来控制多媒体设备的命令，这个是内部约定的，没什么好解释的，就像“立正，稍息”，听到的人就会自然而然地进行统一动作一样；第二个是存放反馈信息的缓冲区，比如发指令让设备报告目前的音量大小，那么这个音量数据就会放在这个缓冲区中；第三个是上述缓冲区的长度；第四个是回调窗口的句柄，一般用不着。

API函数属于VB的高级玩法，没有一定的基础，就不要继续往下深究了，稍微了解一下就行。