home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 1999 October / PCpro_1999_10.ISO / Tools / wwmfix / Source / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-28  |  3.1 KB  |  105 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   4  'Festes Werkzeugfenster
  4.    Caption         =   "Form2"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   3555
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2715
  13.    ScaleWidth      =   3555
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'Bildschirmmitte
  16.    Begin VB.Frame Frame1 
  17.       Caption         =   "Wo soll der neue Mailfix-Link erscheinen"
  18.       Height          =   975
  19.       Index           =   1
  20.       Left            =   60
  21.       TabIndex        =   6
  22.       Top             =   1140
  23.       Width           =   3435
  24.       Begin VB.OptionButton LocOpt 
  25.          Caption         =   "Auf der Arbeitsoberfl
  26. che (Desktop)"
  27.          Height          =   195
  28.          Index           =   1
  29.          Left            =   180
  30.          TabIndex        =   2
  31.          Top             =   600
  32.          Width           =   3075
  33.       End
  34.       Begin VB.OptionButton LocOpt 
  35.          Caption         =   "Im Verzeichnis ""Senden an"""
  36.          Height          =   195
  37.          Index           =   0
  38.          Left            =   180
  39.          TabIndex        =   1
  40.          Top             =   300
  41.          Value           =   -1  'True
  42.          Width           =   3075
  43.       End
  44.    End
  45.    Begin VB.CommandButton Btn 
  46.       Caption         =   "&Abbruch"
  47.       Height          =   435
  48.       Index           =   1
  49.       Left            =   1440
  50.       TabIndex        =   4
  51.       Top             =   2220
  52.       Width           =   975
  53.    End
  54.    Begin VB.CommandButton Btn 
  55.       Caption         =   "&OK"
  56.       Enabled         =   0   'False
  57.       Height          =   435
  58.       Index           =   0
  59.       Left            =   2520
  60.       TabIndex        =   3
  61.       Top             =   2220
  62.       Width           =   975
  63.    End
  64.    Begin VB.Frame Frame1 
  65.       Caption         =   "Wie soll der neue Mailfix-Link hei
  66.       Height          =   975
  67.       Index           =   0
  68.       Left            =   60
  69.       TabIndex        =   5
  70.       Top             =   60
  71.       Width           =   3435
  72.       Begin VB.TextBox Text1 
  73.          Height          =   285
  74.          Left            =   180
  75.          TabIndex        =   0
  76.          Top             =   420
  77.          Width           =   3075
  78.       End
  79.    End
  80. Attribute VB_Name = "Form2"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Option Explicit
  86. Private Sub Btn_Click(Index As Integer)
  87.     If Index Then
  88.         End 'abb
  89.     Else
  90.         NewLinkName = Trim(Text1.Text)
  91.         If NewLinkNameOk Then  'ok
  92.             MakeLink
  93.         Else
  94.             MsgBox cMsgInvalidChar, vbCritical, Title
  95.             Text1.SetFocus
  96.         End If
  97.     End If
  98. End Sub
  99. Private Sub LocOpt_Click(Index As Integer)
  100.     LocOptIdx = Index
  101. End Sub
  102. Private Sub Text1_Change()
  103.     Btn(0).Enabled = Trim(Text1.Text) <> ""
  104. End Sub
  105.