hdf007 发表于 2010-9-27 00:05:44

U872门户挂菜单问题（VB.NET）

本帖最后由 hdf007 于 2010-9-28 09:40 编辑

下面代码是根据vb6的示例转过来的VB.NET里的代码，菜单用SQL已经挂进去了。进用友，双击自定义的菜单，在下面一闪【正在加载......】就没反映了，进不了VB.NET的调试模式。
请问这是为什么呢？
代码如下：
Public Class MyLoginable
    Implements UFPortalProxyInterface.ILoginable
    Public g_oLogin As New U8Login.clsLogin
    Public g_business As Object
    Public g_bLogined As Boolean
    Public Property Business() As Object
      Get
            Business = g_business
      End Get
      Set(ByVal value As Object)
            g_business = value
      End Set
    End Property
    Public Function CallFunction(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String) As Object Implements UFPortalProxyInterface._ILoginable.CallFunction
      Call ShowModelless(cMenuId, cMenuName, cAuthId, cCmdLine)
    End Function
    Public Function Login() As Boolean Implements UFPortalProxyInterface._ILoginable.Login
      If g_bLogined Then
            Login = True
            Exit Function
      Else
            If (Not IsNothing(g_business)) And g_bLogined = False Then
                g_oLogin = g_business.GetVBclsLogin()
                Login = True
                g_bLogined = True
            Else
                Login = Not IsNothing(g_business)
            End If
      End If
    End Function
    Public Function LogOff() As Boolean Implements UFPortalProxyInterface._ILoginable.LogOff
      If g_bLogined Then
            LogOff = True
            g_bLogined = False
      Else
            LogOff = True
      End If
    End Function
    Public Sub ShowModelless(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String)
      Dim frm As New frmGlVouch
      g_business.ShowForm(frm, "ST", "ASDAS")
    End Sub
End Class

另：上述有一个g_business的对象，这个对象是怎么来的？（vb6里的示例就有，不知道是什么意思)
谢谢！

yyr88303 发表于 2015-6-8 19:27:43

学习了，正想使用VB。net

work0287 发表于 2015-12-28 15:53:51

先MARK一下，存金币中。。。。

yjihdn 发表于 2014-2-16 23:27:33


关注一下，学习学习。

sjzzgq 发表于 2023-7-31 07:47:39

关注一下，学习中

sdwqs 发表于 2015-8-1 17:23:16

关注一下, 学习中.

shizhi0501 发表于 2010-9-27 08:02:03

学习了。。。

jccode 发表于 2010-9-27 08:05:54

这个vb的不会

1989hewei 发表于 2010-9-27 10:17:20

不会 关注中

hdf007 发表于 2010-9-28 09:36:50

版主在不在啊，显身啊

naojin 发表于 2010-9-28 12:09:01

代码有问题

naojin 发表于 2010-9-28 12:10:03

论坛里有.net（c#）的例子的

hdf007 发表于 2010-9-28 13:57:10

本帖最后由 hdf007 于 2010-9-28 14:05 编辑

再请教。
用论坛里你与的.net挂菜单的例子调试通过，接下去我想做生成凭证。在.net挂菜单的例子里用的登录对象应该是.net版本的(新的登录对象)，生成凭证需要的登录对象可以用吗？如果不能使用必须再引用U8login.dll文件(老版登录对象)，这样子就存在两个登录对象了，是不是有问题呢？System.Windows.Forms.Control CreateControl(U8Login.clsLogin login, string MenuID, string Paramters);这里的U8Login.clsLogin是否可以用到凭证控件中？

naojin 发表于 2010-10-13 09:40:44

生成凭证有专门的凭证控件，不过是vb版的

hdf007 发表于 2010-10-14 14:16:00

最终放弃C#，用vb6搞定算了

s_guang 发表于 2011-3-10 16:48:50

学习了，谢谢！

micoywh 发表于 2011-3-17 17:28:35

想找点资料,把这老贴整出来了,呵呵

fanzhh 发表于 2011-4-7 20:24:52

学习

zh3305 发表于 2011-7-31 18:19:44

我也在找...例子在什么地方呢. .我都搜索了很多次了

wuquxiao 发表于 2011-8-11 16:37:38

关注一下，学习中
页: [1] 2
查看完整版本: U872门户挂菜单问题（VB.NET）