VB程序员博客

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

vb程序中动态创建工程没引用的vb自定义控件,但是创建起来的控件却没有UserControl中的自定义属性.
创建语句:
licenses.add "prjUC_Text.UC_Text"
me.controls.add "prjUC_Text.UC_Text","ucTest",frame控件名自定义控件主体代码是否已在工程里<
有点点麻烦，建议最好现在窗体上先添加这种控件的一个实例，接着再用load语句，加载更多的这种控件，这样就可以避开控件许可证问题哦<
up…

<

Public Declare Function Pos_Port_Open Lib "POS_SDK.dll" Alias "POS_Port_OpenA" (ByVal lpName As String, ByVal iport As Integer, ByVal bFile As Boolean, ByVal szFliePath As String) As Long

Private Sub Command1_Click()

  If Pos_Port_Open("192.168.0.114", 1003, False, "") = 0 Then
  MsgBox "打开端口失败"
  Else
  PrintJb = Pos_Port_Open("192.168.0.114", 1003, False, "")

  Exit Sub
  End If
End Sub

我就是句柄这块不怎么太知道：我对句柄不怎么太了解。那位大哥帮我看看怎么返回句柄

如成功表示操作句柄，以后的打印函数将使用此句柄来进行

下边是动态库函数说明：
LONG POS_Port_OpenA(LPCSTR lpName,int iPort,bool bFile,LPCSTR szFilePath) 
功能 
  实现端口的打开 
 
参数 
 lpName: 端口名称，例如： 
  串口：”COM1:9600,N,8,1” 
  并口：”LPT1” 
  USB：”SP-USB001” 
  网口：”192.168.1.193” 
 iPort : 端口类型，参考端口类型 
 bFile: 是否将打印内容存放到本地文件 
 szFilePath: 当 bFile 为真值时，为本地文件存放路径。否则该参数将被忽略 
 
返回值 
  非 0 值表示打开端口成功，如成功表示操作句柄，以后的打印函数将使用此句柄来进行
后续的端口操作 
相关指令
  无

DLL代码
int __stdcall myadd(int a, int b)
{
return a + b;
}

已经导出了.静态调用成功
但是我想用LoadLibrary来调用..不知道怎么写这个代码.(网上看过一个SetWindowText的例子..运行了VB直接弹BUG退出了)

有人能指点下么?

附上我调用不成功的代码..
  Dim hModule As Long, ProcAddress As Long
  hModule = LoadLibrary("c:Demodll.dll")
  If hModule = 0 Then MsgBox "载入DLL失败": Exit Sub
  ProcAddress = GetProcAddress(hModule, "myadd")
  If ProcAddress = 0 Then MsgBox "得函数入口失败": Exit Sub
  CallWindowProc ProcAddress, Me.hWnd, ByVal 0&, ByVal 0&, ByVal 0&
  FreeLibrary hModule不要静态调用..静态的我已经测试通过了.呵呵..谢谢二楼的回复

以上就是静态调用，只不过是显式调用而已。

LoadLibrary 方式，微软不建议使用。

以上就是动态调用，只不过是显式调用而已。
LoadLibrary 方式，微软不建议使用。

VB 不存在静态调用动态库。
不建议使用那就是可以使用.- -可是怎么使用呢..结贴..
解决办法
http://topic.csdn.net/u/20080928/15/287c677b-69e6-432e-9f77-ee58b3fa619f.html

DLL代码
int __stdcall myadd(int a, int b)
{
return a + b;
}

已经导出了.静态调用成功
但是我想用LoadLibrary来调用..不知道怎么写这个代码.(网上看过一个SetWindowText的例子..运行了VB直接弹BUG退出了)

有人能指点下么?

附上我调用不成功的代码..
  Dim hModule As Long, ProcAddress As Long
  hModule = LoadLibrary("c:Demodll.dll")
  If hModule = 0 Then MsgBox "载入DLL失败": Exit Sub
  ProcAddress = GetProcAddress(hModule, "myadd")
  If ProcAddress = 0 Then MsgBox "得函数入口失败": Exit Sub
  CallWindowProc ProcAddress, Me.hWnd, ByVal 0&, ByVal 0&, ByVal 0&
  FreeLibrary hModule不要静态调用..静态的我已经测试通过了.呵呵..谢谢二楼的回复

以上就是静态调用，只不过是显式调用而已。

LoadLibrary 方式，微软不建议使用。

以上就是动态调用，只不过是显式调用而已。
LoadLibrary 方式，微软不建议使用。

VB 不存在静态调用动态库。
不建议使用那就是可以使用.- -可是怎么使用呢..结贴..
解决办法
http://topic.csdn.net/u/20080928/15/287c677b-69e6-432e-9f77-ee58b3fa619f.html

各位，我做了个小浏览器。现在让它的右上角加上一个图片，怎样实现当正在打开网站时，它就动起来，网站打开完毕就静止不动？
就像IE右上角的那个图片一样，各位高手请赐教，小菜谢过了~~放上一个Flash控件,加载一个小动画.flash
gif
或者放一个imagelist，存入单帧的图像，定时轮流显示。具体怎么搞，还是不懂啊~~能否给个简单的具体实例~~谢了！^_^|-/

如题想用timer来显示动画？哈哈这个问题 别说20分 2000RMB也没人能领取.倒是有个变通的方法 shell一个exe将.gif转为.avi 再去读.avi有几祯研究一下GIF文件的格式就知道了！

嗯。现在都讲快餐。<
<
俺有现成的用来显示GIF动画的C++代码，可惜有点长。<
先谢过 sdfkfkd，我下代码回去看看先