Visualizzazione dei risultati da 1 a 10 su 17

Visualizzazione discussione

  1. #4
    Si tratta di un reminder che parte all'avvio. Niente di eccezionale
    Me lo segnala come minaccia. Nessuno script o vbscript
    Questo è il codice nell'evento load:
    codice:
    Thread.CurrentThread.CurrentCulture.ClearCachedData()
            Try
    
    
    
                Dim Fdataa As New FbDataAdapter("select*from reminder order by task", strConn)
                ' Choose Custom Format
    
                DataSet1.Tables.Add("reminder")
    
    
                Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
    
                Me.DataGridView1.DataSource = DataSet1
                Me.DataGridView1.DataMember = "reminder"
                Fdataa.Fill(DataSet1, "reminder")
                DataGridView1.Columns("contatore").Visible = False
                DataGridView1.Columns("task").Width = 680
                DataGridView1.Columns("task").HeaderText = "PROMEMORIA"
                DataGridView1.Columns("ora").Width = 40
                DataGridView1.Columns("giorno").Width = 60
                DataGridView1.Columns("frequency").Width = 90
                DataGridView1.Columns("frequency").HeaderText = "FREQUENZA"
                With Me.DataGridView1.RowsDefaultCellStyle
                    .BackColor = Color.Yellow
                    .ForeColor = Color.DarkGreen
                    .Font = New Font("Times New Roman", 9, FontStyle.Bold)
                End With
    
    
    
                Me.DataGridView1.Columns("attivo").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                Me.DataGridView1.Sort(DataGridView1.Columns("task"), System.ComponentModel.ListSortDirection.Ascending)
                ResizeFormClass.SubResize(Me, 100, 100)
    
                Me.CenterToScreen()
                If IniRead(My.Application.Info.DirectoryPath & "\settings.ini", "sezione", "RegChecked") Then
                    Me.chkReg.Checked = True
                Else
                    Me.chkReg.Checked = False
                End If
                Me.Timer1.Start()
                ' Hook up the Elapsed event for the timer.
    
    
                ' Set the Interval to 2 seconds (2000 milliseconds).
                Me.Timer1.Interval = 4000
                Me.Timer1.Enabled = True
                Me.NotifyIcon1.ContextMenu = Me.ContextMenu
                Me.Hide()
    
                Me.ShowInTaskbar = False
    
    
                ' If the timer is declared in a long-running method, use
                ' KeepAlive to prevent garbage collection from occurring
                ' before the method ends.
                'GC.KeepAlive(aTimer)
                m_menu = New ContextMenu()
    
                m_menu.MenuItems.Add(0, New MenuItem("Exit", New System.EventHandler(AddressOf Exit_Click)))
                Me.NotifyIcon1.ContextMenu = m_menu
                LostReminders()
    
    
    
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    Ultima modifica di giorgiogio48; 01-06-2015 a 20:05
    Giorgio
    L'esperienza è il tipo di insegnante più difficile. Prima ti fa l'esame, e poi ti spiega la lezione. (Oscar Wilde)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.