”设计器检查出文件中有以下类: FrmMain-未能加载基类"Ul.FrmBase",请确保已引用该程序集并已生成所有项目。”的另一种解决方案

一般的解决方案类似于这位博主的这种:

 https://blog.csdn.net/izibeike/article/details/78791392

如果以上方式不能解决,这里提供另外一种可行的方案:

查看项目属性,如果生成是X64的话,改为使用“Any CPU”选项来设计应用程序,然后重新生成即可。

这样的话生成的代码在32位平台上JIT为32位,在64位平台上JIT为64位。

如果Any CPU不可用,将项目设置为"x86"也是可行的。

 

因为Visual Studio是32位的程序,而Windows不支持32位和64位程序的转换。

 

 

  • 2
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
1 dlgConnectSetup 连接设置 2 dlgSaveSymbol 储存代码 3 dlgSymbolSetup 代码设置 4 filequiry 文件查询 5 frmMachineQuery 设备查询界面 6 frmMain 主界面 7 frmMeetArtiQuery 会议论文查询模块 8 frmPeriodArtiQuery 期刊论文查询模块 9 frmProjectQuery 项目查询模块 10 frmRecordInput 录入模块 11 MachineQuery 设备查询 12 moneyquery 经费查询 13 cwbhquery 财务编号查询 14 ProjectQuery 项目查询 15 modMain 初始化模块 16 clsDataSource 模块 17 drpMachine 设备统计报表 18 drpMeetArticle 会议论文统计 19 drpPeriodArticle 期刊论文统计 20XX drpProArchieve 项目成果报表 21 drpProjFinancial 项目经费 22 drpProjOverview 项目总览 dlgConnectSetup Option Explicit Private Sub CancelButton_Click() Unload Me End Sub Private Sub cmdHelp_Click() frmMain.Hhopen1.OpenHelp App.HelpFile, "Connect.html" End Sub Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 txtServerName.Text = GetSetting("科研项目管理系统", "Connection", "ServerName", "") txtDatabaseName.Text = GetSetting("科研项目管理系统", "Connection", "DatabaseName", "") End Sub Private Sub OKButton_Click() If Trim(txtServerName.Text) <> "" And Trim(txtDatabaseName.Text) <> "" Then SaveSetting "科研项目管理系统", "Connection", "ServerName", Trim(txtServerName.Text) SaveSetting "科研项目管理系统", "Connection", "DatabaseName", Trim(txtDatabaseName.Text) Unload Me MsgBox "注意:必须重新启动应用程序才能使设置生效。", vbExclamation, "连接设置" Else MsgBox "输入不完全!", vbExclamation, "错误" End If End Sub Private Sub txtServerName_GotFocus() With txtServerName .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub txtdatabaseName_GotFocus() With txtDatabaseName .SelStart = 0 .SelLength = Len(.Text) End With End Sub dlgSaveSymbol Option Explicit Private Sub CancelButton_Click() Unload Me End Sub Private Sub OKButton_Click() Dim RegKey As String If Trim(txtString.Text) <> "" Then Select Case dlgSaveSymbol.Caption Case "添加项目性质代号" RegKey = "Symbol\ProjectQuality" SaveSetting "科研项目管理系统", RegKey, txtNumber.Text, txtString.Text SaveSetting "科研项目管理系统", RegKey, "Count", txtNumber.Text Case "编辑项目性质代号" RegKey = "Symbol\ProjectQuality" SaveSetting "科研项目管理系统", RegKey, txtNumber.Tex

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值