Visual Basic 6 - SHELLDOCUMENT

04/01/08 20:23

Magari prova con questo.... Anche se secondo me è pressochè uguale...

Shell "explorer.exe " + "C:\Documents And Settings", vbNormalFocus

Come metodi a me funzionano entrambi, Un ultima cosa, io questi codici gli assegno a un commonbutton... Non so tu... Prova e faccia sapere!

aaa

04/01/08 20:45

antometal

sl explorer te lo apre??????
shell "explorer"

aaa

04/01/08 21:00

fantasy89

Solo con explorer lo apre comunque... anche se si toglie l'estensione "exe"...

Shell "explorer " & "C:\Documents And Settings", vbNormalFocus

Bisogna però ricordarsi di lasciare uno spazio vuoto tra la parola explorer e le virgolette di chiusura, altrimentii va in errore! Forse è per questo motivo che a lui non funziona....

aaa

04/01/08 21:06

moet

si lascio lo spazio a fondo virgolette ma non funzica lostesso

aaa

04/01/08 21:09

GrG

Strano...
Ank'io avevo provato il codice, ma lo spazio dopo explorer nn ce lo mettevo e quindi mi dava errore..Ora ke ho messo lo spazio a me funge tutto quindi anke a te dovrebbe ora funzionare..

Cmq io direi ke al posto di mettere .., vbMaximizedFocus

conviene mettere .., vbNormalFocus

Ultima modifica effettuata da GrG 04/01/08 21:10

aaa

04/01/08 21:17

antometal

prova a mettere doevents prima di shell...
è un tentativo disperato

aaa

04/01/08 21:29

fantasy89

Un ultimo tentativo potrebbe essere di inserire le parentesi rotonde, anche se non sono molto sicuro, comunqe a me funziona, tentar non nuoce!

Shell ("explorer.exe " & "C:\Documents And Settings"), vbNormalFocus

aaa

04/01/08 21:29

moet

VE LO POSTO TUTTO MA NON CREDO CAMBI MOLTO...

Option Explicit
Dim salvaweb As String
Dim scelta As Integer
Dim cont As Integer
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Private Sub Command1_Click()
 Form1.Show
 
End Sub





Private Sub Command10_Click()

Picture1.Visible = False
Picture2.Visible = False
Command10.Visible = False
   
End Sub

Private Sub Command11_Click()
 frmrinunciarivalsa.Show
End Sub

Private Sub Command12_Click()
 frmassicurazione.Show
End Sub

Private Sub Command13_Click()
frmgestioneappalti.Show
End Sub

Private Sub Command14_Click()


Picture1.Visible = True
Picture2.Visible = True
Command10.Visible = True
End Sub

Private Sub Command15_Click()
frmcomponenti.Show
End Sub





Private Sub Command2_Click()
 frminserimento.Show
 
End Sub

Private Sub Command3_Click()
 
 
  ShellDocument App.Path & "\richiesta accosto.doc"
  

End Sub

Private Sub Command4_Click()
 salvaweb = InputBox("Inserire sito web", "Web", "http://www.google.it")
ShellDocument salvaweb

End Sub

Private Sub Command5_Click()
 application.Show
 
End Sub

Private Sub Command6_Click()
 frmemail.Show
End Sub

Private Sub Command7_Click()

   ShellDocument "calc.exe"
   
End Sub



Private Sub Command8_Click()
 frmeditor.Show
End Sub

Private Sub Command9_Click()
 frmdateconsumi.Show
 
End Sub

Private Sub Form_Initialize()
Dim x As Long
x = InitCommonControls

End Sub

Private Sub Form_Load()
'WindowState = VB




cont = 30
Form5.Caption = "PINO..:: TAILO ::..  v 1.0                                          " & FormatDateTime(Date, vbLongDate)
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False

Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
mnusfondo1.Checked = True
mnusfondo2.Checked = False
mnusfondo3.Checked = False
mnusfondo4.Checked = False
mnuonair.Checked = False
Call scadenze


Show

