较早前的一个项目，在启动时报出错误编译错误:“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编辑过]
加好友 
发短信
Post By：2022/6/15 22:51:00 [显示全部帖子]
