home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD89038122000.psc / frmSessionController.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2000-08-12  |  20.6 KB  |  594 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmSessionController 
  4.    BackColor       =   &H00FFC0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Session Controller"
  7.    ClientHeight    =   5520
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   4350
  11.    Icon            =   "frmSessionController.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5520
  16.    ScaleWidth      =   4350
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin MSComctlLib.ImageList imlListIcons 
  19.       Left            =   3720
  20.       Top             =   960
  21.       _ExtentX        =   1005
  22.       _ExtentY        =   1005
  23.       BackColor       =   -2147483643
  24.       ImageWidth      =   16
  25.       ImageHeight     =   16
  26.       MaskColor       =   12632256
  27.       _Version        =   393216
  28.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  29.          NumListImages   =   5
  30.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "frmSessionController.frx":0442
  32.             Key             =   "NewTimeOut"
  33.          EndProperty
  34.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "frmSessionController.frx":0896
  36.             Key             =   "ResumoMensal"
  37.          EndProperty
  38.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "frmSessionController.frx":0CEA
  40.             Key             =   "Esconder"
  41.          EndProperty
  42.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "frmSessionController.frx":113E
  44.             Key             =   "Sair"
  45.          EndProperty
  46.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "frmSessionController.frx":145A
  48.             Key             =   "Lingua"
  49.          EndProperty
  50.       EndProperty
  51.    End
  52.    Begin MSComctlLib.Toolbar tlbFun
  53.       Align           =   1  'Align Top
  54.       Height          =   420
  55.       Left            =   0
  56.       TabIndex        =   6
  57.       Top             =   0
  58.       Width           =   4350
  59.       _ExtentX        =   7673
  60.       _ExtentY        =   741
  61.       ButtonWidth     =   609
  62.       ButtonHeight    =   582
  63.       Appearance      =   1
  64.       ImageList       =   "imlListIcons"
  65.       _Version        =   393216
  66.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  67.          NumButtons      =   5
  68.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Key             =   "NewTimeOut"
  70.             ImageIndex      =   1
  71.          EndProperty
  72.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  73.             Key             =   "ResumoMensal"
  74.             ImageIndex      =   2
  75.          EndProperty
  76.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  77.             Key             =   "Esconder"
  78.             ImageIndex      =   3
  79.          EndProperty
  80.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  81.             Key             =   "Lingua"
  82.             ImageIndex      =   5
  83.          EndProperty
  84.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  85.             Key             =   "Sair"
  86.             ImageIndex      =   4
  87.          EndProperty
  88.       EndProperty
  89.    End
  90.    Begin VB.Timer tmrConect 
  91.       Enabled         =   0   'False
  92.       Interval        =   60000
  93.       Left            =   0
  94.       Top             =   1440
  95.    End
  96.    Begin VB.Timer Timer1 
  97.       Left            =   960
  98.       Top             =   1320
  99.    End
  100.    Begin VB.ListBox List1 
  101.       BackColor       =   &H00C0FFFF&
  102.       BeginProperty Font 
  103.          Name            =   "Courier New"
  104.          Size            =   8.25
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   3210
  112.       Left            =   120
  113.       TabIndex        =   0
  114.       Top             =   1680
  115.       Width           =   4095
  116.    End
  117.    Begin VB.Label lblTempoTotal 
  118.       Alignment       =   2  'Center
  119.       Appearance      =   0  'Flat
  120.       BackColor       =   &H00C0E0FF&
  121.       BorderStyle     =   1  'Fixed Single
  122.       Caption         =   " Tempo total conectado: hh:mm:ss "
  123.       ForeColor       =   &H80000008&
  124.       Height          =   375
  125.       Left            =   720
  126.       TabIndex        =   5
  127.       Top             =   5040
  128.       Visible         =   0   'False
  129.       Width           =   2895
  130.    End
  131.    Begin VB.Label lblTimeOut 
  132.       Alignment       =   2  'Center
  133.       AutoSize        =   -1  'True
  134.       Caption         =   " Tempo restante: nn minutos "
  135.       BeginProperty Font 
  136.          Name            =   "Courier New"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   210
  145.       Left            =   600
  146.       TabIndex        =   4
  147.       Top             =   1320
  148.       Visible         =   0   'False
  149.       Width           =   2940
  150.    End
  151.    Begin VB.Label lblTempoConex
  152.       Alignment       =   2  'Center
  153.       AutoSize        =   -1  'True
  154.       Caption         =   "  Tempo de conex
  155. o: hh:mm:ss  "
  156.       BeginProperty Font 
  157.          Name            =   "Courier New"
  158.          Size            =   8.25
  159.          Charset         =   0
  160.          Weight          =   400
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Height          =   210
  166.       Left            =   480
  167.       TabIndex        =   3
  168.       Top             =   960
  169.       Visible         =   0   'False
  170.       Width           =   3150
  171.    End
  172.    Begin VB.Label Label2 
  173.       Appearance      =   0  'Flat
  174.       BackColor       =   &H00FFFFFF&
  175.       BeginProperty Font 
  176.          Name            =   "MS Sans Serif"
  177.          Size            =   8.25
  178.          Charset         =   0
  179.          Weight          =   700
  180.          Underline       =   0   'False
  181.          Italic          =   0   'False
  182.          Strikethrough   =   0   'False
  183.       EndProperty
  184.       ForeColor       =   &H008080FF&
  185.       Height          =   255
  186.       Left            =   1920
  187.       TabIndex        =   2
  188.       Top             =   600
  189.       Width           =   1785
  190.    End
  191.    Begin VB.Label Label1 
  192.       Alignment       =   1  'Right Justify
  193.       Appearance      =   0  'Flat
  194.       BackColor       =   &H00C0E0FF&
  195.       Caption         =   "Situa
  196. o atual:"
  197.       BeginProperty Font 
  198.          Name            =   "MS Sans Serif"
  199.          Size            =   8.25
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       ForeColor       =   &H80000008&
  207.       Height          =   255
  208.       Left            =   360
  209.       TabIndex        =   1
  210.       Top             =   600
  211.       Width           =   1560
  212.    End
  213.    Begin VB.Menu PopMenu01 
  214.       Caption         =   "PopMenu"
  215.       Visible         =   0   'False
  216.       Begin VB.Menu mnuTelaInicial 
  217.          Caption         =   "&Mostrar Tela Inicial ..."
  218.       End
  219.       Begin VB.Menu mnuEncerrar 
  220.          Caption         =   "Ence&rrar"
  221.       End
  222.    End
  223. Attribute VB_Name = "frmSessionController"
  224. Attribute VB_GlobalNameSpace = False
  225. Attribute VB_Creatable = False
  226. Attribute VB_PredeclaredId = True
  227. Attribute VB_Exposed = False
  228. Option Explicit
  229.       Public strStatus As String
  230.       Dim strMsgFinal As String
  231.       Dim strMsgConfirma
  232. o As String
  233.       Dim strMsgLinguagem As String
  234.       Dim dtaTempoTotal As Date
  235.       Dim strNaoConectado As String
  236.       Dim strConectado As String
  237.       Dim strTempoDeConex
  238. o As String
  239.       Dim strTempoTotalConectado As String
  240.       'Declare a user-defined variable to pass to the Shell_NotifyIcon
  241.       'function.
  242.       Private Type NOTIFYICONDATA
  243.          cbSize As Long
  244.          hWnd As Long
  245.          uId As Long
  246.          uFlags As Long
  247.          uCallBackMessage As Long
  248.          hIcon As Long
  249.          szTip As String * 64
  250.       End Type
  251.       'Declare the constants for the API function.
  252.       'These constants can befound in the header file Shellapi.h.
  253.       'The following constants are the messages sent to the
  254.       'Shell_NotifyIcon function to add, modify, or delete an icon from the
  255.       'taskbar status area.
  256.       Private Const NIM_ADD = &H0
  257.       Private Const NIM_MODIFY = &H1
  258.       Private Const NIM_DELETE = &H2
  259.       'The following constant is the message sent when a mouse event occurs
  260.       'within the rectangular boundaries of the icon in the taskbar status
  261.       'area.
  262.       Private Const WM_MOUSEMOVE = &H200
  263.       'The following constants are the flags that indicate the valid
  264.       'members of the NOTIFYICONDATA data type.
  265.       Private Const NIF_MESSAGE = &H1
  266.       Private Const NIF_ICON = &H2
  267.       Private Const NIF_TIP = &H4
  268.       'The following constants are used to determine the mouse input on the
  269.       'the icon in the taskbar status area.
  270.       'Left-click constants.
  271.       Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
  272.       Private Const WM_LBUTTONDOWN = &H201     'Button down
  273.       Private Const WM_LBUTTONUP = &H202       'Button up
  274.       'Right-click constants.
  275.       Private Const WM_RBUTTONDBLCLK = &H206   'Double-click
  276.       Private Const WM_RBUTTONDOWN = &H204     'Button down
  277.       Private Const WM_RBUTTONUP = &H205       'Button up
  278.       'Declare the API function call.
  279.       Private Declare Function Shell_NotifyIcon Lib "shell32" _
  280.          Alias "Shell_NotifyIconA" _
  281.          (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  282.       'Dimension a variable as the user-defined data type.
  283.       Dim nid As NOTIFYICONDATA
  284.       ' Final das declara
  285. es necess
  286. rias para a fun
  287. o Colocar Icone na Bandeja"
  288. '--------
  289. Const TEMPO_DE_VERIFICA
  290. O_DA_CONEX
  291. O As Integer = 1000 ' 1.000 milisegundos = 1 segundo
  292. Dim dtaDataHoraUltimaConexao As Date
  293. Dim FirstTime As Boolean
  294. Dim lngStatus As Long
  295. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  296. Dim laststausOn As Boolean
  297. Dim connect As Boolean
  298. Private Sub cmdClearHistory_Click()
  299. Dim i As Integer
  300. List1.Clear
  301. End Sub
  302. Private Sub cmdHide_Click()
  303. frmSessionController.Hide
  304. End Sub
  305. Private Sub cmdNewTime_Click()
  306. frmNewTime.Show 1
  307. End Sub
  308. Private Sub Form_Load()
  309.     frmSessionController.Hide
  310.     Me.Caption = "Session Controller V " + Str(App.Major) + "." + Format(App.Minor, "0") + "." + Format(App.Revision, "00")
  311.     Call ColocaIconeNaBandeja
  312.     FirstTime = True
  313.     strtabDescP(1) = "PGMAtivado ...."
  314.     strtabDescP(2) = "Conectado ....."
  315.     strtabDescP(3) = "Desconectado .."
  316.     strtabDescP(4) = "Sess
  317. o rompida "
  318.     strtabDescP(5) = "PGMInativado .."
  319.     strTabDescE(1) = "PGMActived  ..."
  320.     strTabDescE(2) = "Connected ....."
  321.     strTabDescE(3) = "Disconnected .."
  322.     strTabDescE(4) = "Interrupted ..."
  323.     strTabDescE(5) = "PGMInactived .."
  324.     intTimeOut = GetSetting(App.EXEName, "Configura
  325. es", "TimeOut", TEMPO_INICIAL_DE_TIMEOUT)
  326.     strLanguage = GetSetting(App.EXEName, "Configura
  327. es", "Language", Portugu
  328.     Call AcertaALinguagem
  329.     intTempoTimeOut = intTimeOut
  330.     strStatus = "Inicial"
  331.     Set dbdLog = OpenDatabase(App.Path + IIf(Right(App.Path, 1) = "\", "", "\") & "\NetLog.mdb")
  332.     Call CarregaTabela
  333.     Label2.BackColor = RGB(192, 224, 255)
  334.     Label1.BackColor = RGB(192, 224, 255)
  335.     Timer1.Interval = TEMPO_DE_VERIFICA
  336. O_DA_CONEX
  337. ' Grava registro da data de ativa
  338. o do programa ...
  339. End Sub
  340. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  341.           'Event occurs when the mouse pointer is within the rectangular
  342.           'boundaries of the icon in the taskbar status area.
  343.           Dim msg As Long
  344.           Dim sFilter As String
  345.           msg = X / Screen.TwipsPerPixelX
  346.           Select Case msg
  347.              Case WM_LBUTTONDOWN
  348.              Case WM_LBUTTONUP
  349.              Case WM_LBUTTONDBLCLK
  350.                  Call MostraFormPrincipal
  351.              Case WM_RBUTTONDOWN
  352.                  PopupMenu PopMenu01
  353.              Case WM_RBUTTONUP
  354.              Case WM_RBUTTONDBLCLK
  355.           Case Else
  356.           End Select
  357. End Sub
  358. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  359.   If UnloadMode = 0 Then
  360.     If MsgBox(strMsgFinal, vbDefaultButton2 + vbQuestion + vbYesNo, strMsgConfirma
  361. o) = vbYes Then
  362.        Call EncerraPrograma
  363.     Else
  364.         Cancel = True
  365.     End If
  366.   Else
  367.     Call EncerraPrograma
  368.   End If
  369. End Sub
  370. Public Sub ColocaIconeNaBandeja()
  371.          'Click this button to add an icon to the taskbar status area.
  372.          'Set the individual values of the NOTIFYICONDATA data type.
  373.          nid.cbSize = Len(nid)
  374.          nid.hWnd = Me.hWnd
  375.          nid.uId = vbNull
  376.          nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  377.          nid.uCallBackMessage = WM_MOUSEMOVE
  378.          nid.hIcon = Me.Icon
  379.          nid.szTip = Me.Caption & vbNullChar
  380.          'Call the Shell_NotifyIcon function to add the icon to the taskbar
  381.          'status area.
  382.          Shell_NotifyIcon NIM_ADD, nid
  383. End Sub
  384. Private Sub mnuEncerrar_Click()
  385.     If MsgBox(strMsgFinal, vbDefaultButton2 + vbQuestion + vbYesNo, strMsgConfirma
  386. o) = vbYes Then
  387.        Call EncerraPrograma
  388.     End If
  389. End Sub
  390. Private Sub mnuTelaInicial_Click()
  391.    Call MostraFormPrincipal
  392. End Sub
  393. Private Sub Timer1_Timer()
  394. Dim i As Integer, dtaTempoInicial As Date
  395. Dim dtaNow As Date
  396.     dtaNow = Now
  397.     If strStatus = "Inicial" Then
  398.        If tbLog.RecordCount <> 0 Then
  399.          'Se existem fotos relacionadas ao 
  400. lbum, carrega o gride, as primeiras 12 miniaturas e a primeira foto
  401.          Do Until tbLog.EOF
  402.             If tbLog!Id = 2 Then
  403.                dtaTempoInicial = tbLog!DateTime
  404.             ElseIf tbLog!Id = 3 Or tbLog!Id = 4 Or tbLog!Id = 5 Then
  405.                If dtaTempoInicial <> 0 Then
  406.                   dtaTempoTotal = dtaTempoTotal + (CDate(tbLog!DateTime) - dtaTempoInicial)
  407.                   dtaTempoInicial = 0
  408.                End If
  409.             ElseIf tbLog!Id = 1 Then
  410.                dtaTempoInicial = 0
  411.             End If
  412.             
  413.             List1.AddItem tbLog!Desc & Format(tbLog!DateTime, "dd/mm/yyyy hh:mm:ss")
  414.             List1.ListIndex = frmSessionController.List1.NewIndex
  415.             tbLog.MoveNext
  416.          Loop
  417.        End If
  418.        Call InsereEventoNoLog(1)
  419.     End If
  420.     If IsConnected Then
  421.         Label2.Caption = strConectado
  422.         If blnConnected Then
  423.             lblTempoConex
  424. o.Caption = strTempoDeConex
  425. o & Format(dtaNow - dtaDataHoraUltimaConexao, "hh:mm:ss")
  426.             lblTempoConex
  427. o.Visible = True
  428.             lblTempoTotal.Caption = strTempoTotalConectado & Format(dtaTempoTotal + (dtaNow - dtaDataHoraUltimaConexao), "hh:mm:ss")
  429.             lblTempoTotal.Visible = True
  430.             lblTimeOut.Caption = " Tempo restante: " & intTimeOut & " minutos "
  431.             lblTimeOut.Visible = True
  432.             Me.Label1.BackColor = RGB(0, 0, 255)
  433.             Me.Label2.BackColor = RGB(0, 0, 255)
  434.             Me.Label2.ForeColor = RGB(0, 255, 0)
  435.         Else
  436.             intTimeOut = intTempoTimeOut
  437.             Me.tmrConect.Enabled = True
  438.         End If
  439.         If strStatus <> "On" Then
  440.             dtaDataHoraUltimaConexao = dtaNow
  441.             Call InsereEventoNoLog(2)
  442.         End If
  443.         blnConnected = True
  444.         strStatus = "On"
  445.     Else
  446.         lblTimeOut.Visible = False
  447.         lblTempoConex
  448. o.Visible = False
  449.         Label2.Caption = strNaoConectado
  450.         blnConnected = False
  451.         Me.tmrConect.Enabled = False
  452.         If strStatus = "On" Then
  453.            dtaTempoTotal = dtaTempoTotal + (dtaNow - dtaDataHoraUltimaConexao)
  454.            Call InsereEventoNoLog(3)
  455.            Label2.ForeColor = RGB(255, 0, 0)
  456.            Label1.BackColor = RGB(192, 224, 255)
  457.            Label2.BackColor = RGB(192, 224, 255)
  458.         End If
  459.         strStatus = "Off"
  460.         lblTempoTotal.Caption = strTempoTotalConectado & Format(dtaTempoTotal, "hh:mm:ss")
  461.         lblTempoTotal.Visible = True
  462.     End If
  463. End Sub
  464. Private Sub tlbFun
  465. es_ButtonClick(ByVal Button As MSComctlLib.Button)
  466. Select Case Button.Key
  467.    Case "NewTimeOut"
  468.      'Set new TimeOut
  469.      frmNewTime.Show 1
  470.    Case "ResumoMensal"
  471.      'Lista o resumo das conex
  472. es dia a dia do 
  473. ltimo m
  474. s ...
  475.      frmResumo.Show 1
  476.    Case "Esconder"
  477.      'Esconde o Form principal e fica s
  478.  na bandeja ...
  479.      Me.Hide
  480.    Case "Lingua"
  481.      'Altera a lingua utilizada de portugu
  482. s p/ ingl
  483. s e vice-versa ...
  484.    If MsgBox(strMsgLinguagem, vbDefaultButton2 + vbQuestion + vbYesNo, strMsgConfirma
  485. o) = vbYes Then
  486.      strLanguage = IIf(strLanguage = Portugu
  487. s, English, Portugu
  488.      SaveSetting App.EXEName, "Configura
  489. es", "Language", strLanguage
  490.      Call AcertaALinguagem
  491.    End If
  492.    Case "Sair"
  493.     If MsgBox(strMsgFinal, vbDefaultButton2 + vbQuestion + vbYesNo, strMsgConfirma
  494. o) = vbYes Then
  495.         Call EncerraPrograma
  496.      End If
  497. End Select
  498. End Sub
  499. Private Sub tmrConect_Timer()
  500. Dim i As Integer
  501. 'Debug.Print Now & " - tmrConect: " & intTimeOut
  502. If blnConnected Then
  503.    intTimeOut = intTimeOut - 1
  504.    If intTimeOut = 0 Then
  505.        blnEncerraConex
  506. o = False
  507.        frmTimeOut.Show
  508.        frmSessionController.tmrConect.Enabled = False
  509.    End If
  510. End If
  511. End Sub
  512. Public Sub CarregaTabela()
  513.        Dim datHoje As Date, blnTabelaOK As Boolean
  514.        datHoje = Now
  515.        Set tbLog = dbdLog.OpenRecordset("SELECT * FROM Log WHERE Dia='" & Format(datHoje, "dd") & "'")
  516.        'tbLog.MoveFirst
  517.        If tbLog.EOF <> True And tbLog.BOF <> True Then
  518.           If Format(tbLog!DateTime, "yyyymm") <> Format(datHoje, "yyyymm") Then
  519.              dbdLog.Execute "DELETE * FROM Log WHERE Dia='" & Format(datHoje, "dd") & "'"
  520.              Set tbLog = dbdLog.OpenRecordset("SELECT * FROM Log WHERE Dia='" & Format(datHoje, "dd") & "'")
  521.           End If
  522.        End If
  523. End Sub
  524. Public Sub MostraFormPrincipal()
  525.                 Me.Caption = Me.Caption
  526.                 Me.Show
  527.                 AlteraPosi
  528. oDoForm Me, "Topo"
  529.                 AlteraPosi
  530. oDoForm Me, "Normal"
  531.                 List1.ListIndex = List1.NewIndex
  532. End Sub
  533. Public Sub EncerraPrograma()
  534.         Call InsereEventoNoLog(5)
  535.         tbLog.Close
  536.         'Delete the added icon from the taskbar status area when the
  537.         'program ends.
  538.         Shell_NotifyIcon NIM_DELETE, nid
  539.         End
  540. End Sub
  541. Private Sub AcertaALinguagem()
  542. Dim intI As Integer
  543. Select Case strLanguage
  544.    Case Portugu
  545.       For intI = 1 To 5
  546.          strTabDesc(intI) = strtabDescP(intI)
  547.       Next intI
  548.       Label1.Caption = "Situa
  549. o atual:"
  550.       Me.mnuEncerrar.Caption = "Ence&rrar"
  551.       Me.mnuTelaInicial.Caption = "&Mostrar painel principal ..."
  552.       Me.tlbFun
  553. es.Buttons(1).ToolTipText = "Indicar nowAsA paiA,ill.Vainel principal ..."
  554.       Men)
  555. n = r Sub
  556. Publicrdset("SELERRd    ioec Me.} "&Mostrar painel pD al ..."
  557.  cCaption = strTempoTotalConectado & Format Bub3poTotalConectado & Format Bund If
  558.  Sub4h-U_ttLi( rmat Bund If
  559. aPo=und I."
  560.     strTap = "&Mostrund ucb
  561. Public Sf,DB         dbdLublic Sf,DB         dbdLICe", P = &MosAf,DB      EO(192, 224, 255)
  562.        rmatat Bub3poTotalConecQndaries of theTTbdia1ostrar painel principal ..."
  563. L0c(iSiCSIeMe.tlbFun
  564. es.Buttons=ue
  565. 24, 255)
  566.        rmatat Bub3p3e&rvif
  567. aPi{t = "Iplic Sub CaeFoC.o Sub CaeFoC.Xe.m "Iplic Sub CVmm "Iplic Sub CVmm "Iplic poToToTb CVmm "Ipli;bic poToToTb CVmm "Ipli;bicToToTb CVmm "Ipli;bic poToToTb CVmm "Ipli;bicToTohTim datHoIpli. RRd o h
  568. d.tlbTrueiCe
  569. lcse    Tb CAOeiCe l_6e
  570. Ce laon EstioI.
  571. l "Iplirma ii List1.NewIndpCrnoTbzli;bic Sub
  572. tInd8Neger
  573. Seleco,?ric Sub
  574. es.Buxf       lbl &MosAf,DB  e
  575.  hopli;bic poTo      Lab
  576. Public ( rmMad8Neger
  577. If Fors estioI.
  578.           yEO(192, 224, 2ad8Neger
  579. If For-    .)Slger
  580. If Fo  Euu  Me.Hide.H
  581. r "To2AlignCmo,?ri.)SlyEO(192, 22
  582. Ifon7    Me.tmrni,il
  583. d.tlbTrueiCe
  584. lcse    Tb CAOeiCe l_6e
  585. Ce laon Est.ao{-D& Format(g.doe_6e
  586. Ce la  CI intI As m:frmSes/ ingl
  587. srma:iundic- po h
  588. d.tlbTr 224, 2ad8Neger
  589. osdi.i3uo,?9rmat(1.Lublic Sf,DB1il
  590. d.tlbTrd?"program en
  591. =}b CAc ( rm0ub mnua5y Caerm0ub mnua5y Caerm0ub m1isible = TrueBey
  592.  =on   c Sub
  593. A"EncerraPrograma(e"true
  594.