在vb.net中是否存在类似于“with”但功能类似的东西？

发布时间：2020-12-17 07:13:57 所属栏目：百科来源：网络整理

导读：我连续使用相同的功能,有没有办法 with basicmove(){(r),(u,20),(r)end with 代替 basicmove(r) basicmove(u,20) basicmove(r) 编辑：或 basicmove(l,5) basicmove(d,3) basicmove(l,21) basicmove(u,5) 解决方法我不完全确定这会解决你要求的所有问题,但也

我连续使用相同的功能,有没有办法

with basicmove()
{(r),(u,20),(r)
end with

代替

basicmove(r)
    basicmove(u,20)
    basicmove(r)

编辑：或

basicmove(l,5)
    basicmove(d,3)
    basicmove(l,21)
    basicmove(u,5)

解决方法

我不完全确定这会解决你要求的所有问题,但也许它会给你一个想法.

编辑：根据更新的问题,我有另一种解决方案.这需要在编程中理解two-dimensional arrays.您只需将所有“坐标”加载到一个数组中,然后迭代它们并按照它们输入到数组中的相同顺序执行操作.

Sub Main()
    ' multi-dimensional array of moves (there are plenty of way to create this object if this is confusing)
    Dim myList(,) As Object = New Object(,) { _
                                {"l",5},_
                                {"d",3},_
                                {"l",21},_
                                {"u",5} _
                            }

    ' iterate the array and perform the moves.
    For x As Integer = 0 To myList.GetUpperBound(0)
        ' getting coordinates from the first & second dimension
        basicmove(myList(x,0),myList(x,1))
    Next

    Console.ReadLine()
End Sub

Private Sub basicmove(ByVal a As String,ByVal b As Integer)
    Console.WriteLine("param1:" & a & ",param2:" & b)
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!