Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] - Per pixel

ti ringrazio tantissimo provo subito.

de nada....da me funzia....spero funzioni anche da te.
visto che credo sia un problema comune a molte persone se funzia pure a te
pubblica il codice sul ng così lo possono usare tutti
ciao
_pixel_
p.i....@katamail.com
http://vbios.cjb.net

Non ci crederai mai ma ancora non funziona.
Devo avere il pc maledetto ho scaricato e installato il service pack 5 ma
non è cambiato nulla. :'-)
Grazie per tutto il tuo impegno.
Forse è il caso di metterlo ugualmente sul ng.
Come si fa?

ue...non so' cosa dirti.... da me funzia benissimo.....
come ultima spiaggia posso dirti di scaricare l'ocx completo ..... ma non
credo risolva....
boh..!!!...
Se hai tempo puoi tirarti giů interamente il programma che lo usa (č un
client IRC/IRCX)...
L'ocx l'avevo creato per gestire le scritte colorate che circolano su
IRC....
Se vuoi ti invio il mio rich.ocx....dimmi tu...


ti ho mandato l'immagine all'altro ind. non credo che cambiare l'ocx risolva
ora lo provo su un altro pc graze di tutto

se hai scaricato la posta avrai notato quello che invece vedo io....
bah..misteri di VB.....
Comincio a pensare che sia un bel quesito da porre ai GURU... :-))
bye
p.i....@katamail.com
http://vbios.cjb.net


dunque che si facciano avanti.

Il problema è questo, ho inviato un source che da me gira perfettamente
ma nel PC del destinatario no.
Mi spiego meglio, il sorgente non evidenzia nessun errore
ma si limita (per modo di dire) a non visualizzare correttamente il
risultato.
Io sono aggiornato al SP4, il PC del destinatario al SP5.
Il sorgente usa un Richtext
Qualche idea in merito?
saluti a tutti
p.i....@katamail.com
http://vbios.cjb.net



 Qualche idea in merito?
Se il vetraio di Paperino non ha fatto gli straordinari temo che la sua
sfera di cristallo sia perennemente in lucidatura; non potendo farci
affidamento, un buon sostituto sarebbe un pezzo del codice incriminato :-)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

non credo sia un problema di codice comunque eccoti servito :-)
in un form metti un rich,  una text ed un command
in command.click metti
roommsg "","",text1.text
dentro text1.text incolla questa riga
" : 15,4  l o o k s h a r p   1,0  3.0   15,15  14,14  15,1 
http:// 
0www.looksharp.com.ar
   14,14  15,15  14,0 IRC/IRCX Security engine