Picture1.Cls
Timer2.Enabled = 0
Picture2.Visible = 0
Picture2.AutoRedraw = -1
Picture2.Top = Picture1.ScaleHeight
Picture2.BackColor = Picture1.BackColor
Picture2.Height = 30 * Picture1.TextHeight("A") '16
Picture2.CurrentY = 0

PrintCenter Picture2, "."
PrintCenter Picture2, ".."
PrintCenter Picture2, "..."
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "PIPPO"
PrintCenter Picture2, ""
PrintCenter Picture2, "TPLUTO"
PrintCenter Picture2, ""
PrintCenter Picture2, "V.PIPPO 1"
PrintCenter Picture2, ""
PrintCenter Picture2, "15607"
PrintCenter Picture2, ""
PrintCenter Picture2, "GENOVA"
PrintCenter Picture2, ""
PrintCenter Picture2, ""
PrintCenter Picture2, "Phone +39 255555"
PrintCenter Picture2, ""
PrintCenter Picture2, "Fax +39 010.54629"
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "..."
PrintCenter Picture2, ".."
PrintCenter Picture2, "."
Picture2.Visible = -1
Timer2.Enabled = -1

End Sub

Private Sub mnuattivapromemoria_Click()
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False
    MsgBox "Promemoria Attivo", vbInformation, "HELP DESK"
End Sub

Private Sub mnuautomezziaziendali_Click()
ShellDocument App.Path & "\AUTORIZZAZIONE DIPENDENTI.doc"



End Sub

Private Sub mnuautomezziaziendalinondipendenti_Click()
ShellDocument App.Path & "\AUTORIZZAZIONE NON DIPENDENTI.doc"
End Sub

Private Sub mnucalendario_Click()
frmcalendario.Show
End Sub

Private Sub mnucambiacolore_Click()
comdl1.ShowColor
Label1.ForeColor = comdl1.Color
End Sub

Private Sub mnucambiavalute_Click()
  salvaweb = InputBox("Inserire sito web", "Web", "http://finanza.economia.alice.it/cambiavalute/index.html")
ShellDocument salvaweb
End Sub

Private Sub mnucredits_Click()
Form5.Visible = False
Form6.Show
End Sub

Private Sub mnudisattivapromemoria_Click()


 scelta = MsgBox("Sei sicuro di disattivare il promemoria?!?!?", vbYesNo + vbExclamation, "ATTENZIONE")
 

 If scelta = vbYes Then
    mnudisattivapromemoria.Checked = True
    mnudisattivapromemoria.Enabled = False
    mnuattivapromemoria.Enabled = True
    mnuattivapromemoria.Checked = False
    
    MsgBox "Promemoria Disattivato", vbCritical, "HELP DESK"
 End If
 
 If scelta = vbNo Then
 
    MsgBox "Promemoria lasciato attivo", vbExclamation, "HELP DESK"
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False
 End If
 
End Sub

Private Sub mnuestintori_Click()
ShellDocument App.Path & "\CONTROLLO_ESTINTORI.xls"
End Sub

Private Sub mnuestrattoriorekg_Click()
ShellDocument App.Path & "\estrattori_le ore_i kg.xls"
End Sub

Private Sub mnugedag_Click()
ShellDocument App.Path & "\gedag.xls"
End Sub

Private Sub mnumappe_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://maps.google.it")
ShellDocument salvaweb

End Sub

Private Sub mnumodau_Click()
Shell "explorer.exe " & App.Path & "\autorita portuale"
End Sub

Private Sub mnuonair_Click()
Call toglisfondo
Call toglicek
mnuonair.Checked = True
Form5.BackColor = vbWhite
TMaxAni1.Visible = True
TMaxAni2.Visible = True
TMaxAni1.filename = App.Path & "VE LO POSTO TUTTO MA NON CREDO CAMBI MOLTO...





Option Explicit
Dim salvaweb As String
Dim scelta As Integer
Dim cont As Integer
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Private Sub Command1_Click()
 Form1.Show
 
End Sub





Private Sub Command10_Click()

Picture1.Visible = False
Picture2.Visible = False
Command10.Visible = False
   
End Sub

Private Sub Command11_Click()
 frmrinunciarivalsa.Show
End Sub

