Novità

Per Luigi - Tabelle -

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
B

Blackmore

Guest
Ciao Luigi, questo è un semplice script in tabella che mostra
2 terzine nella stessa cella (divise da un separatore)
esiste una funzione che mi permette di inserire le 2 terzine
sempre nella stessa cella ma... una sotto l'altra ?
Mi sarebbe davvero molto utile


Codice:
Sub Main
	ReDim at(2)
	Dim anum1(3)
	Dim anum2(3)
	at(1) = " RUOTA "
	at(2) = " 1°TERZINA | 2°TERZINA "
	Call InitTabella(at,,,2,,"arial black")
	For r = 1 To 12
		If r = 11 Then r = 12
		anum1(1) = Format2(1)
		anum1(2) = Format2(2)
		anum1(3) = Format2(3)
		anum2(1) = 10
		anum2(2) = 20
		anum2(3) = 30
		ReDim av(2)
		av(1) = NomeRuota(r)
		av(2) = StringaNumeri(anum1) & "   |   " & StringaNumeri(anum2)
		Call AddRigaTabella(av,,,3,,"arial")
	Next
	Call CreaTabella
End Sub
 
ciao Black la cosa piu semplice è agire inserendo i tag html che servono per andare a capo.
Codice:
Sub Main
	ReDim at(2)
	Dim anum1(3)
	Dim anum2(3)
	Dim aFont(2)
	
	aFont(1) = "Arial"
	aFont(2) = "Courier New"
	

	at(1) = " RUOTA "
	at(2) = " 1°TERZINA " & "<br>" & " 2°TERZINA "
	Call InitTabella(at,,,2,,"arial black")
	For r = 1 To 12
		If r = 11 Then r = 12
		anum1(1) = Format2(1)
		anum1(2) = Format2(2)
		anum1(3) = Format2(3)
		anum2(1) = 10
		anum2(2) = 20
		anum2(3) = 30
		ReDim av(2)
		av(1) = NomeRuota(r)
		'av(2) = StringaNumeri(anum1) & "   |   " & StringaNumeri(anum2)
		av(2) = StringaNumeri(anum1) & "<br>" &  StringaNumeri(anum2)
		
		Call AddRigaTabella(av,,,3,,aFont)
	Next
	Call CreaTabella
End Sub
 
se consideri che a forza d tag html dentro una singola cella potresti mettere un 'altra intera tabella :-) ... Ciao
 
Ottima e utile anche per me questi tag html, se puoi fare un esempio del mettere una intera tabella.
Grazie.

ciao Black, ciao Luigi
 
ciao Mike , magari lo faro ma non subito ..in questi giorni ho altre cose ... un saluto
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35

Ultimi Messaggi

Indietro
Alto