examplesdlg.frm

PLC相关-656M.zip

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form ExamplesDlg 
   Caption         =   "Kommando-Schnittstelle --- Dokumentation, Beispiele"
   ClientHeight    =   5508
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   8052
   LinkTopic       =   "Form1"
   ScaleHeight     =   5508
   ScaleWidth      =   8052
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CloseBtn 
      Cancel          =   -1  'True
      Caption         =   "Close"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   5040
      Width           =   1335
   End
   Begin VB.CommandButton UnDoExampleBtn 
      Caption         =   "Undo Example"
      Height          =   375
      Left            =   3240
      TabIndex        =   4
      Top             =   5040
      Width           =   1335
   End
   Begin VB.CommandButton DoExampleBtn 
      Caption         =   "Do Example"
      Height          =   375
      Left            =   1680
      TabIndex        =   3
      Top             =   5040
      Width           =   1335
   End
   Begin VB.TextBox Info 
      Height          =   1335
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   3480
      Width           =   7815
   End
   Begin ComctlLib.ListView ExampleList 
      Height          =   3015
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7815
      _ExtentX        =   13780
      _ExtentY        =   5313
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      _Version        =   327682
      Icons           =   "ImageList1"
      SmallIcons      =   "ImageList2"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin ComctlLib.ImageList ImageList2 
      Left            =   7200
      Top             =   4920
      _ExtentX        =   995
      _ExtentY        =   995
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   2
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "ExamplesDlg.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "ExamplesDlg.frx":005E
            Key             =   "Std"
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   6240
      Top             =   4920
      _ExtentX        =   995
      _ExtentY        =   995
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   2
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "ExamplesDlg.frx":02F0
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "ExamplesDlg.frx":034E
            Key             =   "Std"
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      Caption         =   "Info"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   3240
      Width           =   1095
   End
End
Attribute VB_Name = "ExamplesDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' Letzter Stand: 10.11.98
' Alexander Gugel

Private Sub CloseBtn_Click()
    Unload Me
End Sub


Private Sub DoExampleBtn_Click()
    Call ExampleList_DblClick
End Sub

Private Sub ExampleList_Click()
    Dim item As ListItem
    Set item = ExampleList.SelectedItem
    
    Select Case item.key
        Case "Collection"
            Info.Text = "ERMITTELT ALLE VOM SIMATIC-MANAGER VERWALTETEN " _
            & "STEP7-PROJEKTE"
            UnDoExampleBtn.Enabled = False
            
            
        Case "Projects1"
            Info.Text = "ANLEGEN EINES PROJEKTS" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Das Projekt 'reptiles' wird angelegt"
            UnDoExampleBtn.Enabled = True
        
        Case "Projects2"
            Info.Text = "ABFANGEN VON FEHLERMELDUNGEN"
            UnDoExampleBtn.Enabled = True
            
         Case "Projects3"
            Info.Text = "ERZEUGEN EINES PROGRAMMS, ITERATION UND AUSGABE VON EIGENSCHAFTEN"
            UnDoExampleBtn.Enabled = False
            
          Case "Load"
            Info.Text = "IMPORTIEREN EINER QUELLE, 蹷ERSETZEN, ANZEIGE DER BAUSTEINE UND DOWNLOAD"
            UnDoExampleBtn.Enabled = False
          
        Case "Project"
            Info.Text = "PROJEKTE ANLEGEN, UMBENENNEN"
            UnDoExampleBtn.Enabled = False


        Case "Stations1"
            Info.Text = "STATIONEN ANLEGEN UND L諷CHEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & " Es werden u.a. die Stationen 'Relativity' und 'Circlelimit' " _
            & " angelegt."
            UnDoExampleBtn.Enabled = True
            
        Case "Stations2"
            Info.Text = "STATIONEN AUS ASCII-DATEIEN IMPORTIEREN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'Relativity2' wird aus der ASCII-Datei " _
            & " c:\tmp\Relativity.txt importiert. Diese Datei kann mit dem " _
            & " Beispiel 'Station 4' erzeugt werden."
            UnDoExampleBtn.Enabled = True
            
        Case "Station1"
            Info.Text = "STATIONSDATEN ERMITTELN, STATIONEN UMBENENNEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'relativity' wird nach 'relativity2' umbenannt. " _
            & "Es werden sowohl die Stationsdaten, als auch die Namen aller " _
            & "Stationen ausgegeben. Schlie遧ich wird die Umbenennung wieder " _
            & "r點kg鋘gig gemacht."
            UnDoExampleBtn.Enabled = False
            
        Case "Station2"
            Info.Text = "ZUGRIFF AUF ATTRIBUTE, MIT BZW. OHNE LATE-BINDING"
            UnDoExampleBtn.Enabled = False
        
        Case "Station3"
            Info.Text = "VERWENDUNG DER S7STATION-METHODE EDIT" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'relativity' wird ermittelt und die Methode 'Edit' aufgerufen. " _
            & "Dadurch wird 'Hardware Konfig' gestartet."
            UnDoExampleBtn.Enabled = False

        Case "Station4"
            Info.Text = "STATION IN ASCII-DATEI EXPORTIEREN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'Relativity' wird in die Datei " _
            & "c:\tmp\relativity.txt exportiert."
            UnDoExampleBtn.Enabled = False
                
        Case "Station5"
            Info.Text = "STATIONEN KOPIEREN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'Relativity' wird kopiert und in das " _
            & "Projekt 'Reptiles' eingefuegt. Zusaetzlich wird die Station " _
            & "nach 'CopiedStation' umbenannt."
            UnDoExampleBtn.Enabled = True
        
        Case "Station6"