这个是什么情况？模块都无法调用，无论是全局的过程还是变量只要在模块都调用不了

qxy1547722058 2017-04-19 11:06:32 
Private Sub TimerInter_Tick(sender As System.Object, e As System.EventArgs) Handles TimerInter.Tick

        ModuleMain.Main()

'未处理 System.TypeInitializationException

  'HResult=-2146233036

  'Message=“象棋.ModuleMain”的类型初始值设定项引发异常。

 ' Source=象棋

 ' TypeName=象棋.ModuleMain

'  StackTrace:

   '    在 象棋.ModuleMain.Main()

   '    在 象棋.SplashScreen.TimerInter_Tick(Object sender, EventArgs e) 位置 C:\Users\LENOVO\Documents\Visual Studio 201'0\Projects\象棋\象棋\SplashScreen.vb:行号 27

     '  在 System.Windows.Forms.Timer.OnTick(EventArgs e)

      ' 在 System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)

       '在 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

      ' 在 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)

      ' 在 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoCompon'entManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)

     '  在 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

      ' 在 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

       '在 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

       '在 象棋.My.MyApplication.Main(String[] Args) 位置 17d14f5c-a337-4978-8281-53493378c1071.vb:行号 81

       '在 System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)

       '在 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)

       '在 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()

       '在 System.Threading.ThreadHelper.ThreadStart_Context(Object state)

      '' 在 System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)

       '在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)

       '在 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)

       '在 System.Threading.ThreadHelper.ThreadStart()

  'InnerException: System.ArgumentException

       'HResult=-2147024809

       'Message=“0”的值对于“emSize”无效。“emSize”应该大于 0 且小于或等于 System.Single.MaxValue。

'参数名: emSize

      ' ParamName=emSize

      ' Source=System.Drawing

     '  StackTrace:

       '     在 System.Drawing.Font.Initialize(FontFamily family, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharSe't, Boolean gdiVerticalFont)

          '  在 System.Drawing.Font.Initialize(String familyName, Single emSize, FontStyle style, GraphicsUnit unit, Byte gdiCharS'et, Boolean gdiVerticalFont)

           ' 在 System.Drawing.Font..ctor(String familyName, Single emSize)

           ' 在 象棋.ModuleMain..cctor() 位置 C:\Users\LENOVO\Documents\Visual Studio 2010\Projects\象棋\象棋\ModuleMain.vb:行号 7

     '  InnerException: 



        Me.Close()

    End Sub

不得不吐槽。好差的东西，传个图片都传不上。手机客户端更差，连进帖子都进不去。什么玩意。浪费我半个小时传个图。
...全文
667 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2017-04-22
  • 打赏
  • 举报
 回复
搜“彻底卸载VS”
qxy1547722058 2017-04-22
  • 打赏
  • 举报
 回复
引用 14 楼 赵4老师的回复:
搜“彻底卸载VS”
彻底卸载。。。。为什么要彻底卸载。。
qxy1547722058 2017-04-22
  • 打赏
  • 举报
 回复
