将VB6代码转换为VB.NET

我正在将代码从VB 6升级到VB.NET，以下代码给了我一个错误：

(VB6.PixelsToTwipsX(mvarPicture.ClientRectangle.Width) - (BDR + X), 
VB6.PixelsToTwipsY(mvarPicture.ClientRectangle.Height) - (BDR + X)),
mvarBorderColor,
B

错误是：

错误6应为语句结尾

有人能帮我吗

---

这是完整的代码：

Public Sub Draw()
    Dim BDR, X As Short
    Dim NewX, NewY As Double
    Dim OldX, OldY As Double
    Dim GridHeight, GridWidth As Double
    Dim mvarPictureBox As System.Windows.Forms.PictureBox



    On Error GoTo NoPicBox ' In case the PicBox isn't set yet

    'UPGRADE_ISSUE: PictureBox property mvarPictureBox.AutoRedraw was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
    If mvarPicture.AutoRedraw = False Then mvarPicture.AutoRedraw = True
    'UPGRADE_ISSUE: PictureBox method mvarPictureBox.Cls was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
    mvarPicture.Cls()

    BDR = mvarPictureBox.BorderStyle
    'UPGRADE_ISSUE: PictureBox property mvarPictureBox.ScaleMode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
    If mvarPicture.ScaleMode <> 3 Then mvarPicture.ScaleMode = 3
    If System.Drawing.ColorTranslator.ToOle(mvarPictureBox.BackColor) <> System.Drawing.ColorTranslator.ToOle(mvarPicBackground) Then mvarPictureBox.BackColor = mvarPicBackground
    If mvarBorderSize > 0 Then
        For X = 0 To mvarBorderSize
            'UPGRADE_ISSUE: PictureBox method mvarPictureBox.Line was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
            mvarPicture.Line (X, X) - (VB6.PixelsToTwipsX(mvarPicture.ClientRectangle.Width) - (BDR + X), VB6.PixelsToTwipsY(mvarPicture.ClientRectangle.Height) - (BDR + X)), mvarBorderColor, B
        Next X
    End If

    ' Display Grid On Screen
    If mvarGridVisible = True Then
        For X = 1 To 20
            'UPGRADE_ISSUE: PictureBox method mvarPictureBox.Line was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
            mvarPicture.Line (mvarBorderSize, mvarBorderSize) - ((((VB6.PixelsToTwipsX(mvarPictureBox.ClientRectangle.Width) - (mvarBorderSize * 2)) / 20) * X), (VB6.PixelsToTwipsY(mvarPictureBox.ClientRectangle.Height) - (mvarBorderSize * 2))), mvarGridColor, B
        Next X
        For X = 1 To 10
            'UPGRADE_ISSUE: PictureBox method mvarPictureBox.Line was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
            mvarPicture.Line (mvarBorderSize, mvarBorderSize) - ((VB6.PixelsToTwipsX(mvarPictureBox.ClientRectangle.Width) - (mvarBorderSize * 2)), (((VB6.PixelsToTwipsY(mvarPictureBox.ClientRectangle.Height) - (mvarBorderSize * 2)) / 10) * X)), mvarGridColor, B
        Next X
    End If

    If mvarDataCollection.Count() > 0 Then
        GridHeight = ((VB6.PixelsToTwipsY(mvarPictureBox.ClientRectangle.Height) - (mvarBorderSize * 2)) / 100) + 0 ' 0-100%
        GridWidth = ((VB6.PixelsToTwipsX(mvarPictureBox.ClientRectangle.Width) - (mvarBorderSize * 2)) / 100) + 0 ' 1-100 Items
        Do
            If mvarDataCollection.Count() > 100 Then mvarDataCollection.Remove(1)
        Loop While mvarDataCollection.Count() > 100

        OldX = mvarBorderSize + 2
        'UPGRADE_WARNING: Couldn't resolve default property of object mvarDataCollection(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        OldY = ((VB6.PixelsToTwipsY(mvarPictureBox.ClientRectangle.Height) - (mvarBorderSize * 2)) - (mvarDataCollection.Item(1) * GridHeight))
        For X = 1 To 100
            NewX = (VB6.PixelsToTwipsX(mvarPictureBox.ClientRectangle.Width) - (mvarBorderSize * 2)) - ((100 - (X - 1)) * GridWidth)
            'UPGRADE_WARNING: Couldn't resolve default property of object mvarDataCollection(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            NewY = ((VB6.PixelsToTwipsY(mvarPictureBox.ClientRectangle.Height) - (mvarBorderSize * 2)) - (mvarDataCollection.Item(X) * GridHeight))
            NewX = NewX + 2
            If NewX < mvarBorderSize Then NewX = mvarBorderSize
            If NewY < mvarBorderSize Then NewY = mvarBorderSize

            'UPGRADE_ISSUE: PictureBox method mvarPictureBox.Line was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
            mvarPicture.Line (OldX, OldY) - (NewX, NewY), mvarPicForeground


            OldX = NewX : OldY = NewY
            If OldX < mvarBorderSize Then OldX = mvarBorderSize
            If OldY < mvarBorderSize Then OldY = mvarBorderSize
        Next X
    End If

NoPicBox:
End Sub

公共子绘图（）
尺寸BDR，X为短
暗淡的新的，新的双
暗淡的老X，老得像双
Dim GridHeight，GridWidth为双精度
将mvarPictureBox设置为System.Windows.Forms.PictureBox
如果尚未设置PicBox，则出现“转到NoPicBox”错误
'升级\问题：PictureBox属性mvarPictureBox.AutoRedraw未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
如果mvarPicture.AutoRedraw=False，则mvarPicture.AutoRedraw=True
'升级\问题：PictureBox方法mvarPictureBox.Cls未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
mvarPicture.Cls（）
BDR=mvarPictureBox.BorderStyle
'升级\问题：PictureBox属性mvarPictureBox.ScaleMode未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
如果mvarPicture.ScaleMode为3，则mvarPicture.ScaleMode=3
如果System.Drawing.ColorTranslator.ToOle（mvarPictureBox.BackColor）System.Drawing.ColorTranslator.ToOle（mvarPicBackground），则mvarPictureBox.BackColor=mvarPicBackground
如果mvarBorderSize>0，则
对于X=0到mvarBorderSize
'升级\问题：PictureBox方法mvarPictureBox.行未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
mvarPicture.Line（X，X）-（VB6.PixelsToTwipsX（mvarPicture.ClientRectangle.Width）-（BDR+X），VB6.PixelsTowipsy（mvarPicture.ClientRectangle.Height）-（BDR+X）），mvarBorderColor，B
下一个X
如果结束
'在屏幕上显示网格
如果mvarGridVisible=True，则
对于X=1到20
'升级\问题：PictureBox方法mvarPictureBox.行未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
mvarPicture.Line（mvarBorderSize，mvarBorderSize）-（（VB6.PixelsToTwipsX（mvarPictureBox.ClientRectangle.Width）-（mvarBorderSize*2））/20）*X，（VB6.PixelsToTwipsY（mvarPictureBox.ClientRectangle.Height）-（mvarGridColor，B）
下一个X
对于X=1到10
'升级\问题：PictureBox方法mvarPictureBox.行未升级。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“CC4C7EC0-C903-48FC-ACCC-81861D12DA4A”
mvarPicture.Line（mvarBorderSize，mvarBorderSize）-（VB6.PixelsToTwipsX（mvarPictureBox.ClientRectangle.Width）-（mvarBorderSize*2）），（（VB6.PixelsToTwipsY（mvarPictureBox.ClientRectangle.Height）-（mvarBorderSize*2）），mvarGridColor，B
下一个X
如果结束
如果mvarDataCollection.Count（）大于0，则
GridHeight=（（VB6.PixelsToTwipsY（mvarPictureBox.ClientRectangle.Height）-（mvarBorderSize*2））/100）+0'0-100%
GridWidth=（（VB6.PixelsToTwipsX（mvarPictureBox.ClientRectangle.Width）-（mvarBorderSize*2））/100）+0'1-100项
做
如果mvarDataCollection.Count（）大于100，则mvarDataCollection.Remove（1）
当mvarDataCollection.Count（）大于100时循环
OldX=mvarBorderSize+2
'UPGRADE\u警告：无法解析对象mvarDataCollection（）的默认属性。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“6A50421D-15FE-4896-8A1B-2EC21E9037B2”
OldY=（（VB6.PixelsToTwipsY（mvarPictureBox.ClientRectangle.Height）-（mvarBorderSize*2））-（MVArdDataCollection.Item（1）*GridHeight））
对于X=1到100
NewX=（VB6.PixelsToTwipsX（mvarPictureBox.ClientRectangle.Width）-（mvarBorderSize*2））-（（100-（X-1））*GridWidth）
'UPGRADE\u警告：无法解析对象mvarDataCollection（）的默认属性。点击查看更多信息：“ms”-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=“6A50421D-15FE-4896-8A1B-2EC21E9037B2”
NewY=（（VB6.PixelsToTwipsY（mvarPictureBox.ClientRectangle.Height）-（mvarBorderSize*2））-（mvarDataCollection.Item（X）*GridHeight））
NewX=NewX+2
如果NewX

简短回答，这些行中缺少开头和结尾括号

---

长答案，

PictureBox.Line（）

在VB.NET中不受支持。查看并了解如何在.NET中执行此操作。

让我们再次使用代码，以及上面和下面的几行……Dim BDR，X作为短Dim NewX，NewY作为双Dim OldX，OldY作为双Dim GridHeight，GridWidth作为双Dim mvarPictureBox作为System.Windows.Forms.picturebox也不是有效的VB6代码。如果你想在多行之间打断一个长语句，那么你必须在该行末尾使用下划线；您缺少这些行末尾的关闭参数。代码中的开放/关闭参数存在巨大差异。