/[cvs]/joko/ToolBox/Windows/VpnDial/src/Form_Main.frm
ViewVC logotype

Diff of /joko/ToolBox/Windows/VpnDial/src/Form_Main.frm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Fri Oct 7 20:58:28 2005 UTC revision 1.3 by joko, Sun Oct 9 18:38:24 2005 UTC
# Line 2  VERSION 5.00 Line 2  VERSION 5.00
2  Begin VB.Form Form_Main  Begin VB.Form Form_Main
3     Caption         =   "VpnDial"     Caption         =   "VpnDial"
4     ClientHeight    =   3525     ClientHeight    =   3525
5     ClientLeft      =   60     ClientLeft      =   165
6     ClientTop       =   345     ClientTop       =   735
7     ClientWidth     =   6450     ClientWidth     =   6450
8       Icon            =   "Form_Main.frx":0000
9     LinkTopic       =   "Form1"     LinkTopic       =   "Form1"
10     ScaleHeight     =   3525     ScaleHeight     =   3525
11     ScaleWidth      =   6450     ScaleWidth      =   6450
# Line 48  Begin VB.Form Form_Main Line 49  Begin VB.Form Form_Main
49        Top             =   60        Top             =   60
50        Width           =   4605        Width           =   4605
51     End     End
52       Begin VB.Menu MenuPopup
53          Caption         =   ""
54          Begin VB.Menu MenuExit
55             Caption         =   "&Exit VpnDial"
56          End
57       End
58  End  End
59  Attribute VB_Name = "Form_Main"  Attribute VB_Name = "Form_Main"
60  Attribute VB_GlobalNameSpace = False  Attribute VB_GlobalNameSpace = False
# Line 59  Attribute VB_Exposed = False Line 66  Attribute VB_Exposed = False
66  Option Explicit  Option Explicit
67    
68  Private Sub Form_Load()  Private Sub Form_Load()
69      Dim rasItem As RasEntryData  '    Dim rasItem As RasEntryData
70      For Each rasItem In RasEntries  '    For Each rasItem In RasEntries
71          List_Connections.AddItem rasItem.entryname  '        List_Connections.AddItem rasItem.entryname
72      Next  '    Next
73    End Sub
74    
75    Private Sub Form_Unload(Cancel As Integer)
76        RemoveTrayIcon
77    End Sub
78    
79    ' TrayIcon specific implementation
80    Private Sub Form_MouseMove(Button As Integer, _
81      Shift As Integer, X As Single, Y As Single)
82      
83      ' Das MouseMove Ereignis wird ausgelöst, wenn die
84      ' Maus über das Symbol im Systray geführt wird
85    
86      Dim lMsg As Long
87      Dim sFilter As String
88      
89      lMsg = X / Screen.TwipsPerPixelX
90      Select Case lMsg
91         Case WM_LBUTTONDOWN
92          ' linke Maustaste wird gedrückt
93          
94         Case WM_LBUTTONUP
95          ' linke Maustaste wird losgelassen
96          'MsgBox "click"
97          
98         Case WM_LBUTTONDBLCLK
99          ' linke Maustaste - Doppelklick
100          
101         Case WM_RBUTTONDOWN
102          ' rechte Maustaste wird gedrückt
103          
104         Case WM_RBUTTONUP
105           ' rechte Maustaste wird losgelassen
106           ' (jetzt z.B. Popup-Menü öffnen)
107           PopupMenu MenuPopup
108          
109         Case WM_RBUTTONDBLCLK
110          ' rechte Maustaste - Doppeklick
111          
112      End Select
113    End Sub
114    
115    Private Sub MenuExit_Click()
116        ' Symbol aus dem Systray entfernen
117        RemoveTrayIcon
118        ' Beenden
119        End
120  End Sub  End Sub
121    
122    
123    
124    
125    ' ==========================================================
126    ' old code from here
127    ' ==========================================================
128    
129    
130  Private Sub Command_Dial_Click()  Private Sub Command_Dial_Click()
131            
132      Dim conName As String, rasItem As RasEntryData      Dim conName As String, rasItem As RasEntryData
# Line 119  Private Sub Command_RouteAdd_Click() Line 181  Private Sub Command_RouteAdd_Click()
181      MsgBox RouteAdd(0, "192.168.11.0", "255.255.255.0", "192.168.13.1")      MsgBox RouteAdd(0, "192.168.11.0", "255.255.255.0", "192.168.13.1")
182  End Sub  End Sub
183    
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed