找回密码
 注册账号

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

初学者课程:T3自学|T6自学|U8自学软件下载课件下载工具下载资料:通资料|U8资料|NC|培训|年结积分规则 | 使用常见问题Q&A
知识库:U8 | | NC | U9 | OA | 政务U8|U9|NCC|NC65|NC65客开|NCC客开新手必读 | 任务 | 快速增金币用友QQ群[微信群]
查看: 15408|回复: 28

[方面] U872门户挂菜单问题(VB.NET)

    [复制链接]
发表于 2010-9-27 00:05:44 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册账号

×
本帖最后由 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里的示例就有,不知道是什么意思)
谢谢!
发表于 2015-6-8 19:27:43 | 显示全部楼层
学习了,正想使用VB。net
回复 点赞 拍砖

使用道具 举报

发表于 2015-12-28 15:53:51 | 显示全部楼层
先MARK一下,存金币中。。。。
回复 点赞 拍砖

使用道具 举报

发表于 2014-2-16 23:27:33 | 显示全部楼层

关注一下,学习学习。
回复 点赞 拍砖

使用道具 举报

发表于 2023-7-31 07:47:39 | 显示全部楼层
关注一下,学习中
回复 点赞 拍砖

使用道具 举报

发表于 2015-8-1 17:23:16 | 显示全部楼层
关注一下, 学习中.
回复 点赞 拍砖

使用道具 举报

发表于 2010-9-27 08:02:03 | 显示全部楼层
学习了。。。
发表于 2010-9-27 08:05:54 | 显示全部楼层
这个vb的不会
发表于 2010-9-27 10:17:20 | 显示全部楼层
不会 关注中
 楼主| 发表于 2010-9-28 09:36:50 | 显示全部楼层
版主在不在啊,显身啊
发表于 2010-9-28 12:09:01 | 显示全部楼层
代码有问题
发表于 2010-9-28 12:10:03 | 显示全部楼层
论坛里有.net(c#)的例子的
 楼主| 发表于 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是否可以用到凭证控件中?

11.jpg
发表于 2010-10-13 09:40:44 | 显示全部楼层
生成凭证有专门的凭证控件,不过是vb版的
 楼主| 发表于 2010-10-14 14:16:00 | 显示全部楼层
最终放弃C#,用vb6搞定算了
发表于 2011-3-10 16:48:50 | 显示全部楼层
学习了,谢谢!
发表于 2011-3-17 17:28:35 | 显示全部楼层
想找点资料,把这老贴整出来了,呵呵
发表于 2011-4-7 20:24:52 | 显示全部楼层
学习
发表于 2011-7-31 18:19:44 | 显示全部楼层
我也在找...  例子  在什么地方呢. .  我都搜索了很多次了
发表于 2011-8-11 16:37:38 | 显示全部楼层
关注一下,学习中
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

QQ|站长微信|Archiver|手机版|小黑屋|用友之家 ( 蜀ICP备07505338号|51072502110008 )

GMT+8, 2024-5-4 04:56 , Processed in 0.061041 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表