for mIRC  15,15  14,14  "
quando clikki il pulsante sulla rich dovresti vedere un testo multicolor
ciao
_pixel_
p.i....@katamail.com
http://vbios.cjb.net
P.S.
al posto della sfera puoi usare lo specchio di Biancaneve.... :-)
Sub RoomMsg(Nick As String, Room As String, Msg As String)
Dim t As Integer
Dim tt As Integer
Dim ttt As Integer
Dim strmirc As String
Dim zz As Integer
strmirc = Msg
sfondo_colore1:
zz = InStr(1, strmirc, " 10,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight4  " + Right$(strmirc,
Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf4 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore1
End If
sfondo_colore2:
zz = InStr(1, strmirc, " 11,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight12  " +
Right$(strmirc, Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf12 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore2
End If
sfondo_colore3:
zz = InStr(1, strmirc, " 12,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight10  " +
Right$(strmirc, Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf10 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore3
End If
sfondo_colore4: ' 13
zz = InStr(1, strmirc, " 13,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight14  " +
Right$(strmirc, Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf14 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore4
End If
sfondo_colore5: ' 14
zz = InStr(1, strmirc, " 14,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight9  " + Right$(strmirc,
Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf9 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore5
End If
sfondo_colore6: ' 15
zz = InStr(1, strmirc, " 15,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 4, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight8  " + Right$(strmirc,
Len(strmirc) - zz - 3)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf8 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore6
End If
sfondo_colore7: ' 0
zz = InStr(1, strmirc, " 0,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight16  " +
Right$(strmirc, Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf16 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore7
End If
sfondo_colore8: ' 1
zz = InStr(1, strmirc, " 1,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight1  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf1 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore8
End If
sfondo_colore9: ' 2
zz = InStr(1, strmirc, " 2,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight2  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf2 " + Right$(strmirc,
Len(strmirc) - zz - 2) 'aggiunta
    End If
GoTo sfondo_colore9
End If
sfondo_colore10: ' 3
zz = InStr(1, strmirc, " 3,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight3  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf3 " + Right$(strmirc,
Len(strmirc) - zz - 2) 'aggiunta
    End If
  GoTo sfondo_colore10
End If
sfondo_colore11: ' 4
zz = InStr(1, strmirc, " 4,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
          strmirc = Left$(strmirc, zz - 1) + "\highlight13  " +
Right$(strmirc, Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf13 " + Right$(strmirc,
Len(strmirc) - zz - 2) 'aggiunta
    End If
  GoTo sfondo_colore11
End If
sfondo_colore12: ' 5
zz = InStr(1, strmirc, " 5,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight5  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf5 " + Right$(strmirc,
Len(strmirc) - zz - 2) 'aggiunta
    End If
  GoTo sfondo_colore12
End If
sfondo_colore13: ' 6
zz = InStr(1, strmirc, " 6,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight6  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf6 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore13
End If
sfondo_colore14: ' 7
zz = InStr(1, strmirc, " 7,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight7  " + Right$(strmirc,
Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf7 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore14
End If
sfondo_colore15: ' 8
zz = InStr(1, strmirc, " 8,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight15  " +
Right$(strmirc, Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf15 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore15
End If
sfondo_colore16: '  9
zz = InStr(1, strmirc, " 9,", vbTextCompare)
If zz <> 0 Then
    If IsNumeric(Mid$(strmirc, zz + 3, 1)) Then
        strmirc = Left$(strmirc, zz - 1) + "\highlight11  " +
Right$(strmirc, Len(strmirc) - zz - 2)
    Else
        strmirc = Left$(strmirc, zz - 1) + "\cf11 " + Right$(strmirc,
Len(strmirc) - zz - 2)
    End If
  GoTo sfondo_colore16
End If
verde_acqua: ' 10
zz = InStr(1, strmirc, " 10", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf4 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo verde_acqua
End If
azzurro: ' 11
zz = InStr(1, strmirc, " 11", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf12 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo azzurro
End If
blu_chiaro: ' 12
zz = InStr(1, strmirc, " 12", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf10 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo blu_chiaro
End If
fucsia: ' 13
zz = InStr(1, strmirc, " 13", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf14 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo fucsia
End If
grigio: ' 14
zz = InStr(1, strmirc, " 14", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf9 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo grigio
End If
grigio_chiaro: ' 15
zz = InStr(1, strmirc, " 15", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf8 " + Right$(strmirc, Len(strmirc) -
zz - 2)
GoTo grigio_chiaro
End If
bianco: ' 0
zz = InStr(1, strmirc, " 0", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf16 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo bianco
End If
nero: ' 1
zz = InStr(1, strmirc, " 1", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf1 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo nero
End If
verdastro: ' 2
zz = InStr(1, strmirc, " 2", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf2 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo verdastro
End If
blu_scuro: ' 3
zz = InStr(1, strmirc, " 3", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf3 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo blu_scuro
End If
rosso: ' 4
zz = InStr(1, strmirc, " 4", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf13 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo rosso
End If
marrone: ' 5
zz = InStr(1, strmirc, " 5", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf5 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo marrone
End If
viola: ' 6
zz = InStr(1, strmirc, " 6", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf6 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo viola
End If
arancio: ' 7
zz = InStr(1, strmirc, " 7", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf7 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo arancio
End If
giallo: ' 8
zz = InStr(1, strmirc, " 8", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf15 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo giallo
End If
verde_chiaro: '  9
zz = InStr(1, strmirc, " 9", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\cf11 " + Right$(strmirc, Len(strmirc) -
zz - 1)
GoTo verde_chiaro
End If
grassetto:
zz = InStr(1, strmirc, " ", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\b " + Right$(strmirc, Len(strmirc) -
zz)
GoTo grassetto
End If
sottolineato:
zz = InStr(1, strmirc, " ", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\ul " + Right$(strmirc, Len(strmirc) -
zz)
GoTo sottolineato
End If
finecolori1:
zz = InStr(1, strmirc, " ", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "" + Right$(strmirc, Len(strmirc) - zz)
GoTo finecolori1
End If
finecolori2:
zz = InStr(1, strmirc, " ", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "" + Right$(strmirc, Len(strmirc) - zz)
GoTo finecolori2
End If
corsivo:
zz = InStr(1, strmirc, " ", vbTextCompare)
If zz <> 0 Then
strmirc = Left$(strmirc, zz - 1) + "\i " + Right$(strmirc, Len(strmirc) -
zz)
GoTo corsivo
End If
Form1.RichTextBox1.SelRTF =
"{\rtf1\ansi\ansicpg1252\deff0\deflang1040{\fonttbl{\f0\fnil\fcharset0
Arial;}}{\colortbl
;\red0\green0\blue0;\red0\green0\blue128;\red0\green128\blue0;\red0\green128
\blue128;\red128\green0\blue0;\red128\green0\blue128;\red128\green128\blue0;
\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue255;\red0
\green255\blue0;\red0\green255\blue255;\red255\green0\blue0;\red255\green0\b
lue255;\red255\green255\blue0;\red255\green255\blue255;}\viewkind4\uc1\pard\
fs17" + strmirc + "\par}"
End Sub

 al posto della sfera puoi usare lo specchio di Biancaneve.... :-)
[SNIP]
Sfortunatamente si e' incrinato non appena ho incollato la routine RoomMsg
;-)
(carino il sistema, ne avevi parlato in un messaggio precedente vero?)


 tuoi e con quelli del PC incriminato
Fatto con VB6+SP5
Sembra OK
Ciao
xandre72

risultato."
Cioe' ?

fiuuuuu..... ;-) pensavo girasse solo da me....
bene il "cliente" è MINMAX :-)
da lui gira ma cambia solo i colori dei caratteri, mentre da me cambia anche
i colori dello sfondo dei caratteri.
comunque, tnx per l'aiuto
ciao a tutti
                                _pixel_
p.i....@katamail.com
http://vbios.cjb.net
P.S.1 x Luca Dormio
 si avevo già pastato alcuni giorni fa' un codice praticamente =
P.S.2 x Luca e Xandre
A proposito....ma a voi cambia solo il colore caratteri o anche il colore di
sfondo dei caratteri?

 sfondo dei caratteri?
Caratteri e sfondo.
