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
    martedì 25 novembre 2025
    Bari
    06
    33
    14
    87
    73
    Cagliari
    90
    73
    48
    35
    67
    Firenze
    20
    66
    86
    79
    27
    Genova
    39
    55
    23
    74
    60
    Milano
    86
    34
    23
    18
    51
    Napoli
    01
    12
    60
    11
    82
    Palermo
    41
    78
    88
    71
    74
    Roma
    66
    77
    24
    53
    11
    Torino
    10
    90
    35
    77
    48
    Venezia
    47
    79
    82
    05
    65
    Nazionale
    88
    14
    15
    48
    09
    Estrazione Simbolotto
    Torino
    38
    33
    41
    02
    40
Indietro
Alto