以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]_SystemIdle相关的报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178048)

--  作者:chnfo
--  发布时间:2022/6/15 22:51:00
--  [求助]_SystemIdle相关的报错
较早前的一个项目,在启动时报出错误
编译错误:“Forms”不是“Windows”的成员。
错误代码:If Windows.Forms.Control.MouseButtons <> Windows.Forms.MouseButtons.None OrElse Windows.Forms.Control.ModifierKeys <> Windows.Forms.Keys.None Then

导出代码以后,发现是在_SystemIdle里,这个从来没改过什么东西啊

另外,用了navibar做菜单导航,运行时也报错
编译错误:未定义类型“Windows.Forms.Padding”。
错误代码:.Padding = New Windows.Forms.Padding(4)
查代码,位置是在

Navi_AfterLoad

 

\'\'\'

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")

With Ctype(tpb.BaseControl, C1Command.C1TopicBar)

    If System.Environment.OSVersion.Version.Major < 6 Then

        .VisualStyle = C1Command.VisualStyle.WindowsXP

    Else

        .VisualStyle = C1Command.VisualStyle.Office2010Blue

    End If

    .Padding = New Windows.Forms.Padding(4)

End With

 

e.Form.StopRedraw()

For Each pg As WinForm.TopicPage In tpb.Pages

    pg.Collapsed = True

Next

 

If tpb.Pages.Count > 0 Then

    tpb.Pages(0).Collapsed = False

End If

e.Form.ResumeRedraw()


这个也是用的原来的代码啊

[此贴子已经被作者于2022/6/15 22:53:04编辑过]

--  作者:有点蓝
--  发布时间:2022/6/16 8:56:00
--  
Windows.Forms
改为
system.Windows.Forms