Private Sub Command12_Click()
 frmassicurazione.Show
End Sub

Private Sub Command13_Click()
frmgestioneappalti.Show
End Sub

Private Sub Command14_Click()


Picture1.Visible = True
Picture2.Visible = True
Command10.Visible = True
End Sub

Private Sub Command15_Click()
frmcomponenti.Show
End Sub





Private Sub Command2_Click()
 frminserimento.Show
 
End Sub

Private Sub Command3_Click()
 
 
  ShellDocument App.Path & "\richiesta accosto.doc"
  

End Sub

Private Sub Command4_Click()
 salvaweb = InputBox("Inserire sito web", "Web", "http://www.google.it")
ShellDocument salvaweb

End Sub

Private Sub Command5_Click()
 application.Show
 
End Sub

Private Sub Command6_Click()
 frmemail.Show
End Sub

Private Sub Command7_Click()

   ShellDocument "calc.exe"
   
End Sub



Private Sub Command8_Click()
 frmeditor.Show
End Sub

Private Sub Command9_Click()
 frmdateconsumi.Show
 
End Sub

Private Sub Form_Initialize()
Dim x As Long
x = InitCommonControls

End Sub

Private Sub Form_Load()
'WindowState = VB




cont = 30
Form5.Caption = "PINO..:: TAILO ::..  v 1.0                                          " & FormatDateTime(Date, vbLongDate)
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False

Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
mnusfondo1.Checked = True
mnusfondo2.Checked = False
mnusfondo3.Checked = False
mnusfondo4.Checked = False
mnuonair.Checked = False
Call scadenze


Show

Picture1.Cls
Timer2.Enabled = 0
Picture2.Visible = 0
Picture2.AutoRedraw = -1
Picture2.Top = Picture1.ScaleHeight
Picture2.BackColor = Picture1.BackColor
Picture2.Height = 30 * Picture1.TextHeight("A") '16
Picture2.CurrentY = 0

PrintCenter Picture2, "."
PrintCenter Picture2, ".."
PrintCenter Picture2, "..."
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "PIPPO"
PrintCenter Picture2, ""
PrintCenter Picture2, "TPLUTO"
PrintCenter Picture2, ""
PrintCenter Picture2, "V.PIPPO 1"
PrintCenter Picture2, ""
PrintCenter Picture2, "15607"
PrintCenter Picture2, ""
PrintCenter Picture2, "GENOVA"
PrintCenter Picture2, ""
PrintCenter Picture2, ""
PrintCenter Picture2, "Phone +39 255555"
PrintCenter Picture2, ""
PrintCenter Picture2, "Fax +39 010.54629"
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "..."
PrintCenter Picture2, ".."
PrintCenter Picture2, "."
Picture2.Visible = -1
Timer2.Enabled = -1

End Sub

Private Sub mnuattivapromemoria_Click()
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False
    MsgBox "Promemoria Attivo", vbInformation, "HELP DESK"
End Sub

Private Sub mnuautomezziaziendali_Click()
ShellDocument App.Path & "\AUTORIZZAZIONE DIPENDENTI.doc"



End Sub

Private Sub mnuautomezziaziendalinondipendenti_Click()
ShellDocument App.Path & "\AUTORIZZAZIONE NON DIPENDENTI.doc"
End Sub

Private Sub mnucalendario_Click()
frmcalendario.Show
End Sub

Private Sub mnucambiacolore_Click()
comdl1.ShowColor
Label1.ForeColor = comdl1.Color
End Sub

Private Sub mnucambiavalute_Click()
  salvaweb = InputBox("Inserire sito web", "Web", "http://finanza.economia.alice.it/cambiavalute/index.html")
ShellDocument salvaweb
End Sub

Private Sub mnucredits_Click()
Form5.Visible = False
Form6.Show
End Sub

