Si può formattare il testo di Call Messaggio() ? Se si come...

[lotto_tom75]

Es. se volessi formattare il testo di questa call...

Con... i casi positivi in verde e in casi negativi in rosso...

Come potrei fare?

Call Messaggio("Ruota: " & NomeRuota(aruote7(1)) & " Classe " & Classe & " Sorte " & nSorte  & " Caso n. " & contatorecasi & " x Colpi " & co & " casi +: " & contaesitipos & " casi -: " & contaesitineg )

 

[*blacklotto*]

Prova questo listato trovato qualche tempo fa se ti può soddisfare

RESOCONTO :

24.08.2019 09.18.45.87 3° Colpo PA 09 .. .. .. 45
27.08.2019 18.42.45.87 NEGATIVO
19.09.2019 13.22.61.83 NEGATIVO
31.10.2019 27.33.72.85 5° Colpo VE .. 27 .. .. 33
05.11.2019 14.33.74.89 3° Colpo BA .. .. .. 74 14
07.11.2019 21.33.74.89 NEGATIVO
09.11.2019 21.33.45.89 NEGATIVO
16.11.2019 21.29.33.65 4° Colpo NA .. .. .. 65 21
26.11.2019 60.62.65.71 NEGATIVO
03.12.2019 48.58.62.65 NEGATIVO
10.12.2019 23.25.48.65 NEGATIVO
17.12.2019 25.65.85.86 4° Colpo VE .. 86 65 .. ..
19.12.2019 05.25.65.85 NEGATIVO
04.01.2020 50.53.65.75 6° Colpo BA 50 .. .. 53 ..
09.01.2020 35.45.53.65 5° Colpo FI .. .. 35 45 .. 4° Colpo RO .. .. 45 35 ..
08.02.2020 07.39.62.83 4° Colpo PA .. 83 .. 39 ..
17.03.2020 01.38.60.88 1° Colpo GE .. 60 01 .. .. 4° Colpo NA .. .. 88 .. 38

il listato :

Option Explicit
Sub Main
Dim Es,R,N,Nt(1),Rt(4),Ra(6),K,E,C,Q,T : C = 10
For R = 1 To 4 : Rt(R) = R : Next
For R = 5 To 10 : Ra(R - 4) = R : Next
For Es = 9770 - 100 To 9770
K = 0 : ReDim Nu(90):E = 0
For N = 1 To 90
Nt(1) = N
If SerieFreq(Es - 11,Es,Nt,Rt,1) = 0 Then K = K + 1 : Nu(K) = N
Next
If K = 4 Then
T = False
Scrivi DataEstrazione(Es) & " " & StringaNumeri(Nu,,True) & " ",1,0
VerificaEsito Nu,Rt,Es + 1,2,C,,,E,Q
If E < C Then ColoreTesto 3 :Scrivi E & "° Colpo " & Q & " ",1,0 : : ColoreTesto 0 : T = True
VerificaEsito Nu,Ra,Es + 1,2,C,,,E,Q
If E < C Then ColoreTesto 3 :Scrivi E & "° Colpo " & Q & " ",1,0 : ColoreTesto 0 : T = True
If T = False Then ColoreTesto 2 :Scrivi " NEGATIVO ",1,0 : ColoreTesto 0
Scrivi
End If
Next
End Sub

 

[lotto_tom75]

Ciao blacklotto, a me servirebbe che si colorasse non l'output ma il messaggio che si visulalizza in run time con la call Messaggio ("messaggio"). E questo code ColoreTesto (2) l'ho provato ma nel messaggio a video lascia il testo nero... Grazie comunque. Ciao

 

[salvo50]

Es. se volessi formattare il testo di questa call...

Con... i casi positivi in verde e in casi negativi in rosso...

Come potrei fare?

Call Messaggio("Ruota: " & NomeRuota(aruote7(1)) & " Classe " & Classe & " Sorte " & nSorte  & " Caso n. " & contatorecasi & " x Colpi " & co & " casi +: " & contaesitipos & " casi -: " & contaesitineg )

Non so se è quello che cerchi, comunque prova,
Vai in
Altri menù, ......................è la penultima scritta in alto a destra, prima di uscita
Configura
Opzioni

si apre una schermata con tutti i colori usati in Spaziometria.

 

[lotto_tom75]

Non so se è quello che cerchi, comunque prova,
Vai in
Altri menù, ......................è la penultima scritta in alto a destra, prima di uscita
Configura
Opzioni

si apre una schermata con tutti i colori usati in Spaziometria.

Ciao Salvo, ci ho dato un occhio ma non credo serva a quello che vorrei fare. Quello che intendo io per formattare la call Messaggio() te lo riporto in immagine qui sotto.



Grazie comunque. Ciao