form3.frm

一个VB开的调用组态王OPC SERVER的客户端程序代码,包括说明书

Private Sub List1_DblClick()
List1_Click
Command1_Click
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'Command1.SetFocus
End Sub

Sub AddNodes(ByVal ss As String)
Dim str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str12 As String
Dim i, j, lenth As Integer
Dim node1, node2, node3, node4, node5, node6 As Node

i = InStr(ss, ".")       '取第一节点
lenth = Len(ss)
If i <> 0 Then
   str1 = Left(ss, i - 1)
   str2 = Right(ss, lenth - i)
   If str1 <> BiaoZhi1 Then
      Set node1 = TreeView1.Nodes.Add
      TreeView1.Nodes(JieDian + 1).Text = str1
      TreeView1.Nodes(JieDian + 1).Key = str1 + Str(JieDian)
      JianZhi1 = str1 + Str(JieDian)
      BiaoZhi1 = str1
      JieDian = JieDian + 1
   End If
Else
   Set node1 = TreeView1.Nodes.Add
   TreeView1.Nodes(JieDian + 1).Text = ss
   TreeView1.Nodes(JieDian + 1).Key = ss + Str(JieDian)
   JieDian = JieDian + 1
   Exit Sub
End If

i = InStr(str2, ".")       '取第二节点
lenth = Len(str2)
If i <> 0 Then
   str3 = Left(str2, i - 1)
   str4 = Right(str2, lenth - i)
   If str3 <> BiaoZhi2 Then
      Set node2 = TreeView1.Nodes.Add(JianZhi1, tvwChild, str3 + Str(JieDian))
      TreeView1.Nodes(JieDian + 1).Text = str3
      TreeView1.Nodes(JieDian + 1).Key = str3 + Str(JieDian)
      BiaoZhi2 = str3
      JianZhi2 = str3 + Str(JieDian)
      JieDian = JieDian + 1
    End If
Else
   Set node2 = TreeView1.Nodes.Add(JianZhi1, tvwChild, str2 + Str(JieDian))
   TreeView1.Nodes(JieDian + 1).Text = str2
   TreeView1.Nodes(JieDian + 1).Key = str2 + Str(JieDian)
   JieDian = JieDian + 1
   Exit Sub
End If

If str4 <> "" Then
   i = InStr(str4, ".")       '取第三节点
   lenth = Len(str4)
   If i <> 0 Then
      str5 = Left(str4, i - 1)
      str6 = Right(str4, lenth - i)
      If str5 <> BiaoZhi3 Then
         Set node3 = TreeView1.Nodes.Add(JianZhi2, tvwChild, str5 + Str(JieDian))
         TreeView1.Nodes(JieDian + 1).Text = str5
         TreeView1.Nodes(JieDian + 1).Key = str5 + Str(JieDian)
         JianZhi3 = str5 + Str(JieDian)
         BiaoZhi3 = str5
         JieDian = JieDian + 1
      End If
   Else
      Set node3 = TreeView1.Nodes.Add(JianZhi2, tvwChild, str4 + Str(JieDian))
      TreeView1.Nodes(JieDian + 1).Text = str4
      TreeView1.Nodes(JieDian + 1).Key = str4 + Str(JieDian)
      JieDian = JieDian + 1
      Exit Sub
   End If
End If

If str6 <> "" Then
   i = InStr(str6, ".")       '取第四节点
   lenth = Len(str6)
   If i <> 0 Then
      str7 = Left(str6, i - 1)
      str8 = Right(str6, lenth - i)
      If str7 <> BiaoZhi4 Then
         Set node4 = TreeView1.Nodes.Add(JianZhi3, tvwChild, str7 + Str(JieDian))
         TreeView1.Nodes(JieDian + 1).Text = str7
         TreeView1.Nodes(JieDian + 1).Key = str7 + Str(JieDian)
         JianZhi4 = str7 + Str(JieDian)
         BiaoZhi4 = str7
         JieDian = JieDian + 1
      End If
   Else
      Set node4 = TreeView1.Nodes.Add(JianZhi3, tvwChild, str6 + Str(JieDian))
      TreeView1.Nodes(JieDian + 1).Text = str6
      TreeView1.Nodes(JieDian + 1).Key = str6 + Str(JieDian)
      JieDian = JieDian + 1
      Exit Sub
   End If
End If

If str8 <> "" Then
   i = InStr(str8, ".")       '取第五节点
   lenth = Len(str8)
   If i <> 0 Then
      str9 = Left(str8, i - 1)
      str10 = Right(str8, lenth - i)
      If str9 <> BiaoZhi5 Then
         Set node5 = TreeView1.Nodes.Add(JianZhi4, tvwChild, str9 + Str(JieDian))
         TreeView1.Nodes(JieDian + 1).Text = str9
         TreeView1.Nodes(JieDian + 1).Key = str9 + Str(JieDian)
         JianZhi5 = str9 + Str(JieDian)
         BiaoZhi5 = str9
         JieDian = JieDian + 1
      End If
   Else
      Set node5 = TreeView1.Nodes.Add(JianZhi4, tvwChild, str8 + Str(JieDian))
      TreeView1.Nodes(JieDian + 1).Text = str8
      TreeView1.Nodes(JieDian + 1).Key = str8 + Str(JieDian)
      JieDian = JieDian + 1
      Exit Sub
   End If
