VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Link 
   Caption         =   "Link devinition"
   ClientHeight    =   4245
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7785
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form2"
   ScaleHeight     =   4245
   ScaleWidth      =   7785
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCreate 
      Caption         =   "Linkdatei erstellen"
      Height          =   375
      Left            =   2040
      TabIndex        =   7
      Top             =   2040
      Width           =   3855
   End
   Begin VB.TextBox txtMessage 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   600
      TabIndex        =   3
      Top             =   3000
      Width           =   6615
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   615
      Left            =   1920
      TabIndex        =   4
      Top             =   3480
      Width           =   3855
   End
   Begin VB.CommandButton cmdDurchsuchen 
      Caption         =   "Durchsuchen"
      Height          =   315
      Left            =   5280
      TabIndex        =   2
      Top             =   1560
      Width           =   1935
   End
   Begin VB.TextBox txtDatei 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   600
      TabIndex        =   1
      Top             =   1560
      Width           =   4575
   End
   Begin MSComDlg.CommonDialog cmLink 
      Left            =   120
      Top             =   3600
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "Textdateien (*.txt)|*.txt"
   End
   Begin VB.Label lblText 
      Caption         =   "Dateiname des Textes:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   600
      TabIndex        =   6
      Top             =   1200
      Width           =   7335
   End
   Begin VB.Label lblMessage 
      Caption         =   "anzuzeigende Nachricht:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   600
      TabIndex        =   0
      Top             =   2640
      Width           =   7335
   End
   Begin VB.Label lblName 
      Alignment       =   2  'Center
      Caption         =   "Link bearbeiten:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1800
      TabIndex        =   5
      Top             =   360
      Width           =   4215
   End
End
Attribute VB_Name = "Link"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Bei Klick Auf Linkdatei Kreiren:
Private Sub cmdCreate_Click()
    'Link-Form Ausschalten
    Link.Enabled = False
    'Form zur erstellung des Linkes Laden:
    CreateLink.Visible = True
End Sub

'Durch datei Link hinzufügen
Private Sub cmdDurchsuchen_Click()
    'Öffnen des Explorers
    cmLink.ShowOpen
    
    'Wenn Ein File ausgewählt wurde:
    If cmLink.FileName <> "" Then
        'Name in Textlinie eigneben
        txtDatei.text = cmLink.FileTitle
    End If
End Sub

'Bei Bestätigung
Private Sub cmdOK_Click()
    'Eingabe in Dateiname Vorhanden:
    If txtDatei.text <> "" Then
        'Eingabe in Nachricht Vorhanden:
        If txtMessage.text <> "" Then
            'Link mit Nachricht in zeile Schreiben
            Define.txtText.SelText = "#" & txtDatei.text & "|" & txtMessage.text & "#"
        'Eingabe ohne vorhandene Nachricht::
        Else
            'Link ohne Nachricht in zeile Schreiben
            Define.txtText.SelText = "#" & txtDatei.text & "#"
        End If
    End If
    
    Unload Me
End Sub

'Bei verlassen der Form
Private Sub Form_Unload(Cancel As Integer)
    'Define-Forma einschalten und anzeigen
    Define.Enabled = True
    Define.Visible = True
End Sub