最主要的是以前运行没有任何问题。没有。这几天我也没有更改任何代码。我记得就只是清理了c盘APPdata下的一个temp文件夹_(:з」∠)_。然后。就。一直报错。重新写(重新创建工程）发现只要在模块声明全局变量就错误。 大神求解释（｡ò ∀ ó｡）
qxy1547722058 2017-04-22
  • 打赏
  • 举报
 回复
引用 11 楼 舉杯邀明月的回复:
反正你这个“工程”也没几个模块，建议你直接重新构建工程算了。 确认各模块文件都在、清楚各个文件都“放在哪”的。 然后新建一个工程，把之前的工程中的各个模块文件都复制到新工程的目录中去，然后，把它们全部加入到新工程中。
我试过完全一样。还是一样报错。我重新建立过工程。 不仅仅只是这个工程，其它工程也一样报一样的错_(:з」∠)_
舉杯邀明月 2017-04-21
  • 打赏
  • 举报
 回复
反正你这个“工程”也没几个模块，建议你直接重新构建工程算了。 确认各模块文件都在、清楚各个文件都“放在哪”的。 然后新建一个工程，把之前的工程中的各个模块文件都复制到新工程的目录中去，然后，把它们全部加入到新工程中。
qxy1547722058 2017-04-21
  • 打赏
  • 举报
 回复
引用 8 楼 Chen8013 的回复:
不会是缺少文件吧？ 你那个“UserPlay”是如何定义的呢？　在哪定义的呢？ 你的窗体模块代码开头，怎么用的是“Option Explicit Off”？ 按理说，应该用 Option Explicit On才是合理的！
UserPlay = True'userpay在模块main里面，不仅仅如此，即使调用任何模块的任何全局变量都报这个错误 '其实以前运行好好的，前几天不小心清理了一个C:\Users\LENOVO\AppData\Local\Temp文件夹就这样了，重装了Vc2010几次没有解决问题。
qxy1547722058 2017-04-21
  • 打赏
  • 举报
 回复 
Module Module1
    '画棋盘参数
    Public HuiTu As Graphics = FormMain.Panel1.CreateGraphics '创建画笔和绘画图片
    Public HuaBi As New Pen(Brushes.Green, 1) '棋盘画笔
    Public HuaBi2 As New Pen(Brushes.Black, 1) '炮位画笔
    Public HuaShua As New SolidBrush(Color.RosyBrown) '字体画刷
    Public ButtonFront As New Font("隶书", KuanDu / 5) '字体
    '按钮颜色参数
    Public ButtonRedColorMoRen As Color
    Public ButtonRedColorXuanDing As Color
    Public ButtonColorGreenMoRen As Color
    Public ButtonColorGreenXuanDing As Color
    '棋谱大小参数
    Public KuanDu As Integer = 50 '格子宽度
    Public JianJv As Integer = KuanDu / 2 '间距
    Public DanWeiChang As Integer = KuanDu / 10 '单位长度
    Public JuLi As Integer = KuanDu * 9  '棋盘长度
    '状态参数
    Public XuanDing As Boolean 'XuanDing判断是否已经选定
    Public UserPlay As Boolean= False 'UserPlay判断回合
    Public LocationPanduan As Boolean  '判断是否执行
    '记录参数
    Public LocaButtonClick As Point '记录点击位置
    Public NameButtonClick As String '记录点击的按钮
End Module
那个开头Option Explicit Off”是我刚刚加的，，，额，忽略，忽略，是一直报错，我加上看能不能有什么改变。
舉杯邀明月 2017-04-21
  • 打赏
  • 举报
 回复
不会是缺少文件吧？ 你那个“UserPlay”是如何定义的呢？　在哪定义的呢？ 你的窗体模块代码开头，怎么用的是“Option Explicit Off”？ 按理说，应该用 Option Explicit On才是合理的！
qxy1547722058 2017-04-21
  • 打赏
  • 举报
 回复
引用 6 楼 Chen8013 的回复:
按理说，任何一个程序，都不应该依赖“temp”文件夹中的东西才对。


你这个工程，现在还能“全编译”成exe文件吗？

不能调试，更不用说编译。。一调试就报这个错误。


舉杯邀明月 2017-04-21
  • 打赏
  • 举报
 回复
按理说，任何一个程序，都不应该依赖“temp”文件夹中的东西才对。 你这个工程，现在还能“全编译”成exe文件吗？
qxy1547722058 2017-04-21
  • 打赏
  • 举报
 回复
zj_zwl 2017-04-21
  • 打赏
  • 举报
 回复
在ModuleMain.Main里设置断点
qxy1547722058 2017-04-21
  • 打赏
  • 举报
 回复
引用 3 楼 zj_zwl 的回复:
在ModuleMain.Main里设置断点
设置断点？ 为什么这样做。。。。 我没有在module里面设置断点，而且不仅仅只是这个模块，所有的模块都调用不了，对了，大神，我上次不小心清理了temp文件夹。。。。。。。
xdashewan 2017-04-20
  • 打赏
  • 举报
 回复
断点调试，定位异常
qxy1547722058 2017-04-20
  • 打赏
  • 举报
 回复
引用 1 楼 xdashewan 的回复:
断点调试，定位异常
额，大神。什么意思，怎么解决？
Windows进程常用DLL模块注入技术
远程线程注入 APC注入，异步调用过程，向目标线程插入待执行任务从而完成注入。 窗口消息注入，指定窗口进程注入，与全局钩子注入类似。 环境块注入，获取进程上下文信息，直接性修改程序执行流程完成注入。 进程...
Python 调用另一个模块里的全局变量
在项目中遇到了一个这样的小问题：在主程序里定义了一个全局变量，编写了一堆函数放到了另外几个.py文件里，然后想在放函数的.py文件里调用全局变量，发现调用不了。 我自己的项目里是一个UI界面的问题，对Ui_MainWindow的类定义了一个printf的方法，在主函数里创建了一个实例，然后想在另一个模块里用这个实例打印一些东西 查了一些博客，这里记录一下解决办法： 在某一个模块里定义一个全局变量初始化的函数：（比如说这个模块叫做commonFunc.py） def global_var_init(
Delphi自定义单元模块和调用_全局函数、全局过程、全局变量、全局常量定义
Delphi的基础研究记录 当我们熟悉了一个第一语言后去学习另一种语言，往往但会想到 第一语言的功能。Delphi这门语言基于 VB 和 VC++ 之间的一个语言，非常不错，很快上手了。下面定义个自定义模块。不过我喜欢叫 单元模块。 因为 Delphi 的程序代码是 由N个单元构成，其实这里的单元就是 VB里面的模块差不多。下面的这个单元模块，里面没有对象实现。但是函数和过程，还有全局变量和全局变量初始化和全局常量。这里有一个错误比较特殊，就是 当你写了关键字后，但是没有 写接下来的匹配的代码他就会提示Id
C语言中全局变量的定义与调用
1. 谭浩强 书中对‘全局变量’的定义     在函数内定义的变量是局部变量，而在函数外定义的变量叫做外部变量，外部变量是全局变量。全局变量可以为本文件中其他函数所共用它的有效范围从定义变量的位置开始到本源文件结束。     建立全局变量的作用是增加了函数间数据联系的渠道。 2.  谭浩强 书中对‘全局变量’的声明     用extern声明：        如果外部变量不在文件的开头定
疑问：Python跨模块调用函数时，被调用函数内部不能使用全局变量
简单案例： 模块1中的函数 def add(): print(a) if __name__=='__main__': a=10 add()  模块2中的函数 from 模块1 import add a=20 add() 此为模块2调用模块1中的函数，但调用失败，错误提示如下： 总结：跨模块调用函数时，被调用函数内部不能使用全局变...
VB

16,555

社区成员

110,528

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章