End If
   
End Sub

'
'无效程序
'
Sub AddNodes2(ByVal ss As String)
Dim str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str12 As String
Dim i, j, lenth As Integer
Dim node1, node2, node3, node4, node5, node6 As Node

'On Error Resume Next
i = InStr(ss, ".")
lenth = Len(ss)
If i <> 0 Then '8
   str1 = Left(ss, i - 1)
   str2 = Right(ss, lenth - i)
   If str1 <> NodeName1 Then '7
      Set node1 = TreeView1.Nodes.Add
      TreeView1.Nodes(JieDian + 1).Text = str1
      TreeView1.Nodes(JieDian + 1).Key = str1 + Str(JieDian)
      JianZhi = str1 + Str(JieDian)
      JieDian = JieDian + 1
   'Else
      i = InStr(str2, ".")
      lenth = Len(str2)
      If i <> 0 Then '6
         str3 = Left(str2, i - 1)
         str4 = Right(str2, lenth - i)
         If str3 <> NodeName2 Then '5
            Set node2 = TreeView1.Nodes.Add(JianZhi, tvwChild, str3 + Str(JieDian))
            TreeView1.Nodes(JieDian + 1).Text = str3
            TreeView1.Nodes(JieDian + 1).Key = str3 + Str(JieDian)
            JianZhi = str3 + Str(JieDian)
            JieDian = JieDian + 1
         'Else
            i = InStr(str4, ".")
            lenth = Len(str4)
            If i <> 0 Then '4
               str5 = Left(str4, i - 1)
               str6 = Right(str4, lenth - i)
               If str5 <> nodeName3 Then '3
                  Set node3 = TreeView1.Nodes.Add(JianZhi, tvwChild, str5 + Str(JieDian))
                  TreeView1.Nodes(JieDian + 1).Text = str5
                  TreeView1.Nodes(JieDian + 1).Key = str5 + Str(JieDian)
                  JianZhi = str5 + Str(JieDian)
                  JieDian = JieDian + 1
               'Else
                  i = InStr(str6, ".")
                  lenth = Len(str6)
                  If i <> 0 Then '2
                     str7 = Left(str6, i - 1)
                     str8 = Right(str6, lenth - i)
                     If str7 <> NodeName4 Then   '1
                        Set node4 = TreeView1.Nodes.Add(JianZhi, tvwChild, str7 + Str(JieDian))
                        TreeView1.Nodes(JieDian + 1).Text = str7
                        TreeView1.Nodes(JieDian + 1).Key = str7 + Str(JieDian)
                        JianZhi = str7 + Str(JieDian)
                        JieDian = JieDian + 1
                     'Else
                        Set node5 = TreeView1.Nodes.Add(JianZhi, tvwChild, str8, str8 + Str(JieDian))
                        TreeView1.Nodes(JieDian + 1).Text = str8
                        TreeView1.Nodes(JieDian + 1).Key = str8 + Str(JieDian)
                        JianZhi = str8 + Str(JieDian)
                        JieDian = JieDian + 1
                    End If '1
                  Else
                     Set node4 = TreeView1.Nodes.Add(JianZhi, tvwChild, str6 + Str(JieDian))
                     TreeView1.Nodes(JieDian + 1).Text = str6
                     TreeView1.Nodes(JieDian + 1).Key = str6 + Str(JieDian)
                     JianZhi = str6 + Str(JieDian)
                     JieDian = JieDian + 1
                  End If '2
                End If '3
         Else
            Set node3 = TreeView1.Nodes.Add(JianZhi, tvwChild, str4 + Str(JieDian))
            TreeView1.Nodes(JieDian + 1).Text = str4
            TreeView1.Nodes(JieDian + 1).Key = str4 + Str(JieDian)
            JianZhi = str4 + Str(JieDian)
            JieDian = JieDian + 1
        End If '4
       End If '5
      Else
         Set node2 = TreeView1.Nodes.Add(JianZhi, tvwChild, str2 + Str(JieDian))
         TreeView1.Nodes(JieDian + 1).Text = str2
         TreeView1.Nodes(JieDian + 1).Key = str2 + Str(JieDian)
         JianZhi = str2 + Str(JieDian)
         JieDian = JieDian + 1
      End If '6
    End If '7
Else
   TreeView1.Nodes.Add
   TreeView1.Nodes(JieDian + 1).Text = ss
   TreeView1.Nodes(JieDian + 1).Key = ss + Str(JieDian)
   JianZhi = ss + Str(JieDian)
   JieDian = JieDian + 1
End If '8
NodeName1 = str1
NodeName2 = str3
nodeName3 = str5
NodeName4 = str7
NodeName5 = str9
End Sub

Private Sub TreeView1_Click()
Dim i, j, lenth As Long
Dim ss, ss1, ss2 As String
Dim nodx As Node

Set nodx = TreeView1.SelectedItem
On Error Resume Next
ss = nodx.Parent.Text

If ss = "" Then
   ss1 = nodx.Text
   For i = 0 To List1.ListCount
      j = InStr(List1.List(i), ".")
      ss2 = Left(List1.List(i), j - 1)
      If ss2 = ss1 Then
         Text1.Text = ss1
         'List1.List(i).Select
         List1.Selected(i) = True
         Exit Sub
       End If
    Next i
End If
End Sub