Private Sub mnudisattivapromemoria_Click()


 scelta = MsgBox("Sei sicuro di disattivare il promemoria?!?!?", vbYesNo + vbExclamation, "ATTENZIONE")
 

 If scelta = vbYes Then
    mnudisattivapromemoria.Checked = True
    mnudisattivapromemoria.Enabled = False
    mnuattivapromemoria.Enabled = True
    mnuattivapromemoria.Checked = False
    
    MsgBox "Promemoria Disattivato", vbCritical, "HELP DESK"
 End If
 
 If scelta = vbNo Then
 
    MsgBox "Promemoria lasciato attivo", vbExclamation, "HELP DESK"
    mnuattivapromemoria.Checked = True
    mnuattivapromemoria.Enabled = False
    mnudisattivapromemoria.Enabled = True
    mnudisattivapromemoria.Checked = False
 End If
 
End Sub

Private Sub mnuestintori_Click()
ShellDocument App.Path & "\CONTROLLO_ESTINTORI.xls"
End Sub

Private Sub mnuestrattoriorekg_Click()
ShellDocument App.Path & "\estrattori_le ore_i kg.xls"
End Sub

Private Sub mnugedag_Click()
ShellDocument App.Path & "\gedag.xls"
End Sub

Private Sub mnumappe_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://maps.google.it")
ShellDocument salvaweb

End Sub

Private Sub mnumodau_Click()
Shell "explorer.exe " & App.Path & "\autorita portuale"
End Sub

Private Sub mnuonair_Click()
Call toglisfondo
Call toglicek
mnuonair.Checked = True
Form5.BackColor = vbWhite
TMaxAni1.Visible = True
TMaxAni2.Visible = True
TMaxAni1.filename = App.Path & "{parsed_message}0onair.gif"
TMaxAni2.filename = App.Path & "\bug.gif"
TMaxAni1.ShowGif
TMaxAni2.ShowGif
End Sub

Private Sub mnupaginebianche_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://www.paginebianche.it/index.html")
ShellDocument salvaweb

End Sub

Private Sub mnupaginegialle_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://www.paginegialle.it/index.html")
ShellDocument salvaweb
End Sub


Private Sub mnusceglicolore_Click()
comdl1.ShowColor
Form5.BackColor = comdl1.Color
Call toglisfondo
Call toglicek
End Sub

Private Sub mnusfondo1_Click()

Call toglisfondo
Call toglicek
Image1.Visible = True
mnusfondo1.Checked = True


End Sub

Private Sub mnusfondo2_Click()
Call toglisfondo
Call toglicek
Image2.Visible = True
mnusfondo2.Checked = True
End Sub

Private Sub mnusfondo3_Click()

Call toglisfondo
Call toglicek
Image3.Visible = True
mnusfondo3.Checked = True

End Sub

Private Sub mnusfondo4_Click()
Call toglisfondo
Call toglicek
Image4.Visible = True
mnusfondo4.Checked = True
End Sub

Private Sub mnusfondowindows_Click()
Call toglisfondo
Call toglicek
PaintDesktop Form5.hdc
mnusfondowindows.Checked = True
End Sub

Private Sub mnututto_Click()
ShellDocument App.Path & "\scadenziario.xls"
End Sub

Private Sub Picture1_Click()
comdl1.ShowColor
Picture2.ForeColor = comdl1.Color
End Sub

Private Sub Timer1_Timer()
 Label1.Caption = Format(Now, "Short Time")  'long time
End Sub

Public Sub toglisfondo()
Image4.Visible = False
Image2.Visible = False
Image1.Visible = False
Image3.Visible = False
Call toglicek
Call togligif
End Sub

Public Sub toglicek()
mnusfondo1.Checked = False
mnusfondo2.Checked = False
mnusfondo3.Checked = False
mnusfondo4.Checked = False
mnuonair.Checked = False
mnusfondowindows.Checked = False
End Sub

Public Sub scadenze()
Dim prova As Date
Dim XLS As New Excel.application
    
        XLS.Workbooks.Open App.Path & "\scadenziario.xls"
        XLS.Worksheets(1).Select
        
        XLS.Range("D5").Select
     If FormatDateTime(Date, vbShortDate) = DateAdd("d", -2, XLS.Range("D5")) Then
        frmallarme.Show
        frmallarme.Text1.Text = "SCADENZA BOLLO FIAT DOBLO'"
     End If

       ' XLS.Range("").Select
    ' If FormatDateTime(Date, vbShortDate) = DateAdd("d", -2, XLS.Range("")) Then
        'frmallarme.Show
       ' frmallarme.Text1.Text = ""
    ' End If
        
        
        
        
        
        
        
        
        
        
        
 XLS.Workbooks(1).Close False


