| 查看: 219 | 回复: 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 |
回复此楼» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有12人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有15人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
woshilsh
荣誉版主 (职业作家)
- 应助: 43 (小学生)
- 贵宾: 10.33
- 金币: 21115.1
- 散金: 737
- 红花: 22
- 帖子: 3777
- 在线: 639.7小时
- 虫号: 293038
- 注册: 2006-11-04
- 专业: 计算机应用技术
- 管辖: 仿真模拟
2楼2009-07-10 21:57:15
30