以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于封装函数的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98504)
--  作者：pcxjxjhkw
--  发布时间：2017/3/30 20:42:00
--  [求助]关于封装函数的问题

一函数，名为EditUser，代码：

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

 

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

 

谢谢
--  作者：有点色
--  发布时间：2017/3/30 20:59:00
--  

 写类？

 

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

 
--  作者：pcxjxjhkw
--  发布时间：2017/3/31 9:12:00
--  
以下是引用有点色在2017/3/30 20:59:00的发言：

 写类？

 

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

 

没有明白。
--  作者：有点色
--  发布时间：2017/3/31 9:41:00
--  
 没明白你问什么。
--  作者：pcxjxjhkw
--  发布时间：2017/3/31 11:57:00
--  
以下是引用有点色在2017/3/30 20:59:00的发言：

 写类？

 

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

 

这个帮助中，没有写类的示例呀。
--  作者：有点色
--  发布时间：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