home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 1999 October / PCpro_1999_10.ISO / Tools / dialer98 / Source / telefonbuch.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-07  |  3.6 KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fester Dialog
  4.    Caption         =   "Telefonbuch"
  5.    ClientHeight    =   3390
  6.    ClientLeft      =   3090
  7.    ClientTop       =   2700
  8.    ClientWidth     =   5355
  9.    Icon            =   "telefonbuch.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'ZReihenfolge
  14.    ScaleHeight     =   3390
  15.    ScaleWidth      =   5355
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'Bildschirmmitte
  18.    Begin VB.Frame Frame2 
  19.       Caption         =   "Eintrag aufnehmen/bearbeiten"
  20.       Height          =   2715
  21.       Left            =   60
  22.       TabIndex        =   5
  23.       Top             =   60
  24.       Width           =   5232
  25.       Begin VB.TextBox Text1 
  26.          Height          =   360
  27.          Index           =   0
  28.          Left            =   120
  29.          TabIndex        =   0
  30.          Top             =   780
  31.          Width           =   4995
  32.       End
  33.       Begin VB.CheckBox ZeroChk 
  34.          Caption         =   "Bei Anruf im gleichen Land der Vorwahlnummer eine Null voranstellen"
  35.          Height          =   375
  36.          Left            =   120
  37.          TabIndex        =   2
  38.          Top             =   2100
  39.          Width           =   3675
  40.       End
  41.       Begin VB.TextBox Text1 
  42.          Height          =   360
  43.          Index           =   1
  44.          Left            =   120
  45.          TabIndex        =   1
  46.          Top             =   1620
  47.          Width           =   4995
  48.       End
  49.       Begin VB.Label Label1 
  50.          AutoSize        =   -1  'True
  51.          Caption         =   "Name des Teilnehmers (Nachname zuerst):"
  52.          Height          =   195
  53.          Index           =   0
  54.          Left            =   120
  55.          TabIndex        =   7
  56.          Top             =   480
  57.          Width           =   3165
  58.       End
  59.       Begin VB.Label Label1 
  60.          AutoSize        =   -1  'True
  61.          Caption         =   "Internationale Telefonnummer des Teilnehmers:"
  62.          Height          =   195
  63.          Index           =   1
  64.          Left            =   120
  65.          TabIndex        =   6
  66.          Top             =   1320
  67.          Width           =   3405
  68.       End
  69.    End
  70.    Begin VB.CommandButton Command1 
  71.       Caption         =   "&Abbrechen"
  72.       Height          =   435
  73.       Index           =   1
  74.       Left            =   2340
  75.       TabIndex        =   4
  76.       Top             =   2880
  77.       Width           =   1455
  78.    End
  79.    Begin VB.CommandButton Command1 
  80.       Caption         =   "&OK"
  81.       Height          =   435
  82.       Index           =   0
  83.       Left            =   3840
  84.       TabIndex        =   3
  85.       Top             =   2880
  86.       Width           =   1455
  87.    End
  88. Attribute VB_Name = "Form2"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Option Explicit
  94.  Sub Command1_Click(Index As Integer)
  95.     If Index = 0 Then
  96.         If Not ThisIsANewEntry Then DeleteCurrentNameEntry
  97.         'keine leer-eingaben erlauben
  98.         If (Text1(0).Text <> "") And (Text1(1).Text <> "") Then
  99.             Form1.NamList(Form1.TabStrip1.SelectedItem.Index).AddItem Trim(Text1(0).Text) + sep + Trim(Text1(1).Text) + "~" + Chr$(48 + ZeroChk.Value)
  100.         End If
  101.         SaveDataFile
  102.     End If
  103.     Unload Me
  104. End Sub
  105.  Sub Text1_KeyPress(Index As Integer, K As Integer)
  106.     If K = 13 Then
  107.         K = 0
  108.         If Index = 0 Then Text1(1).SetFocus
  109.         If Index = 1 Then Command1(0).SetFocus
  110.     End If
  111. End Sub
  112.