PC Professionell 1999 October/PCpro_1999_10.ISO/Tools/dialer98/Source/Anbieter.FRM

Visual Basic Form | 1998-04-07 | 9.3 KB | 282 lines

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "comctl32.ocx"
Begin VB.Form Form3
   BorderStyle     =   3  'Fester Dialog
   Caption         =   "Anbieterliste"
   ClientHeight    =   4230
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5370
   Icon            =   "Anbieter.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4230
   ScaleWidth      =   5370
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'Bildschirmmitte
   Begin VB.CommandButton Command1
      Caption         =   "&OK"
      Height          =   435
      Index           =   0
      Left            =   3840
      TabIndex        =   10
      Top             =   3720
      Width           =   1455
   End
   Begin VB.CommandButton Command1
      Caption         =   "&Abbrechen"
      Height          =   435
      Index           =   1
      Left            =   2340
      TabIndex        =   11
      Top             =   3720
      Width           =   1455
   End
   Begin VB.Frame Frame2
      Caption         =   "Eintrag aufnehmen/bearbeiten"
      Height          =   3555
      Left            =   60
      TabIndex        =   12
      Top             =   60
      Width           =   5232
      Begin VB.PictureBox Picture3
         Height          =   615
         Left            =   960
         ScaleHeight     =   555
         ScaleWidth      =   4095
         TabIndex        =   20
         Top             =   2820
         Width           =   4155
         Begin VB.CheckBox ChkWeite
            Caption         =   "Ausland"
            Height          =   255
            Index           =   3
            Left            =   2820
            TabIndex        =   9
            Top             =   180
            Width           =   1095
         End
         Begin VB.CheckBox ChkWeite
            Caption         =   "Fern"
            Height          =   255
            Index           =   2
            Left            =   1440
            TabIndex        =   8
            Top             =   180
            Value           =   1  'Aktiviert
            Width           =   795
         End
         Begin VB.CheckBox ChkWeite
            Caption         =   "Nah"
            Height          =   255
            Index           =   1
            Left            =   180
            TabIndex        =   7
            Top             =   180
            Width           =   795
         End
      End
      Begin VB.PictureBox Picture2
         Height          =   615
         Left            =   960
         ScaleHeight     =   555
         ScaleWidth      =   4095
         TabIndex        =   19
         Top             =   1380
         Width           =   4155
         Begin VB.OptionButton OptTage
            Caption         =   "immer"
            Height          =   255
            Index           =   3
            Left            =   2820
            TabIndex        =   5
            Top             =   180
            Width           =   915
         End
         Begin VB.OptionButton OptTage
            Caption         =   "Sa - So"
            Height          =   255
            Index           =   2
            Left            =   1440
            TabIndex        =   4
            Top             =   180
            Width           =   915
         End
         Begin VB.OptionButton OptTage
            Caption         =   "Mo - Fr"
            Height          =   255
            Index           =   1
            Left            =   180
            TabIndex        =   3
            Top             =   180
            Value           =   -1  'True
            Width           =   915
         End
      End
      Begin VB.PictureBox Picture1
         Height          =   615
         Left            =   960
         ScaleHeight     =   555
         ScaleWidth      =   4095
         TabIndex        =   16
         Top             =   2100
         Width           =   4155
         Begin ComctlLib.Slider TimeSlider
            Height          =   405
            Left            =   840
            TabIndex        =   6
            ToolTipText     =   "Zuerst Startzeit einstellen, dann gleichzeitig [Strg] gedr
ckt halten ..."
            Top             =   60
            Width           =   3255
            _ExtentX        =   5741
            _ExtentY        =   714
            _Version        =   327682
            LargeChange     =   4
            Max             =   24
            SelectRange     =   -1  'True
         End
         Begin VB.Label TimeLbl
            AutoSize        =   -1  'True
            Caption         =   "..."
            Height          =   390
            Left            =   60
            TabIndex        =   17
            Top             =   180
            Width           =   765
            WordWrap        =   -1  'True
         End
      End
      Begin VB.TextBox Text1
         Height          =   360
         Index           =   1
         Left            =   960
         TabIndex        =   2
         Top             =   900
         Width           =   4155
      End
      Begin VB.TextBox Text1
         Height          =   360
         Index           =   0
         Left            =   960
         TabIndex        =   1
         Top             =   420
         Width           =   4155
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Typ des Anrufs:"
         Height          =   390
         Index           =   4
         Left            =   120
         TabIndex        =   0
         Top             =   2940
         Width           =   735
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Zeitraum: (Stunden)"
         Height          =   390
         Index           =   3
         Left            =   120
         TabIndex        =   18
         Top             =   2220
         Width           =   750
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Zeitraum: (Tage)"
         Height          =   390
         Index           =   2
         Left            =   120
         TabIndex        =   15
         Top             =   1500
         Width           =   705
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Netz- nummer:"
         Height          =   390
         Index           =   1
         Left            =   120
         TabIndex        =   14
         Top             =   900
         Width           =   660
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         Caption         =   "Name:"
         Height          =   195
         Index           =   0
         Left            =   120
         TabIndex        =   13
         Top             =   480
         Width           =   465
      End
   End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim SelActive As Boolean
 Sub Command1_Click(Index As Integer)
    If Index = 0 Then 'OK geklickt
        If Not ThisIsANewEntry Then DeleteCurrentProviderEntry
        'keine leer-eingaben erlauben
        If (Text1(0).Text <> "") And (Text1(1).Text <> "") Then
            AddToTelcoList Trim(Text1(0).Text), Trim(Text1(1).Text), _
                -OptTage(3).Value Or -OptTage(1).Value, _
                -OptTage(3).Value Or -OptTage(2).Value, _
                TimeSliderVon, TimeSliderBis, _
                Sgn(ChkWeite(1).Value), Sgn(ChkWeite(2).Value), Sgn(ChkWeite(3).Value)
        End If
        SaveProviderFile
    End If
    Unload Me
End Sub
Private Sub Form_Load()
Dim s As String
    TimeSlider.Value = TimeSliderBis
    TimeSlider.SelStart = TimeSliderVon
    TimeSlider.SelLength = TimeSliderBis - TimeSliderVon
    VonBisNum2Str TimeSliderVon, TimeSliderBis, s
    TimeLbl.Caption = s
End Sub
 Sub Text1_KeyPress(Index As Integer, K As Integer)
    If K = 13 Then
        K = 0
        If Index = 0 Then Text1(1).SetFocus
        If Index = 1 Then Command1(0).SetFocus   '
 -> was anders vorher
    End If
End Sub
 Sub TimeSlider_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SelActive = Shift <> 0
End Sub
 Sub TimeSlider_scroll()
 Dim s As String
    If SelActive Then
        TimeSliderBis = TimeSlider.Value
        If TimeSliderVon > TimeSliderBis Then
            TimeSlider.SelStart = TimeSliderBis
            TimeSliderVon = TimeSliderBis
        Else
            TimeSlider.SelStart = TimeSliderVon
        End If
    Else
        TimeSliderVon = TimeSlider.Value
        TimeSlider.SelStart = TimeSliderVon
        TimeSliderBis = TimeSliderVon
    End If
    TimeSlider.SelLength = TimeSliderBis - TimeSliderVon
    VonBisNum2Str TimeSliderVon, TimeSliderBis, s
    TimeLbl.Caption = s
End Sub