24小时热门版块排行榜

返回列表

当前主题已经存档。

情定缘海

应助: (幼儿园)
在线:
虫号: 579681

[交流] 【求助】帮忙把vb转成c#

Sample TextSample Text
求助高手帮忙把这段vb代码转成c#，谢谢了。
Private Function ForewardReason(node As afNode, str As String)
Dim strReason As String
Dim tt As Integer
Dim i As Integer
Dim zz As Integer
Dim link As afLink
Dim strPin As String
Dim nodx As afNode
Dim VitSeq As Integer
Dim VitSeqc As Integer
Dim str1 As String
Dim LocalForeWardArray() As String
str1 = str
For Each link In node.InLinks
      str1 = str
      If link.Rigid = False Then
      Set nodx = link.Org
      If Not nodx Is Nothing Then
         i = InStr(1, str, nodx.Key)
         If i = 0 Then
         If node.Tag = "Sensor" And node.UserData - 1 >= 0 And node.Key <> "" And nodx.Tag = "Sensor" And nodx.Key <> "" And nodx.UserData - 1 >= 0 Then

            If (PVCurrentBias(nodx.UserData - 1) > 0 And PVCurrentBias(node.UserData - 1) > 0 And link.UserData = 1) Then
               AbnormalVisited(nodx.UserData - 1) = True
               link.DrawWidth = 2
               zz = InStr(1, str1, "→"

               If zz = 0 Then
               str1 = nodx.Key & "偏高" + "→" + str1 & "偏高"
               ElseIf zz > 0 Then
               str1 = nodx.Key & "偏高" + "→" + str1

               End If
               ForewardReason nodx, str1

回复此楼