Novità

Come chiudere oggetti ScreenOutput con un click e come nominare un file txt con il nome stesso dello script che lo crea ?

lotto_tom75

Advanced Premium Member
La prima domanda si riferisce all'eventuale possibilità di chiudere, semplicemente cliccandoci sopra, oggetti "barra" di questo tipo sottostante...

Codice:
   Dim Out
   Dim LarghezzaSchermo,AltezzaSchermo
   Set Out = CreateObject("ScreenOutput.ClsScreenOutput")
   Call Out.DimensioniSchermo(LarghezzaSchermo,AltezzaSchermo)
   Call Out.SetBackColor(vbBlack)
   Call Out.SetDimensioni(LarghezzaSchermo - 30,AltezzaSchermo/12)
   Call Out.SetPosizione(0,7500)


La seconda a quella di poter eventualmente creare un file txt con il nome dello script che lo crea...

es. se ho uno script di nome... PIPPO.ls

vorrei che il file txt creato da questo script si chiamasse...

file-txt-by-PIPPO-ls.txt

come potrei modificare la funzione scrivi file in modo da avere un simile risultato? 🤔

Codice:
call ScriviFile (... , ...)

Questo per evitare di nominare i files txt creati, dai vari script in fase di test, manualmente... e per averli tutti ordinati in base allo script che li crea...

👋🙂
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 10 ottobre 2026
    Bari
    16
    38
    53
    21
    55
    Cagliari
    21
    66
    30
    55
    62
    Firenze
    30
    75
    23
    10
    68
    Genova
    68
    31
    16
    64
    63
    Milano
    20
    05
    11
    17
    64
    Napoli
    30
    74
    82
    78
    77
    Palermo
    17
    15
    50
    80
    44
    Roma
    05
    32
    59
    39
    66
    Torino
    31
    59
    56
    29
    20
    Venezia
    11
    66
    07
    61
    88
    Nazionale
    18
    52
    01
    28
    13
    Estrazione Simbolotto
    34
    33
    05
    22
    14

Ultimi Messaggi

Indietro
Alto