'***************************************************************************
|
'* Form frmMain *
|
'* *
|
'* This is the main entry of the application. *
|
'* When the app is open, it reads the sos phone list from the config *
|
'* file and creates a collection of hidden windows to serve as interface *
|
'* for each sos phone. *
|
'* A log is maintained to keep trace of the messages interchanged between *
|
'* the application and the E301 modules. *
|
'* *
|
'* EQUITEL C.V. February 2007 ALMDI*
|
'***************************************************************************
|
|
Public Class frmMain
|
Private SosPhoneWindows As New Collection
|
Private Delegate Sub TBLoggerUpdateCallBack(ByVal S As String)
|
|
#Region "Form behaviour"
|
|
Const SWP_NOSIZE As Short = &H1
|
Const SWP_NOMOVE As Short = &H2
|
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal ByValcx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
|
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
|
|
|
Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
SosPhoneList.DisplayMember = "Name"
|
BtnOpenSosPhone.Enabled = False
|
'MsgBox("COUNT " & My.Application.CommandLineArgs.Count)
|
Dim i As Integer
|
Dim ipSOS As String
|
Dim hwndParent As Integer
|
Dim windowName As String
|
hwndParent = My.Application.CommandLineArgs.Item(0)
|
ipSOS = My.Application.CommandLineArgs.Item(1)
|
windowName = My.Application.CommandLineArgs.Item(2)
|
|
Dim SosPhoneWindow As frmSosPhone
|
SosPhoneWindow = New frmSosPhone(ipSOS, 1, ipSOS)
|
'It is necessary to show and hide the forms to get them fully created
|
'(need more study...)
|
SosPhoneWindow.Show()
|
SosPhoneWindow.Hide()
|
|
''''''''''SosPhoneWindow.mSosPhone.SendMessage2(ACK_DEM_USE, P_MAS, 0)
|
|
|
'Mapping of frmSosPhone events that must do an action in this window.
|
AddHandler SosPhoneWindow.Log, AddressOf OnLog
|
AddHandler SosPhoneWindow.ConnectionSuccessful, AddressOf OnConnectionSuccessful
|
AddHandler SosPhoneWindow.ConnectionFailed, AddressOf OnConnectionFailed
|
'Add the window to the collection
|
SosPhoneWindows.Add(SosPhoneWindow)
|
'And add the reference to the SosPhone embedded in the window to the list
|
SosPhoneList.Items.Add(SosPhoneWindow.mSosPhone)
|
|
Hide()
|
|
'SosPhoneWindow.mSosPhone.SendMessage(ACK_DEM_USE, P_MAS, 0)
|
|
SosPhoneWindow.mSosPhone.AudioOn(P_MAS, windowName)
|
SosPhoneWindow.lblIncomingCall.Visible = False
|
SosPhoneWindow.TimerFlashLabel.Enabled = False
|
'When audio starts, the microphone volume is always the maximum
|
SosPhoneWindow.SliderVolMic.Value = 7
|
SosPhoneWindow.LblVolMic.Text = "7"
|
|
SetParent(Me.Handle, hwndParent)
|
SetParent(SosPhoneWindow.Handle, hwndParent)
|
|
SetParent(SosPhoneWindow.mSosPhone.AudioWindow.Handle, hwndParent)
|
|
'ReadConfiguration()
|
End Sub
|
|
Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
|
Hide()
|
SosPhoneList.Refresh()
|
End Sub
|
|
Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
End
|
End Sub
|
|
Private Sub Form_HelpButtonClicked(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.HelpButtonClicked
|
Dim F As New Form
|
F = AboutBox
|
F.ShowDialog()
|
e.Cancel = True
|
End Sub
|
|
Private Sub SosPhoneList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SosPhoneList.Click
|
BtnOpenSosPhone.Enabled = True
|
End Sub
|
|
Private Sub SosPhoneList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles SosPhoneList.DoubleClick
|
SosPhoneWindows(SosPhoneList.SelectedIndex + 1).Show()
|
SosPhoneWindows(SosPhoneList.SelectedIndex + 1).Activate()
|
End Sub
|
|
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
|
Me.Close()
|
End Sub
|
|
Private Sub BtnClearLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClearLog.Click
|
TBLogger.Clear()
|
End Sub
|
|
Private Sub BtnOpenSosPhone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpenSosPhone.Click
|
SosPhoneWindows(SosPhoneList.SelectedIndex + 1).Show()
|
End Sub
|
|
#End Region
|
|
#Region "Sos phone list creation"
|
|
Private Sub ReadConfiguration()
|
'Reads the sos phone list (and other configurations) from a text file.
|
'The format and syntax is explained in that file.
|
Dim I As System.IO.FileInfo
|
Dim Field(255) As String
|
Const ConfigurationFile As String = "E301_Control_Demo.ini"
|
I = My.Computer.FileSystem.GetFileInfo(ConfigurationFile)
|
If Not I.Exists Then
|
MsgBox("ERROR: Can't find " + I.FullName + " file", MsgBoxStyle.Critical)
|
End
|
End If
|
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(ConfigurationFile)
|
MyReader.TextFieldType = FileIO.FieldType.Delimited
|
MyReader.HasFieldsEnclosedInQuotes = True
|
MyReader.SetDelimiters(" ")
|
While Not MyReader.EndOfData
|
Try
|
Field = MyReader.ReadFields()
|
If UCase(Field(0)) = "SOS" Then
|
If UBound(Field) <> 2 Then
|
MsgBox("Incorrect number of fields in SOS Phone definition in ini file")
|
Else
|
CreateSosPhoneWindow(Field(1), Field(2))
|
End If
|
End If
|
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
|
If Mid(Field(0), 1, 1) <> "#" Then
|
MsgBox("Configuration file. Syntax error: " & ex.Message)
|
End If
|
End Try
|
End While
|
End Using
|
End Sub
|
|
Private Sub CreateSosPhoneWindow(ByVal Ip As String, ByVal Description As String)
|
'Create a new SOS phone window
|
Dim SosPhoneWindow As frmSosPhone
|
Static N As Integer = 1
|
'Create the window
|
SosPhoneWindow = New frmSosPhone(Ip, N, Description)
|
'It is necessary to show and hide the forms to get them fully created
|
'(need more study...)
|
SosPhoneWindow.Show()
|
SosPhoneWindow.Hide()
|
'Mapping of frmSosPhone events that must do an action in this window.
|
AddHandler SosPhoneWindow.Log, AddressOf OnLog
|
AddHandler SosPhoneWindow.ConnectionSuccessful, AddressOf OnConnectionSuccessful
|
AddHandler SosPhoneWindow.ConnectionFailed, AddressOf OnConnectionFailed
|
'Add the window to the collection
|
SosPhoneWindows.Add(SosPhoneWindow)
|
'And add the reference to the SosPhone embedded in the window to the list
|
SosPhoneList.Items.Add(SosPhoneWindow.mSosPhone)
|
N = N + 1
|
End Sub
|
#End Region
|
|
#Region "Event trapping"
|
Private Sub OnConnectionFailed(ByVal sender As Object, ByVal e As EventArgs)
|
SosPhoneList.MyRefresh()
|
End Sub
|
|
Private Sub OnConnectionSuccessful(ByVal sender As Object, ByVal e As EventArgs)
|
SosPhoneList.MyRefresh()
|
End Sub
|
|
Private Sub OnLog(ByVal sender As Object, ByVal e As TxtEventArgs)
|
TBLoggerUpdate(e.TxtLog + vbCrLf)
|
End Sub
|
|
Private Sub TBLoggerUpdate(ByVal S As String)
|
If TBLogger.InvokeRequired Then
|
Dim d As New TBLoggerUpdateCallBack(AddressOf TBLoggerUpdate)
|
Me.Invoke(d, S)
|
Else
|
TBLogger.AppendText(S)
|
End If
|
End Sub
|
|
#End Region
|
|
End Class
|
