(VB.NET) & # 39; vb6 # 39;未声明.由于它的保护级别，它可能无法进入

本文关键字：于它 NET VB vb6 未声明 保护 | 更新日期: 2023-09-27 18:15:31

我有一个关于类的可访问性的问题，这个类是在"Microsoft.VisualBasic.Compatibility"的参考下。顺便说一下，我使用的是3.5 . net FRAMEWORK。下面是我的项目中的错误。你们能帮帮我吗?

实际上，我有两个解决方案在VB.NET。我被复制的一个运行顺利(没有错误在这里)，但在我的项目有一个错误。请看下面的截图。

谢谢。下面是我的代码。(不是整个模块，只是过程)

Public Sub m_splitBar_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles m_splitBar.MouseDown
    Dim Button As Short = eventArgs.Button ' &H100000
    Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys ' &H10000
    Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
    Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
    'UPGRADE_WARNING: Couldn't resolve default property of object m_bMoving. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    m_bMoving = True
    splitterOnMove(m_splitBar)
End Sub

错误:未声明'VB6'。由于其保护级别，可能无法访问。

我不能张贴图片，但看看下面的链接。它们是运行和不运行的图像……我只是需要一个建议，为什么会发生这种事。

未运行图像

运行图像

再次感谢xD

(VB.NET) & # 39; vb6 # 39;未声明.由于它的保护级别，它可能无法进入

PixelsToTwips仅支持32位项目。请尝试以下操作，或使用Imports Microsoft.VisualBasic.Compatibility。一定要包括Microsoft.VisualBasic.Compatibility作为参考。

Dim X As Single = Microsoft.VisualBasic.Compatibility.VB6.PixelsToTwipsX(eventArgs.X)
Dim Y As Single = Microsoft.VisualBasic.Compatibility.VB6.PixelsToTwipsY(eventArgs.Y)
相关文章：