PC Professionell 1999 October

home *** CD-ROM | disk | FTP | other *** search

/ PC Professionell 1999 October / PCpro_1999_10.ISO / Tools / dialer98 / Source / dialer98.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1998-04-10 | 35.8 KB | 1,077 lines

VERSION 5.00 Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX" Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX" Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX" Begin VB.Form Form1 BorderStyle = 3 'Fester Dialog Caption = "Dialer98-Pro" ClientHeight = 4170 ClientLeft = 2430 ClientTop = 1560 ClientWidth = 7395 Icon = "dialer98.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 4170 ScaleWidth = 7395 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte Begin InetCtlsObjects.Inet Inet1 Left = 6120 Top = 120 _ExtentX = 1005 _ExtentY = 1005 _Version = 327681 End Begin VB.Timer DblClkDelay Enabled = 0 'False Interval = 1000 Left = 5160 Top = 0 End Begin VB.PictureBox Picture1 Appearance = 0 '2D BackColor = &H80000005& BorderStyle = 0 'Kein ForeColor = &H80000008& Height = 3252 Index = 5 Left = 120 ScaleHeight = 3255 ScaleWidth = 7095 TabIndex = 20 Top = 480 Width = 7092 Begin VB.Frame Frame5 Caption = "Provider-Liste" Height = 2415 Left = 3240 TabIndex = 45 Top = 840 Width = 3795 Begin VB.CommandButton Btn Caption = "Download" Height = 315 Index = 1 Left = 2400 TabIndex = 46 Top = 1980 Width = 1275 End Begin ComctlLib.ListView TelcoList Height = 1515 Left = 120 TabIndex = 15 ToolTipText = " nderungen ber Kontextmen (rechte Maustaste)" Top = 360 Width = 3555 _ExtentX = 6271 _ExtentY = 2672 View = 3 LabelEdit = 1 Sorted = -1 'True LabelWrap = -1 'True HideSelection = -1 'True _Version = 327682 ForeColor = -2147483640 BackColor = -2147483643 BorderStyle = 1 Appearance = 1 NumItems = 6 BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} Key = "" Object.Tag = "" Text = "Name" Object.Width = 882 EndProperty BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} SubItemIndex = 1 Key = "" Object.Tag = "" Text = "Netz" Object.Width = 18 EndProperty BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} SubItemIndex = 2 Key = "" Object.Tag = "" Text = "Tag" Object.Width = 706 EndProperty BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} SubItemIndex = 3 Key = "" Object.Tag = "" Text = "ab" Object.Width = 353 EndProperty BeginProperty ColumnHeader(5) {0713E8C7-850A-101B-AFC0-4210102A8DA7} SubItemIndex = 4 Key = "" Object.Tag = "" Text = "bis" Object.Width = 353 EndProperty BeginProperty ColumnHeader(6) {0713E8C7-850A-101B-AFC0-4210102A8DA7} SubItemIndex = 5 Key = "" Object.Tag = "" Text = "Weite" Object.Width = 794 EndProperty End Begin VB.Label Label1 Caption = "Update der Provider-Liste ber das Internet (www.zdnet.de)" Height = 435 Index = 10 Left = 120 TabIndex = 47 Top = 1920 Width = 2235 End End Begin VB.Frame WeiterleitenFrame Caption = "Weiterleiten" Height = 735 Left = 60 TabIndex = 32 Top = 2520 Width = 1275 Begin VB.CheckBox UebergabeChk Caption = "ja, an" Height = 255 Left = 120 TabIndex = 4 Top = 360 Width = 735 End Begin VB.TextBox UebergabeNrText Height = 312 Left = 900 TabIndex = 5 Text = "Text5" Top = 300 Width = 255 End End Begin VB.Frame Frame4 Caption = "Modemeinstellungen" Height = 2055 Left = 1380 TabIndex = 31 Top = 0 Width = 1815 Begin VB.ComboBox WahlArtList Height = 315 Left = 900 Style = 2 'Dropdown-Liste TabIndex = 8 Top = 1200 Width = 795 End Begin VB.CommandButton Btn Caption = "Debug" Height = 315 Index = 0 Left = 900 TabIndex = 9 Top = 1620 Width = 795 End Begin VB.ComboBox ComList Height = 315 Left = 900 Style = 2 'Dropdown-Liste TabIndex = 7 Top = 780 Width = 795 End Begin VB.TextBox Text3 Height = 312 Left = 1140 TabIndex = 6 Text = "Text3" Top = 360 Width = 555 End Begin VB.Label Label2 BorderStyle = 1 'Fest Einfach Caption = "AT" Height = 315 Left = 900 TabIndex = 48 Top = 360 Width = 255 End Begin VB.Label Label1 Caption = "Modem- antwort" Height = 375 Index = 7 Left = 120 TabIndex = 42 Top = 1560 Width = 675 End Begin VB.Label Label1 Caption = "Wahlart" Height = 255 Index = 6 Left = 120 TabIndex = 41 Top = 1260 Width = 675 End Begin VB.Label Label1 Caption = "Anschlu Height = 255 Index = 5 Left = 120 TabIndex = 40 Top = 840 Width = 735 End Begin VB.Label Label1 Caption = "Zusatz- befehle" Height = 435 Index = 4 Left = 120 TabIndex = 39 Top = 300 Width = 615 End End Begin VB.Frame Frame3 Caption = "Eintragsgr Height = 1155 Left = 1380 TabIndex = 24 Top = 2100 Width = 1815 Begin VB.PictureBox FntFrm Height = 735 Left = 900 ScaleHeight = 675 ScaleWidth = 735 TabIndex = 33 Top = 300 Width = 795 Begin VB.Label FntSmpl Alignment = 2 'Zentriert Appearance = 0 '2D AutoSize = -1 'True BackColor = &H80000005& BackStyle = 0 'Transparent Caption = "Aa" ForeColor = &H80000008& Height = 195 Left = 180 TabIndex = 34 Top = 180 Width = 225 End End Begin ComctlLib.Slider Slider1 Height = 675 Left = 180 TabIndex = 10 Top = 300 Width = 405 _ExtentX = 714 _ExtentY = 1191 _Version = 327682 Orientation = 1 LargeChange = 1 Min = 6 Max = 24 SelStart = 10 TickFrequency = 4 Value = 10 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "_" Height = 195 Index = 9 Left = 660 TabIndex = 44 Top = 600 Width = 90 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "+" Height = 195 Index = 8 Left = 660 TabIndex = 43 Top = 360 Width = 90 End End Begin VB.Frame Frame2 Caption = "Kartennamen" Height = 795 Left = 3240 TabIndex = 23 Top = 0 Width = 3795 Begin VB.TextBox Text2 Height = 312 Index = 4 Left = 2820 TabIndex = 14 Text = "Text2" Top = 360 Width = 855 End Begin VB.TextBox Text2 Height = 312 Index = 3 Left = 1920 TabIndex = 13 Text = "Text2" Top = 360 Width = 915 End Begin VB.TextBox Text2 Height = 312 Index = 2 Left = 1020 TabIndex = 12 Text = "Text2" Top = 360 Width = 915 End Begin VB.TextBox Text2 Height = 312 Index = 1 Left = 120 TabIndex = 11 Text = "Text2" Top = 360 Width = 915 End End Begin VB.Frame Frame1 Caption = "Pr fixzahlen" Height = 1215 Index = 0 Left = 60 TabIndex = 22 Top = 1260 Width = 1275 Begin VB.TextBox Text1 Height = 312 Index = 1 Left = 600 TabIndex = 2 Text = "Text1" Top = 360 Width = 555 End Begin VB.TextBox Text1 Height = 312 Index = 0 Left = 600 TabIndex = 3 Text = "Text1" Top = 780 Width = 555 End Begin VB.Label Label1 Caption = "Aus- land" Height = 435 Index = 3 Left = 120 TabIndex = 38 Top = 300 Width = 375 End Begin VB.Label Label1 Caption = "Amt" Height = 195 Index = 2 Left = 120 TabIndex = 37 Top = 840 Width = 375 End End Begin VB.Frame Frame1 Caption = "Kennzahlen" Height = 1215 Index = 2 Left = 60 TabIndex = 21 Top = 0 Width = 1275 Begin VB.TextBox Text1 Height = 312 Index = 3 Left = 600 TabIndex = 1 Text = "Text1" Top = 780 Width = 555 End Begin VB.TextBox Text1 Height = 312 Index = 2 Left = 600 TabIndex = 0 Text = "Text1" Top = 360 Width = 555 End Begin VB.Label Label1 Caption = "Ort" Height = 195 Index = 1 Left = 120 TabIndex = 36 Top = 840 Width = 495 End Begin VB.Label Label1 Caption = "Land" Height = 195 Index = 0 Left = 120 TabIndex = 35 Top = 420 Width = 495 End End End Begin VB.PictureBox Picture1 Appearance = 0 '2D BackColor = &H80000005& BorderStyle = 0 'Kein ForeColor = &H80000008& Height = 972 Index = 3 Left = 2520 ScaleHeight = 975 ScaleWidth = 1875 TabIndex = 29 Top = 2760 Width = 1872 Begin VB.ListBox NamList DragIcon = "dialer98.frx":0442 BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 492 Index = 3 IntegralHeight = 0 'False Left = 120 Sorted = -1 'True TabIndex = 30 Top = 120 Width = 1512 End End Begin VB.PictureBox Picture1 Appearance = 0 '2D BackColor = &H80000005& BorderStyle = 0 'Kein ForeColor = &H80000008& Height = 1032 Index = 2 Left = 540 ScaleHeight = 1035 ScaleWidth = 1575 TabIndex = 27 Top = 2700 Width = 1572 Begin VB.ListBox NamList DragIcon = "dialer98.frx":0884 BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 672 Index = 2 IntegralHeight = 0 'False Left = 180 Sorted = -1 'True TabIndex = 28 Top = 60 Width = 1092 End End Begin VB.PictureBox Picture1 Appearance = 0 '2D BackColor = &H80000005& BorderStyle = 0 'Kein ForeColor = &H80000008& Height = 1452 Index = 4 Left = 5040 ScaleHeight = 1455 ScaleWidth = 1695 TabIndex = 25 Top = 2280 Width = 1692 Begin VB.ListBox NamList DragIcon = "dialer98.frx":0CC6 BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 792 Index = 4 IntegralHeight = 0 'False Left = 120 Sorted = -1 'True TabIndex = 26 Top = 180 Width = 1212 End End Begin VB.PictureBox Picture1 Appearance = 0 '2D BackColor = &H80000005& BorderStyle = 0 'Kein ForeColor = &H80000008& Height = 3255 Index = 1 Left = 120 ScaleHeight = 3255 ScaleWidth = 7095 TabIndex = 18 Top = 480 Width = 7095 Begin VB.ListBox NamList DragIcon = "dialer98.frx":1108 BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 3135 Index = 1 IntegralHeight = 0 'False Left = 60 Sorted = -1 'True TabIndex = 19 Top = 60 Width = 7035 End End Begin ComctlLib.TabStrip TabStrip1 Height = 3795 Left = 60 TabIndex = 17 Top = 60 Width = 7275 _ExtentX = 12832 _ExtentY = 6694 _Version = 327682 BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} NumTabs = 5 BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} Caption = "B ro 1" Key = "" Object.Tag = "" ImageVarType = 2 EndProperty BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} Caption = "B ro 2" Key = "" Object.Tag = "" ImageVarType = 2 EndProperty BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} Caption = "Privat 1" Key = "" Object.Tag = "" ImageVarType = 2 EndProperty BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7} Caption = "Privat 2" Key = "" Object.Tag = "" ImageVarType = 2 EndProperty BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7} Caption = "Optionen" Key = "" Object.Tag = "" ImageVarType = 2 EndProperty EndProperty End Begin ComctlLib.StatusBar StatusBar1 Align = 2 'Unten ausrichten Height = 270 Left = 0 TabIndex = 16 Top = 3900 Width = 7395 _ExtentX = 13044 _ExtentY = 476 Style = 1 SimpleText = "Doppelklick f r Anwahl oder rechte Maustaste f r Men _Version = 327682 BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} NumPanels = 1 BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} Key = "" Object.Tag = "" EndProperty EndProperty End Begin MSCommLib.MSComm Comm Left = 5940 Top = 120 _ExtentX = 688 _ExtentY = 688 _Version = 327681 DTREnable = -1 'True RThreshold = 1 End Begin VB.Menu pummain Caption = "Namensliste" Visible = 0 'False Begin VB.Menu pum Caption = "&Einf Index = 1 End Begin VB.Menu pum Caption = "& ndern" Index = 2 End Begin VB.Menu pum Caption = "&L schen" Index = 3 End Begin VB.Menu pum Caption = "-" Index = 4 End Begin VB.Menu pum Caption = "&Abbrechen" Index = 5 End End Begin VB.Menu pummain2 Caption = "Taskleiste" Visible = 0 'False Begin VB.Menu pum2 Caption = "&Einblenden" Index = 1 End Begin VB.Menu pum2 Caption = "&Info" Index = 2 End Begin VB.Menu pum2 Caption = "-" Index = 3 End Begin VB.Menu pum2 Caption = "&Beenden" Index = 4 End Begin VB.Menu pum2 Caption = "-" Index = 5 End Begin VB.Menu pum2 Caption = "&Abbrechen" Index = 6 End End Begin VB.Menu pummain3 Caption = "Anbieter" Visible = 0 'False Begin VB.Menu pum3 Caption = "&Einf Index = 1 End Begin VB.Menu pum3 Caption = "& ndern" Index = 2 End Begin VB.Menu pum3 Caption = "&L schen" Index = 3 End Begin VB.Menu pum3 Caption = "-" Index = 4 End Begin VB.Menu pum3 Caption = "&Abbrechen" Index = 5 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Sub Btn_Click(Index As Integer) Select Case Index Case 1 DownloadUpdateFile Case 0 If RcvString = "" Then RcvString = "(keine R ckmeldung)" MsgBox "Das Modem gab nach der letzten Anwahl folgende Zeichenkette zur ck:" + vbCr + vbCr + RcvString, 64, Title End Select End Sub Sub Comm_OnComm() If Comm.PortOpen Then RcvString = RcvString + UCase$(Comm.Input) 'Debug.Print ">"; RcvString; "<" If InStr(RcvString, "OK") Then Comm.PortOpen = False Unload Form4 End If End If End Sub Sub Form_Load() Dim i As Integer Dim a As Single For i = 1 To 4 ComList.AddItem "COM" & i Next WahlArtList.AddItem "Ton" WahlArtList.AddItem "Puls" For i = 1 To 5 Picture1(i).BackColor = BackColor Next For i = 2 To 5 Picture1(i).Top = Picture1(1).Top Picture1(i).Left = Picture1(1).Left Picture1(i).Width = Picture1(1).Width Picture1(i).Height = Picture1(1).Height Next For i = 2 To 4 NamList(i).Top = NamList(1).Top NamList(i).Left = NamList(1).Left NamList(i).Width = NamList(1).Width NamList(i).Height = NamList(1).Height Next Caption = Title ShowSysTrayIcon Me, 0, Icon, Title WindowState = 0 Hide InitMyApp ' Show 'dev only! End Sub Sub Form_Terminate() KillSysTrayIcon Me, 0 End Sub Sub Form_Unload(Cancel As Integer) If PicActiv = OptionPic Then SaveOptionControls End Sub Sub NamList_Click(Index As Integer) Status TelefonNummer(NamList(Index).List(NamList(Index).ListIndex)) End Sub Sub NamList_DblClick(Index As Integer) Dial End Sub Sub NamList_KeyPress(Index As Integer, Key As Integer) If ((Key = 13) Or (Key = 32)) Then Dial End Sub Sub NamList_LostFocus(Index As Integer) If Not ExternalWindowActive Then TabStrip1.SetFocus End Sub Sub NamList_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then If NamList(Index).ListIndex >= 0 Then pum(2).Enabled = True pum(3).Enabled = True Else pum(2).Enabled = False pum(3).Enabled = False End If PopupMenu pummain, , , , pum(5) StatusListe End If End Sub Public Sub LoadOptionControls() Dim i As Integer Text1(0).Text = AmtPrefix Text1(1).Text = AuslandPrefix Text1(2).Text = LandesKennZahl Text1(3).Text = OrtsKennZahl ComList.ListIndex = CommPortNummer - 1 WahlArtList.ListIndex = PulsWahl UebergabeChk.Value = MacheUebergabe For i = 1 To 4 Text2(i).Text = TabStrip1.Tabs(i).Caption Next Text3.Text = ZusModemBefehleVorDerWahl UebergabeNrText.Text = UebergabeTelNr Slider1.Value = Slider1.Max - NamList(1).Font.Size + Slider1.Min FntSmpl.Font.Name = NamList(1).Font.Name UpdateFntSmpl End Sub Public Sub SaveOptionControls() Dim i As Integer AmtPrefix = Trim(Text1(0).Text) AuslandPrefix = Trim(Text1(1).Text) LandesKennZahl = Format$(Val(Text1(2).Text)) 'Format$(Val(... wurde eingebaut, um OrtsKennZahl = Format$(Val(Text1(3).Text)) 'die evtl Vornullen herauszuwerfen ZusModemBefehleVorDerWahl = Text3.Text UebergabeTelNr = UebergabeNrText.Text MacheUebergabe = UebergabeChk.Value CommPortNummer = ComList.ListIndex + 1 PulsWahl = WahlArtList.ListIndex For i = 1 To 4 TabStrip1.Tabs(i).Caption = Text2(i).Text NamList(i).Font.Size = FntSmpl.Font.Size Next SaveDataFile End Sub Sub Slider1_Scroll() UpdateFntSmpl End Sub Sub UpdateFntSmpl() FntSmpl.Font.Size = Slider1.Max - Slider1.Value + Slider1.Min FntSmpl.Top = (FntFrm.Height - FntSmpl.Height) / 2 FntSmpl.Left = (FntFrm.Width - FntSmpl.Width) / 2 End Sub Sub TabStrip1_Click() Dim TabClicked As Integer TabClicked = TabStrip1.SelectedItem.Index Picture1(TabClicked).ZOrder 0 If TabClicked = OptionsTab Then If PicActiv <> OptionPic Then LoadOptionControls Status "Bitte gew nschte nderungen vornehmen" Text1(2).SetFocus End If If PicActiv = OptionPic Then SaveOptionControls StatusListe End If NamList(TabClicked).SetFocus End If PicActiv = TabClicked End Sub Public Sub StatusListe() Status "Doppelklick f r Anwahl oder rechte Maustaste f r Men End Sub Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then Cancel = -1 Hide Else If PicActiv = OptionPic Then SaveOptionControls End If End If End Sub Sub pum_Click(i As Integer) '########## EDIT NAME Dim s As String Dim n As String Dim t As String Select Case i Case 1 ' Einf EditNameEntry "", "", 1 Case 2 ' ndern s = Form1.NamList(Form1.TabStrip1.SelectedItem.Index).List(Form1.NamList(Form1.TabStrip1.SelectedItem.Index).ListIndex) n = Teilnehmername(s) t = TelefonNummer(s) EditNameEntry n, t, ZeroFlag(s) Case 3 'l schen s = NamList(TabStrip1.SelectedItem.Index).List(Form1.NamList(TabStrip1.SelectedItem.Index).ListIndex) If 6 = MsgBox("Soll der folgende Eintrag wirklich gel scht werden?" + vbCr + vbCr + Teilnehmername(s) + " (" + TelefonNummer(s) + ")", 4 + 32 + 256, "Eintrag l schen") Then DeleteCurrentNameEntry SaveDataFile End If End Select End Sub Sub pum2_Click(i As Integer) '### TRAY PUM Select Case i Case 1 ' zeigen If ExternalWindowActive Then Beep Else Show Case 2 'info ShowInfo Case 4 'beenden Unload Me End Select End Sub Private Sub pum3_Click(i As Integer) '### EDIT PROVIDER Dim s As String Dim d As String Select Case i Case 1 ' Einf EditProviderEntry "", "", 1, 9, 18, 0, 1, 0 Case 2 ' ndern With Form1.TelcoList.ListItems(CurrTelcoEntry) s = .SubItems(siTag) d = .SubItems(siWeite) EditProviderEntry .Text, .SubItems(siVorwahl), _ (-(s = cTagImmer) Or -(s = cTagWerktags)) Or 2 * (-(s = cTagImmer) Or -(s = cTagWochenende)), _ Val(.SubItems(siAb)), Val(.SubItems(siBis)), _ -(InStr(d, "N") <> 0), -(InStr(d, "F") <> 0), -(InStr(d, "A") <> 0) End With Case 3 'l schen If 6 = MsgBox("Soll der folgende Eintrag wirklich gel scht werden?" + vbCr + vbCr + Form1.TelcoList.ListItems(CurrTelcoEntry).Text + " (" + Form1.TelcoList.ListItems(CurrTelcoEntry).SubItems(siVorwahl) + ")", 4 + 32 + 256, "Eintrag l schen") Then DeleteCurrentProviderEntry SaveProviderFile End If End Select End Sub 'Kommt innerhalb einer Sekunde kein DBLCLICK-Event, dann ist es ein SINGLECLICK Sub DblClkDelay_Timer() DblClkDelay.Enabled = False NiKeyEvent NiKeyEventButtonID Or NiKeyEventDblClickFlag End Sub 'Eventverteiler -> hiermit Anwenderfunktionen aufrufen lassen Sub NiKeyEvent(iKeyEvent As Integer) Select Case iKeyEvent Case cLeftClick Debug.Print "cLeftClick" If ExternalWindowActive Then Beep Else Show Case cRightClick Debug.Print "cRightClick" PopupMenu pummain2, , , , pum2(6) Case cLeftDblClick Debug.Print "cLeftDblClick" If ExternalWindowActive Then Beep Else Show Case cRightDblClick Debug.Print "cRightDblClick" Beep End Select End Sub 'die M chtegern-Call-back-Funktion Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case X \ Screen.TwipsPerPixelX Case WM_LBUTTONDOWN NiKeyEventDblClickFlag = 0 NiKeyEventButtonID = 1 DblClkDelay.Enabled = False DblClkDelay.Enabled = True Case WM_RBUTTONDOWN NiKeyEventDblClickFlag = 0 NiKeyEventButtonID = 2 DblClkDelay.Enabled = False DblClkDelay.Enabled = True Case WM_LBUTTONDBLCLK, WM_RBUTTONDBLCLK NiKeyEventDblClickFlag = &H100 End Select End Sub 'Funktion zum Hinzuf gen eines Icons Public Sub ShowSysTrayIcon(niForm As Form, niID As Long, niIcon As Long, niText As String) NotifyIcon NIM_ADD, niForm, niID, niIcon, niText End Sub 'Funktion zum ndern eines Icons Public Sub ChangeSysTrayIcon(niForm As Form, niID As Long, niIcon As Long, niText As String) NotifyIcon NIM_MODIFY, niForm, niID, niIcon, niText End Sub 'Funktion zum L schen eines Icons Public Sub KillSysTrayIcon(niForm As Form, niID As Long) NotifyIcon NIM_DELETE, niForm, niID, vbNull, "" End Sub 'NotifyIcon-API-Aufruf Public Sub NotifyIcon(niCmd As Long, niForm As Form, niID As Long, niIcon As Long, niText As String) Dim niData As NOTIFYICONDATA Dim rc As Integer niData.cbSize = Len(niData) niData.hWnd = niForm.hWnd niData.uId = niID niData.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP niData.uCallBackMessage = WM_MOUSEMOVE niData.hIcon = niIcon niData.szTip = Left$(niText, 63) & vbNullChar rc = Shell_NotifyIconA(niCmd, niData) End Sub Sub TelcoList_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader) Static LastColumnClicked As Integer Debug.Print "Liste_ColumnClick"; ColumnHeader.Index If LastColumnClicked = ColumnHeader.Index Then '### click auf gleiche pos -> sortierung umkehren TelcoList.SortOrder = TelcoList.SortOrder + 1 And 1 Else LastColumnClicked = ColumnHeader.Index TelcoList.SortKey = ColumnHeader.Index - 1 TelcoList.Sorted = True End If End Sub Private Sub TelcoList_DblClick() 'ruft entweder einf gen oder ndern auf CurrTelcoEntry = SelectedItemIndex(TelcoList) pum3_Click 1 + Sgn(CurrTelcoEntry) End Sub Private Sub TelcoList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then ActivateTelcoPum End Sub Private Sub UebergabeChk_Click() UebergabeNrText.Enabled = UebergabeChk.Value <> 0 End Sub Private Sub WahlArtList_Click() Dim X As Boolean X = WahlArtList.ListIndex = 0 WeiterleitenFrame.Enabled = X UebergabeChk.Enabled = X UebergabeNrText.Enabled = X And (UebergabeChk.Value <> 0) End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) If State = 11 Then UpdateFailed = True MsgBox Inet1.ResponseInfo & vbCr & vbCr & "(Code " & Inet1.ResponseCode & ")", vbCritical, UpdateTitle End If End Sub