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 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39

Ultimi Messaggi

Indietro
Alto