Torna al Thread
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' apro excel e lo nascondo
Dim appExcel As New Microsoft.Office.Interop.Excel.Application
appExcel.Visible = False
' di seguito metto il riferimento al file che mi interessa, sarebbe utile poterlo selezionare all'avvio o spostare il riferimento su un file ini e aggiungere tra le opzioni la possibilità di cambiare file
Dim WB As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open("C:\Users\max\Documents\pratiche.xls")
Dim WS As Microsoft.Office.Interop.Excel.Worksheet = WB.Worksheets("Foglio1")
Dim a As String
a = WB.Name
'questo è solo un messaggio che mi avvisa quale file sto usando, non conosco il codice per aggiungere il nome del foglio, ho provato con WS.Name ma mi da comunque il nome del file e non il nome del foglio
MsgBox("il file " & a & " è accessibile")
End Sub
Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
If System.Windows.Forms.FormWindowState.Minimized = WindowState Then
NotifyIcon1.ShowBalloonTip(5, "Scadenziario", "Controllo Scadenze Attivo", ToolTipIcon.Info)
Me.Hide()
End If
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Me.Close()
End Sub
End Class