| 查看: 173 | 回复: 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 |
回复此楼» 猜你喜欢
329求调剂
已经有8人回复
-
070305高分子化学与物理 304分求调剂
已经有8人回复
-
349求调剂
已经有5人回复
-
一志愿北京理工大学本科211材料工程294求调剂
已经有7人回复
-
291求调剂
已经有4人回复
-
0856材料化工调剂 总分330
已经有14人回复
-
352分-085602-一志愿985
已经有5人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有8人回复
-
求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分
已经有4人回复
-
279求调剂
已经有4人回复
woshilsh
荣誉版主 (职业作家)
- 应助: 43 (小学生)
- 贵宾: 10.33
- 金币: 21115.1
- 散金: 737
- 红花: 22
- 帖子: 3777
- 在线: 639.7小时
- 虫号: 293038
- 注册: 2006-11-04
- 专业: 计算机应用技术
- 管辖: 仿真模拟
2楼2009-07-10 21:57:15