End Sub

Public Sub togligif()
TMaxAni1.Visible = False
TMaxAni2.Visible = False
End Sub

Private Sub Timer2_Timer()
Dim delta As Long

delta = Val(Timer2.Tag)
Picture1.ScaleMode = 3
If Picture2.Top + Picture2.Height > 0 Then
    Picture2.Top = Picture2.Top - delta
Else
    Picture1.Cls
    Timer2.Enabled = 0
    Picture2.Visible = 0
    Picture2.AutoRedraw = -1
    Picture2.Top = Picture1.ScaleHeight
    Picture2.BackColor = Picture1.BackColor
    Picture2.Height = 30 * Picture1.TextHeight("A") '16
    Picture2.CurrentY = 0
    
    
PrintCenter Picture2, "."
PrintCenter Picture2, ".."
PrintCenter Picture2, "..."
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "PIPPO"
PrintCenter Picture2, ""
PrintCenter Picture2, "PLUTO"
PrintCenter Picture2, ""
PrintCenter Picture2, "V.PIPPO 1"
PrintCenter Picture2, ""
PrintCenter Picture2, "15986"
PrintCenter Picture2, ""
PrintCenter Picture2, "GENOVA"
PrintCenter Picture2, ""
PrintCenter Picture2, ""
PrintCenter Picture2, "Phone +39 010.54856"
PrintCenter Picture2, ""
PrintCenter Picture2, "Fax +39 010.65865"
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "..."
PrintCenter Picture2, ".."
PrintCenter Picture2, "."

Picture2.Visible = -1
Timer2.Enabled = -1
End If

End Sub



Private Sub PrintCenter(c As Control, Txt As String)
    c.CurrentX = (c.ScaleWidth - c.TextWidth(Txt)) / 2
    c.Print Txt
End Sub

Public Sub cerotto()



 If Weekday(Now) = VbDayOfWeek.vbMonday Then 'Tuesday martedi
        
        frmallarme.Text1.Text = "CEROTTO"
        frmallarme.Show
        
 End If


End Sub

Private Sub Timer3_Timer()
cont = cont - 1

If cont = 0 Then
   Call cerotto
End If
End Sub







Public Sub testapulsante()
 If Command10.Caption = "apri" Then
    Command10.Caption = "chiudi"
 Else
    Command10.Caption = "apri"
 End If
End Sub


0onair.gif"
TMaxAni2.filename = App.Path & "\bug.gif"
TMaxAni1.ShowGif
TMaxAni2.ShowGif
End Sub

Private Sub mnupaginebianche_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://www.paginebianche.it/index.html")
ShellDocument salvaweb

End Sub

Private Sub mnupaginegialle_Click()

  salvaweb = InputBox("Inserire sito web", "Web", "http://www.paginegialle.it/index.html")
ShellDocument salvaweb
End Sub


Private Sub mnusceglicolore_Click()
comdl1.ShowColor
Form5.BackColor = comdl1.Color
Call toglisfondo
Call toglicek
End Sub

Private Sub mnusfondo1_Click()

Call toglisfondo
Call toglicek
Image1.Visible = True
mnusfondo1.Checked = True


End Sub

Private Sub mnusfondo2_Click()
Call toglisfondo
Call toglicek
Image2.Visible = True
mnusfondo2.Checked = True
End Sub

Private Sub mnusfondo3_Click()

Call toglisfondo
Call toglicek
Image3.Visible = True
mnusfondo3.Checked = True

End Sub

Private Sub mnusfondo4_Click()
Call toglisfondo
Call toglicek
Image4.Visible = True
mnusfondo4.Checked = True
End Sub

Private Sub mnusfondowindows_Click()
Call toglisfondo
Call toglicek
PaintDesktop Form5.hdc
mnusfondowindows.Checked = True
End Sub

