Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于封装函数的问题


  共有1203人关注过本帖树形打印复制链接

主题：[求助]关于封装函数的问题
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		[求助]关于封装函数的问题  发帖心情 Post By：2017/3/30 20:42:00 [只看该作者]

一函数，名为EditUser，代码：

'''编辑用户信息
Dim id As String = Args(0)  '''用户ID
Vars("EditUserID") = id
Forms("修改用户").Open
Vars("EditUserID") = ""

 

问题：如何封装？就像FT的OpenQQ中的消息窗口。

 

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/30 20:59:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2017/3/31 9:12:00 [只看该作者]

以下是引用有点色在2017/3/30 20:59:00的发言：

 写类？

 

http://www.foxtable.com/webhelp/scr/2481.htm

 

没有明白。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/31 9:41:00 [只看该作者]

 没明白你问什么。

 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2017/3/31 11:57:00 [只看该作者]

以下是引用有点色在2017/3/30 20:59:00的发言：

 写类？

 

http://www.foxtable.com/webhelp/scr/2481.htm

 

这个帮助中，没有写类的示例呀。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/31 12:06:00 [只看该作者]

比如代码

 

Public Class GlobalKeyDown
Inherits System.Windows.Forms.form

private shared obj As new GlobalKeyDown

private Sub New()
End Sub

Public Shared Function getInstance() As GlobalKeyDown
    Return obj
End Function

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Functions.Execute("处理快捷键", m)
MyBase.WndProc(m)
End Sub

End Class
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询