24小时热门版块排行榜

>论坛更新日志 (3136)
>虫友互识 (420)
>导师招生 (119)
>休闲灌水 (101)
>文献求助 (92)
>硕博家园 (58)
>考研 (38)
>论文投稿 (36)
>考博 (31)
>基金申请 (29)
>论文道贺祈福 (27)
>博后之家 (26)
>公派出国 (25)
>找工作 (19)
>健康生活 (19)
>教师之家 (18)

返回列表

当前主题已经存档。

情定缘海

应助: (幼儿园)
在线:
虫号: 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

回复此楼