Private Sub mnututto_Click()
ShellDocument App.Path & "\scadenziario.xls"
End Sub

Private Sub Picture1_Click()
comdl1.ShowColor
Picture2.ForeColor = comdl1.Color
End Sub

Private Sub Timer1_Timer()
 Label1.Caption = Format(Now, "Short Time")  'long time
End Sub

Public Sub toglisfondo()
Image4.Visible = False
Image2.Visible = False
Image1.Visible = False
Image3.Visible = False
Call toglicek
Call togligif
End Sub

Public Sub toglicek()
mnusfondo1.Checked = False
mnusfondo2.Checked = False
mnusfondo3.Checked = False
mnusfondo4.Checked = False
mnuonair.Checked = False
mnusfondowindows.Checked = False
End Sub

Public Sub scadenze()
Dim prova As Date
Dim XLS As New Excel.application
    
        XLS.Workbooks.Open App.Path & "\scadenziario.xls"
        XLS.Worksheets(1).Select
        
        XLS.Range("D5").Select
     If FormatDateTime(Date, vbShortDate) = DateAdd("d", -2, XLS.Range("D5")) Then
        frmallarme.Show
        frmallarme.Text1.Text = "SCADENZA BOLLO FIAT DOBLO'"
     End If

       ' XLS.Range("").Select
    ' If FormatDateTime(Date, vbShortDate) = DateAdd("d", -2, XLS.Range("")) Then
        'frmallarme.Show
       ' frmallarme.Text1.Text = ""
    ' End If
        
        
        
        
        
        
        
        
        
        
        
 XLS.Workbooks(1).Close False


End Sub

Public Sub togligif()
TMaxAni1.Visible = False
TMaxAni2.Visible = False
End Sub

Private Sub Timer2_Timer()
Dim delta As Long

delta = Val(Timer2.Tag)
Picture1.ScaleMode = 3
If Picture2.Top + Picture2.Height > 0 Then
    Picture2.Top = Picture2.Top - delta
Else
    Picture1.Cls
    Timer2.Enabled = 0
    Picture2.Visible = 0
    Picture2.AutoRedraw = -1
    Picture2.Top = Picture1.ScaleHeight
    Picture2.BackColor = Picture1.BackColor
    Picture2.Height = 30 * Picture1.TextHeight("A") '16
    Picture2.CurrentY = 0
    
    
PrintCenter Picture2, "."
PrintCenter Picture2, ".."
PrintCenter Picture2, "..."
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "PIPPO"
PrintCenter Picture2, ""
PrintCenter Picture2, "PLUTO"
PrintCenter Picture2, ""
PrintCenter Picture2, "V.PIPPO 1"
PrintCenter Picture2, ""
PrintCenter Picture2, "15986"
PrintCenter Picture2, ""
PrintCenter Picture2, "GENOVA"
PrintCenter Picture2, ""
PrintCenter Picture2, ""
PrintCenter Picture2, "Phone +39 010.54856"
PrintCenter Picture2, ""
PrintCenter Picture2, "Fax +39 010.65865"
PrintCenter Picture2, ""
PrintCenter Picture2, "___________________"
PrintCenter Picture2, ""
PrintCenter Picture2, "..."
PrintCenter Picture2, ".."
PrintCenter Picture2, "."

Picture2.Visible = -1
Timer2.Enabled = -1
End If

End Sub



Private Sub PrintCenter(c As Control, Txt As String)
    c.CurrentX = (c.ScaleWidth - c.TextWidth(Txt)) / 2
    c.Print Txt
End Sub

Public Sub cerotto()



 If Weekday(Now) = VbDayOfWeek.vbMonday Then 'Tuesday martedi
        
        frmallarme.Text1.Text = "CEROTTO"
        frmallarme.Show
        
 End If


End Sub

Private Sub Timer3_Timer()
cont = cont - 1

If cont = 0 Then
   Call cerotto
End If
End Sub







Public Sub testapulsante()
 If Command10.Caption = "apri" Then
    Command10.Caption = "chiudi"
 Else
    Command10.Caption = "apri"
 End If
End Sub

aaa

1 2 3 4 5