24小时热门版块排行榜    

CyRhmU.jpeg
查看: 145  |  回复: 1
当前主题已经存档。

情定缘海

[交流] 【求助】帮忙把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
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

woshilsh

荣誉版主 (职业作家)

优秀版主


小木虫(金币+0.5):给个红包,谢谢回帖交流
哇哦,觉得你还不如自己写算了,这么短
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&amp;amp;amp;say=各位版主辛苦了![/img][/url][/center]
2楼2009-07-10 21:57:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 情定缘海 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见