Programacion en Visual Basic

Question

Programacion en Visual Basic

fostiator 12 mar 2002 14:01

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

Vamos a ir poniendo en este hilo los distintos programas (con sus mejoras) que se vayan realizando en visual basic (que nadie me pregunte la casua por la que se ha elegido este "lenguaje"

)

44 respuestas

Answer 1 · 2002-03-12T13:03:49+00:00

Realizado por Billyberjas

PRIMER RETO
NUESTRO PRIMER RETO:

Hacer una aplicación para formatear texto para introducir en EOL...

Veamos, yo estoy cansado de escribir un mensaje, y luego querer resaltar algo en negrita, darle al botón de negrita y tener q escribirlo otra vez para que lo meta en negrita....

Soluciones:
1.- Piensa antes de escribir: No valida, soy un hombre
2.- Escribe tu el [ B ] a mano: No me da la gana
3.- Usa un programita : Vale

Cómo podemos hacer un programa que seleccionemos un texto, demos a un boton y automáticamente lo delimite con [ B] y [ / B]????

Muy sencillo, voy a utilizar Visual Basic , pq es visual, y pq se tarda menos .

En primer lugar necesitamos un textbox... muy facil no ?

ok , tb neceistamos un boton, que será el boton de Negrita (Podeís poner una N , como en Word ).

Lo siguiente es hacer que el texto que seleccione en el textbox , al dar al boton , se actulize poniendo los codigos [ B] delante y [ /B] detrás (para que en EOL salga en negrita).

Muy sencillo

------------------------------

En el evento on_click del boton necesitamos

1.- Capturar el texto seleccionado. La propiedad del textbox .SelText lo hace por nosotros.
2.- Introducir detrás y delante del texto los códigos.

Esto es más complicao así que lo explicamos mejor

Necesitamos.
Conseguir el texto que hay a la izquierda del seleccionado para meter el [ B] y el que hay a la izquierda para meter el [ /B]. Y luego hacer

textototal= textoizquierda + [ B] + textoseleccionado + [ /B] + textoderecha.

Facil no?

Os pongo el código....(Visual Basic)

code:--------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim texto, empieza, longitud, textoizq, textoder, textoennegrita As Variant
empieza = Text1.SelStart
longitud = Text1.SelLength
texto = Text1.Text
textoizq = Left$(texto, empieza)
textoizq = textoizq + "[ B]"
textoder = Right(texto, Len(texto) - (empieza + longitud))
textoennegrita = Text1.SelText + "[/ B]"
Text1.Text = textoizq + textoennegrita + textoder
End Sub

Los [ B] y los [/ B] van sin espacio, pero si lo quito no sale aquí
--------------------------------------------------------------------------------

Las funciones son muy fáciles
Left$ me devuelve el texto a la izquierda desde un punto (el punto donde empieza el texto seleccionado)
Rigth lo mismo pero desde la izquierda
y ya ta..

Si teneís alguna duda, postead y la intentaremos solucionar...

Answer 2 · 2002-03-12T13:05:42+00:00

Realizada por Carahuevo

En tal caso, ahí va mi sugerencia para el código VB de formateo de negrita:

code:--------------------------------------------------------------------------------
Private Sub Command1_Click()
Text1.SelText = "[ B]" & Text1.SelText & "[ /B]"
End Sub
--------------------------------------------------------------------------------
(Sin olvidar eliminar los espacios junto a los corchetes, claro)

Answer 3 · 2002-03-12T13:06:49+00:00

Realizado por carahuevo

Pues yo como soy partidarío de la "centralización" de código, haría una única función para formatear el texto seleccionado cuyo parámetro sería el formato que se quiere dar (I, B, etc), tal que así. Dado que hay formatos cuya etiqueta de cierre no es igual a la de apertura, como la de color y tamaño, se añadería un segundo parámetro opcional con estos valores:

code:--------------------------------------------------------------------------------
Private Sub Formatear(Estilo As String, Optional Valor As String="")
Dim strApertura As String
If Valor = "" Then
strApertura = Estilo
Else
strApertura = Estilo & "=" & Valor
End If
Text1.SelText = "[" & strApertura & "]" & Text1.SelText & "[/" & Estilo & "]"
End Sub

Private Sub btnNegrita_Click()
Call Formatear("B")
End Sub

Private Sub btnCursiva_Click()
Call Formatear("I")
End Sub

Private Sub cmbTamanio_Click()
Call Formatear("SIZE", cmbTamanio.Text)
End Sub
...
--------------------------------------------------------------------------------
En este caso, para el tamaño se me ha ocurrida utilizar un Combo, como en EOL, de modo que a la función se le pasaría el valor elegido.

Answer 4 · 2002-03-12T13:23:07+00:00

realizado por el aburrido de carahuevo que en su curro debe estar tirao a la bartola [sati]

Respecto a no tener seleccionado ningún texto, en realidad casi mejor porque soluciona además lo de el uso de teclas rápidas (ALT ó CTRL + N ó B), ya que se crearía una etiqueta vacía. Para comodidad lo único que habría que hacer sería colocar el cursor entre la etiqueta de apertura y de cierre para empezar a escribir del tirón. Dado que el valor del inicio de la selcción (.SelStart) adquiere el valor de la posición de la etiqueta de cierre, lo único que habría que hacer es "retroceder" tantas posiciones como mida el texto de la etiqueta de cierre...Así quedaría la función de Formateo...

code:--------------------------------------------------------------------------------
Private Sub Formatear(Estilo As String, Optional Valor As String = "")
Dim strApertura As String '-> Etiqueta de apertura
Dim strCierre As String '-> Etiqueta de cierre

If Valor = "" Then
strApertura = "[" & Estilo & "]"
Else
strApertura = "[" & Estilo & "=" & Valor & "]"
End If
strCierre = "[/" & Estilo & "]"

Text1.SelText = strApertura & Text1.SelText & strCierre

If Text1.SelLength = 0 Then
Text1.SelStart = Text1.SelStart - Len(strCierre)
Text1.SetFocus
End If
End Sub
--------------------------------------------------------------------------------

La llamada para el uso de una tecla rápida se haría en el evento KeyDown de la caja de texto para contemplar si la tecla CONTROL fue pulsada:

code:--------------------------------------------------------------------------------
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ctrlPulsado
ctrlPulsado = ((Shift And vbCtrlMask) > 0)
If ctrlPulsado Then
Select Case KeyCode
Case vbKeyB '-> Tecla B
Call Formatear("B")
Case vbKeyI '-> Tecla I
Call Formatear("I")
Case vbKeyU '-> Tecla U
Call Formatear("U")
End Select
End If
End Sub
--------------------------------------------------------------------------------

Answer 5 · 2002-03-12T15:18:40+00:00

Billy,he puesto en este foro un enlace a un peaso de manual de Visual Basic 6 para novatos.
Además,de momento,solo estamos nosotros por lo que creo que no va a ser muy necesario dar muchas explicaciones de como funciona el codigo,no?

Answer 6 · 2002-03-12T15:29:13+00:00

Originalmente enviado por fostiator

Además,de momento,solo estamos nosotros por lo que creo que no va a ser muy necesario dar muchas explicaciones de como funciona el codigo,no?

grrr me has pillao haciendo la segunda entrega ....

bueno, pues lo dejo ahí, si alguien quiere q siga, pues que avise y lo pongo en otro lao...

Entonces.... ¿hacemos algo? , mandame un mail pa no saturar esto de msgs.... !coñe!

pd:fostiator estás acabao....con lo q me mola enseñar

Answer 7 · 2002-03-12T15:44:51+00:00

es que este foro es de proyectos (no es el de aprendizaje) así que aqui lo que debemos hacer es poner una idea e intentar desarrollarla.

o poner un codigo que tengamos y que sea susceptible de mejorar.

PD: a mi tambien me encanta enseñar (te has pasado por el foro de ripeo de dvd???)

Answer 8 · 2002-03-13T10:23:55+00:00

Bueno, pues con ánimo de mejorar...imaginad que tenemos el programa ya hecho (todos los botoncitos funcionan y tal....

¿Cómo hariaís la vista previa?....

En mi opinión, deberíamos tener dos textbox, uno de ellos oculto, pero en vez de ponerle [ B] [ /B] pues que pusiese < B > < / B >...y así mas o menos. Luego se mostraría una vista previa con el control ese de html y saldría....¿no creeís? ¿O pensaís que sería mejor un control RTF y mostrar el texto con formato?....

Saludines.

Answer 9 · 2002-03-13T10:48:54+00:00

Creo que una vista es meterse en camisa de once varas...
El Control RichTextFormat es muy útil para el caso pero presenta a mi juicio dos inconvenientes:

1) Lo que hablamos de anteriormente del VB y los extras, ya que el control RTF no es un control estándar.
2) Es necesario convertir el código HTML (con "<>" en lugar de "[]") a código RTF. Una vez estuve mirándome éstos códigos y es un poco c*ñazo, a no ser que tengas ya una rutina de conversión.

Una solución menos elegante pero más "universal" sería generar una página HTML con el código y lanzar el navegador por defecto.

Hay otras soluciones más "chulas" pero más restrictivas en cuanto que necesitan Internet Explorer:

Sol. 1: Usar una instancia del ActiveX WebBrowser (Internet Explorer) y presentar la página de previsualización en el mismo formulario de Visual Basic.

Sol. 2: Usar un control que venía ya incluido con Internet Explorer ya desde la versión 4. Se trata del ActiveX DHTMLEdit. Éste permite la edición de HTML de manera visual (WYSIWYG). Claro que de usar este control sería más fácil editar el texto visualmente sobre él y luego traducir el código HTML que se genera a código EOL. De hecho yo ya tengo hecho un editor HTML con los botones de formato correspondientes que utiliza este ActiveX. Es extremadamente sencillo su uso. El único inconveniente que tiene que estar instalado, claro.

Answer 10 · 2002-03-13T10:57:34+00:00

efectivamente, despues de pensarlo un ratito me parece a mí que la mejor solución sería lanzar el navegador por defecto (creo q es con un "start page.html" ) y santas pascuas....habrá gente q no tenga el control tal y cual...pero navegador...(sobre todo si tiene windows

)....

ukiduki, me pondré a ello en cuanto haga la cama

DD

Answer 11 · 2002-03-13T11:40:08+00:00

yo lo que tengo hecho (ahora os lo paso) es un programa en Visual Basic que te genera codigo html (visible desde aqui) haciendo el efecto de text fade (queda muy chulo),la interfaz es una castaña (no soy diseñador,jejeje) pero funciona muy bien

Answer 12 · 2002-03-13T11:52:55+00:00

mm text fade? a q te refieres con eso?

bueno, la funcion q se puede usar para llamar al explorer es la api Shellexecute.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
 (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, 
ByVal lpParameters As String, ByVal lpDirectory As String, 
ByVal nShowCmd As Long) As Long

con esto y con la info del msdn podemos abrir el explorador por defecto para q pille el hhtml q hayamos creado...

saludines.

Answer 13 · 2002-03-13T12:38:29+00:00

fostiator 13 mar 2002 13:38

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

a esto:

El otro lado

Answer 14 · 2002-03-13T12:49:05+00:00

fostiator 13 mar 2002 13:49

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

otro ejemplo de lo que se puede hacer

^Te_xt^o _pa^rar^ea_li^za_r ^ele^fe_ct^o _Fa^de

Answer 15 · 2002-03-13T12:50:28+00:00

este ejemplo lo tiene casi todo:ola,negrita,tamaño grande,con un enlace...

^[E_OL^]f_os^ti_at^or

Answer 16 · 2002-03-13T12:57:33+00:00

Esta es la funcion que hace todo esto:

Private Function fadetext()
On Error GoTo ErrorHandler
Dim nTemp
red(0) = 0
green(0) = 0
blue(0) = 0
color(0) = Picture1.UBound
nTemp = 0
For X = 1 To Picture1.UBound
If Picture1(X).Tag = "a" Then
color(0) = color(0) - 1
Else
nTemp = nTemp + 1
color(nTemp) = Hex(Picture1(X).BackColor)
If Len(color(nTemp)) = 4 Then
color(nTemp) = "00" & color(nTemp)
End If
If Len(color(nTemp)) = 5 Then
color(nTemp) = "0" & color(nTemp)
End If
If Len(color(nTemp)) = 2 Then
color(nTemp) = "0000" & color(nTemp)
End If
End If
If color(0) = 1 Then
MyMSG "Dos Colores!!", "Debes seleccionar al menos 2 colores!"
Exit Function
End If
Next
Text2.text = ""
lenth = Len(Text1.text) / (color(0) - 1)
lenth = Round(lenth, 0)
For ntemocolor = 1 To color(0) - 1
xc = Left(color(ntemocolor), 2)
xb = Right(Left(color(ntemocolor), 4), 2)
xa = Right(color(ntemocolor), 2)
yc = Left(color(ntemocolor + 1), 2)
yb = Right(Left(color(ntemocolor + 1), 4), 2)
ya = Right(color(ntemocolor + 1), 2)
ncount = red(0)
nstep = Round((HexCon(ya) - HexCon(xa)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = red(0) + 1 To ncount
red(X) = ya
Next
GoTo reda
End If
For nTemp = HexCon(xa) To HexCon(ya) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
red(ncount) = ntempb
Next
reda:
red(0) = ncount
ncount = green(0)
nstep = Round((HexCon(yb) - HexCon(xb)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = green(0) + 1 To ncount
green(X) = yb
Next
GoTo greena
End If
For nTemp = HexCon(xb) To HexCon(yb) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
green(ncount) = ntempb
Next
greena:
green(0) = ncount
ncount = blue(0)
nstep = Round((HexCon(yc) - HexCon(xc)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = blue(0) + 1 To ncount
blue(X) = yc
Next
GoTo bluea
End If
For nTemp = HexCon(xc) To HexCon(yc) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
blue(ncount) = ntempb
Next
bluea:
blue(0) = ncount
Next
v = "Soy la pera limonera "
For X = red(0) + 1 To 1000
red(X) = red(red(0))
Next
For X = green(0) + 1 To 1000
green(X) = green(green(0))
Next
For X = blue(0) + 1 To 1000
blue(X) = blue(blue(0))
Next
If Check1.Value = 1 Then
ntempb = 0
For X = 1 To Len(Text1.text)
ntempb = ntempb + 1
If ntempb = 5 Then
ntempb = 1
End If
If ntempb = 1 Then
ntempc = "^{"
End If
If ntempb = 2 Then
ntempc = "}"
End If
If ntempb = 3 Then
ntempc = "_{"
End If
If ntempb = 4 Then
ntempc = "}"
End If
If X = 1 Then
ntempgg = " size=" & optiona(1)
Else
ntempgg = ""
End If
nTemp = Right(Left(Text1.text, X), 1)
Text2.text = Text2.text & "" & ntempc & nTemp
Next
Else
For X = 1 To Len(Text1.text)
If X = 1 Then
ntempgg = " size=" & optiona(1)
Else
ntempgg = ""
End If
nTemp = Right(Left(Text1.text, X), 1)
Text2.text = Text2.text & "" & nTemp
Next
End If
If Check3.Value = 1 Then
Text2.text = "" & Text2.text & ""
End If
If Check4.Value = 1 Then
Text2.text = "" & Text2.text & ""
End If
If Check2.Value = 1 Then
Text2.text = "" & Text2.text & ""
End If
If optiona(2) = 1 Then
Text2.text = "" & Text2.text & ""
End If
Exit Function
ErrorHandler:
ErrorHandler
End Function

Si os dais cuenta,una vez seleccionado colores,tamaño de letra y demas opciones,genera el codigo html necesario para que se pueda ver y te lo escribe en el textbox de tal forma que,luego,puedas seleccionarlo y copiarlo al portapapeles.

Me falta crear un preview del resultado así que si alguien se apunta...jejeje

supongo que el codigo es mejorable ya que lo hice hace cerca de 2 años (mas o menos) y no es mio al 100% sino que lo realizamos entre un compañero y yo

Answer 17 · 2002-03-13T12:58:34+00:00

fostiator 13 mar 2002 13:58

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

coño!!! se ha puesto verde!!! estooo,no sé que pasa

Answer 18 · 2002-03-13T13:10:48+00:00

Joer macho, escribes código como yo....tirando lineas.....

deberías comentar un poquito. mas o menos pillo lo que hace, pero está todo mu centralizao... tb deberías ponerlo todo en un [ CODE] para q se viese mejor

...

de todos modos, no sé si a jixo le molará q la gente empieze a meter cositas así en los msg....pq ocupa más un mensaje html q uno en texto plano....

pero vendría bien para incluirlo en el EOL FORMATTER

pd:Fostiator acabo de escuchar tu canción de RunAway y cantas de la hostia!!! y la música está cojunda, parecía la original!!!!! enhorabuena tío!!!!

Answer 19 · 2002-03-13T15:17:45+00:00

Vaya peaso de código....A ver si lo tabulo por que no me entero de nada

. Vaya....no soy muy partidario de usar etiquetas para saltos de código...

salvo para el control de errores (On Error)...Pero creo que es buena idea añadir estos efectos de texto.

Answer 20 · 2002-03-13T15:21:56+00:00

de todos modos, mételo dentro de un bloque [ code] pq no sale bien, así lo podemos cortar y pegar para hacerlo un poco más

entendible

Answer 21 · 2002-03-13T15:34:51+00:00

Lo que no sé es si el código EOL admite todos los colores o sólo los que vienen en el desplegable

Answer 22 · 2002-03-13T15:35:02+00:00

amos a ver:

Private Function fadetext()
On Error GoTo ErrorHandler
Dim nTemp
red(0) = 0
green(0) = 0
blue(0) = 0
color(0) = Picture1.UBound
nTemp = 0
For X = 1 To Picture1.UBound
If Picture1(X).Tag = "a" Then
color(0) = color(0) - 1
Else
nTemp = nTemp + 1
color(nTemp) = Hex(Picture1(X).BackColor)
If Len(color(nTemp)) = 4 Then
color(nTemp) = "00" & color(nTemp)
End If
If Len(color(nTemp)) = 5 Then
color(nTemp) = "0" & color(nTemp)
End If
If Len(color(nTemp)) = 2 Then
color(nTemp) = "0000" & color(nTemp)
End If
End If
If color(0) = 1 Then
MyMSG "Dos Colores!!", "Debes seleccionar al menos 2 colores!"
Exit Function
End If
Next
Text2.Text = ""
lenth = Len(Text1.Text) / (color(0) - 1)
lenth = Round(lenth, 0)
For ntemocolor = 1 To color(0) - 1
xc = Left(color(ntemocolor), 2)
xb = Right(Left(color(ntemocolor), 4), 2)
xa = Right(color(ntemocolor), 2)
yc = Left(color(ntemocolor + 1), 2)
yb = Right(Left(color(ntemocolor + 1), 4), 2)
ya = Right(color(ntemocolor + 1), 2)
ncount = red(0)
nstep = Round((HexCon(ya) - HexCon(xa)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = red(0) + 1 To ncount
red(X) = ya
Next
GoTo reda
End If
For nTemp = HexCon(xa) To HexCon(ya) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
red(ncount) = ntempb
Next
reda:
red(0) = ncount
ncount = green(0)
nstep = Round((HexCon(yb) - HexCon(xb)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = green(0) + 1 To ncount
green(X) = yb
Next
GoTo greena
End If
For nTemp = HexCon(xb) To HexCon(yb) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
green(ncount) = ntempb
Next
greena:
green(0) = ncount
ncount = blue(0)
nstep = Round((HexCon(yc) - HexCon(xc)) / lenth, 0)
If nstep = 0 Then
ncount = ncount + lenth
For X = blue(0) + 1 To ncount
blue(X) = yc
Next
GoTo bluea
End If
For nTemp = HexCon(xc) To HexCon(yc) Step nstep
ncount = ncount + 1
DoEvents
ntempb = Hex(Round(nTemp, 0))
If Len(ntempb) = 1 Then
ntempb = "0" & ntempb
End If
blue(ncount) = ntempb
Next
bluea:
blue(0) = ncount
Next
v = "Soy la pera limonera ;)"
For X = red(0) + 1 To 1000
red(X) = red(red(0))
Next
For X = green(0) + 1 To 1000
green(X) = green(green(0))
Next
For X = blue(0) + 1 To 1000
blue(X) = blue(blue(0))
Next
If Check1.Value = 1 Then
ntempb = 0
For X = 1 To Len(Text1.Text)
ntempb = ntempb + 1
If ntempb = 5 Then
ntempb = 1
End If
If ntempb = 1 Then
ntempc = "<sup>"
End If
If ntempb = 2 Then
ntempc = "</sup>"
End If
If ntempb = 3 Then
ntempc = "<sub>"
End If
If ntempb = 4 Then
ntempc = "</sub>"
End If
If X = 1 Then
ntempgg = " size=" & optiona(1)
Else
ntempgg = ""
End If
nTemp = Right(Left(Text1.Text, X), 1)
Text2.Text = Text2.Text & "<font color=" & red(X) & green(X) & blue(X) & ntempgg & ">" & ntempc & nTemp
Next
Else
For X = 1 To Len(Text1.Text)
If X = 1 Then
ntempgg = " size=" & optiona(1)
Else
ntempgg = ""
End If
nTemp = Right(Left(Text1.Text, X), 1)
Text2.Text = Text2.Text & "<font color=" & red(X) & green(X) & blue(X) & ntempgg & ">" & nTemp
Next
End If
If Check3.Value = 1 Then
Text2.Text = "<u>" & Text2.Text & "</u>"
End If
If Check4.Value = 1 Then
Text2.Text = "<i>" & Text2.Text & "</i>"
End If
If Check2.Value = 1 Then
Text2.Text = "<b>" & Text2.Text & "</b>"
End If
If optiona(2) = 1 Then
Text2.Text = "<a href=" & Chr(34) & optiona(3) & Chr(34) & ">" & Text2.Text & "</a>"
End If
Exit Function
ErrorHandler:
ErrorHandler
End Function

ya ta

contentos los nenes???

Answer 23 · 2002-03-13T15:38:06+00:00

Originalmente enviado por carahuevo
Lo que no sé es si el código EOL admite todos los colores o sólo los que vienen en el desplegable

no tiene nada que ver con los colores que admita EOL ya que donde nosotros estamos escribiendo es una caja de texto que soporta codigo HTML

Si te fijas abajo a la izquierda hay unas reglas de envio de mensajes:

Reglas de envio de mensajes:
El código HTML está ON.
Los smilies están ON.
El código vB está ON.

Donde,si el codigo HTML aparece como ON,puedes meter cualquier tipo de codigo html (tablas,saltos de linea,ect) y,por supuesto los codigos de colores que toda pagina html permite

Answer 24 · 2002-03-13T15:39:16+00:00

nop ,sigue saliendo mal, pq no lo pasas como un txt adjunto?
creo q sale mal...

saludos.

Answer 25 · 2002-03-13T15:39:27+00:00

ejemplo de una tabla:

04/03/2002 | FALLO
CON LAS NUEVAS CANCIONES::.::.:..

Gracias a ZeusII y
a Toshintager por la info.Hay 3 nuevas
canciones en el servidor que,por error,
estan en wav (ocupando la friolera
de 50 megas cada una,más o
menos).NO OS LAS BAJEIS porque,además,son
sólo la melodía.Perdonad
las molestias.Intentaré solucionarlo
lo antes posible.

Answer 26 · 2002-03-13T15:41:55+00:00

Originalmente enviado por billyberjas
nop ,sigue saliendo mal, pq no lo pasas como un txt adjunto?
creo q sale mal...

saludos.

cagonto

es que como meto codigo que formatea el texto...

bueno aqui va el txt dichoso

Answer 27 · 2002-03-13T15:44:12+00:00

[color=orange]
Private Function fadetext() 
   On Error GoTo ErrorHandler 
   Dim nTemp 

   red(0) = 0 
   green(0) = 0 
   blue(0) = 0 
   color(0) = Picture1.UBound 
   nTemp = 0 
   For X = 1 To Picture1.UBound 
      If Picture1(X).Tag = "a" Then 
         color(0) = color(0) - 1 
      Else 
         nTemp = nTemp + 1 
         color(nTemp) = Hex(Picture1(X).BackColor) 
         If Len(color(nTemp)) = 4 Then 
            color(nTemp) = "00" & color(nTemp) 
         End If 
         If Len(color(nTemp)) = 5 Then 
            color(nTemp) = "0" & color(nTemp) 
         End If 
         If Len(color(nTemp)) = 2 Then 
            color(nTemp) = "0000" & color(nTemp) 
         End If 
      End If 
      If color(0) = 1 Then 
         MyMSG "Dos Colores!!", "Debes seleccionar al menos 2 colores!" 
         Exit Function 
      End If 
   Next 

   Text2.text = "" 
   lenth = Len(Text1.text) / (color(0) - 1) 
   lenth = Round(lenth, 0) 
   For ntemocolor = 1 To color(0) - 1 
      xc = Left(color(ntemocolor), 2) 
      xb = Right(Left(color(ntemocolor), 4), 2) 
      xa = Right(color(ntemocolor), 2) 
      yc = Left(color(ntemocolor + 1), 2) 
      yb = Right(Left(color(ntemocolor + 1), 4), 2) 
      ya = Right(color(ntemocolor + 1), 2) 
      ncount = red(0) 
      nstep = Round((HexCon(ya) - HexCon(xa)) / lenth, 0) 
      If nstep = 0 Then 
         ncount = ncount + lenth 
         For X = red(0) + 1 To ncount 
            red(X) = ya 
         Next 
         GoTo reda 
      End If 
      For nTemp = HexCon(xa) To HexCon(ya) Step nstep 
         ncount = ncount + 1 
         DoEvents 
         ntempb = Hex(Round(nTemp, 0)) 
         If Len(ntempb) = 1 Then 
            ntempb = "0" & ntempb 
         End If 
         red(ncount) = ntempb 
      Next 
reda: 
      red(0) = ncount 
      ncount = green(0) 
      nstep = Round((HexCon(yb) - HexCon(xb)) / lenth, 0) 
      If nstep = 0 Then 
         ncount = ncount + lenth 
         For X = green(0) + 1 To ncount 
            green(X) = yb 
         Next 
         GoTo greena 
      End If 
      For nTemp = HexCon(xb) To HexCon(yb) Step nstep 
         ncount = ncount + 1 
         DoEvents 
         ntempb = Hex(Round(nTemp, 0)) 
         If Len(ntempb) = 1 Then 
            ntempb = "0" & ntempb 
         End If 
         green(ncount) = ntempb 
      Next 
greena: 
      green(0) = ncount 
      ncount = blue(0) 
      nstep = Round((HexCon(yc) - HexCon(xc)) / lenth, 0) 
      If nstep = 0 Then 
         ncount = ncount + lenth 
         For X = blue(0) + 1 To ncount 
            blue(X) = yc 
         Next 
         GoTo bluea 
      End If 
      For nTemp = HexCon(xc) To HexCon(yc) Step nstep 
         ncount = ncount + 1 
         DoEvents 
         ntempb = Hex(Round(nTemp, 0)) 
         If Len(ntempb) = 1 Then 
            ntempb = "0" & ntempb 
         End If 
         blue(ncount) = ntempb 
      Next 
bluea: 
      blue(0) = ncount 
   Next 
   v = "Soy la pera limonera " 
   For X = red(0) + 1 To 1000 
      red(X) = red(red(0)) 
   Next 
   For X = green(0) + 1 To 1000 
      green(X) = green(green(0)) 
   Next 
   For X = blue(0) + 1 To 1000 
      blue(X) = blue(blue(0)) 
   Next 
   If Check1.Value = 1 Then 
      ntempb = 0 
      For X = 1 To Len(Text1.text) 
         ntempb = ntempb + 1 
         If ntempb = 5 Then 
            ntempb = 1 
         End If 
         If ntempb = 1 Then 
            ntempc = "" 
         End If 
         If ntempb = 2 Then 
            ntempc = "" 
         End If 
         If ntempb = 3 Then 
            ntempc = "" 
         End If 
         If ntempb = 4 Then 
            ntempc = "" 
         End If 
         If X = 1 Then 
            ntempgg = " size=" & optiona(1) 
         Else 
            ntempgg = "" 
         End If 
         nTemp = Right(Left(Text1.text, X), 1) 
         Text2.text = Text2.text & "" & ntempc & nTemp 
      Next 
   Else 
      For X = 1 To Len(Text1.text) 
         If X = 1 Then 
            ntempgg = " size=" & optiona(1) 
         Else 
            ntempgg = "" 
         End If 
         nTemp = Right(Left(Text1.text, X), 1) 
         Text2.text = Text2.text & "" & nTemp 
      Next 
   End If 
   If Check3.Value = 1 Then 
      Text2.text = "" & Text2.text & "" 
   End If 
   If Check4.Value = 1 Then 
      Text2.text = "" & Text2.text & "" 
   End If 
   If Check2.Value = 1 Then 
      Text2.text = "" & Text2.text & "" 
   End If 
   If optiona(2) = 1 Then 
      Text2.text = "" & Text2.text & "" 
   End If 
   
   Exit Function 
   
   ErrorHandler: 
      ErrorHandler 
End Function
[/color]

Pero yo sigo en contra de los Goto

Answer 28 · 2002-03-13T15:50:20+00:00

sigue sin salir bien, pero de todos modos (mira en las ultimas lineas if(optiona(2) ) , pero da igual ,ya tenemos la funcion y el q quiera verla, la puede bajar....

ahora queda mirarla y buscar fallos al fostiator

...q por cierto, ta mu mal organizada

...

Answer 29 · 2002-03-13T15:54:28+00:00

Originalmente enviado por billyberjas
sigue sin salir bien, pero de todos modos (mira en las ultimas lineas if(optiona(2) ) , pero da igual ,ya tenemos la funcion y el q quiera verla, la puede bajar....

ahora queda mirarla y buscar fallos al fostiator ...q por cierto, ta mu mal organizada ...

no me toques los ***** [poraki]

,que la hice hace un huevo de tiempo y con prisas, a ver si a tí se te hubiera ocurrido hacer esto,graciosillo [666]

Answer 30 · 2002-03-13T15:55:16+00:00

mañana os paso el zip con todos los formularios y el vbp y así lo veis mejor,que me piro vampiro!!!!!

ta mañana nenes

Answer 31 · 2002-03-13T22:21:38+00:00

weno... mal rollo

el colega Churly me acaba de comentar q en el único foro q se permite html es en este....

...

y parece ser q la sintaxis de color "EOL" es la siguiente

[ COLOR=blue] [ COLOR=darkblue] ,etc....

no sé si jixo podrá aclararnos si estos colores se corresponden tb a los d html o si son distintos, o si el formato [ COLOR] tiene alguna manera de meterlo en hex o en dec....

así q me parece q lo llevamos complicao...sería tener una hash por nombre y tonalidad....

nu sé,.... retos...

moooola

Answer 32 · 2002-03-14T07:47:48+00:00

joer,es verdad,que putada!!!!
cagonto

bueno,se podría hacer que en vez de generar html generara directamente un gif o un jpg y todo listo

Answer 33 · 2002-03-14T08:16:39+00:00

Supongo que esos colores son los mismos que los definidos para CSS, que permite usar unos nombres estandar en lugar del código #RGB. Inernet Explorer incluso permite mediante nombres usar colores de windows definidos por el usuario, es decir, los colores definidos para los botones, scrolls, fondo de escritorio, etc.

Answer 34 · 2002-03-14T10:58:17+00:00

me imagino ,carahuevo, q serán del estandar css, pero el problema está en si podremos usar notacion hex para los colores o no, pq si no se puede usar se nos complica mucho la cosa....

pd:tampoco hay subindices ni leches....

Answer 35 · 2002-03-14T11:22:57+00:00

Ese no es problema. Lo único que se trabajaría con un rango de colores limitado, sin transiciones entre ellos. La equivalencia hexadecimal es la siguiente:
(no me pregunteis por qué la tabla sale a tomar por c*lo

:?:?)

aliceblue (#F0F8FF)	antiquewhite (#FAEBD7)	aqua (#00FFFF)	aquamarine (#7FFFD4)
azure (#F0FFFF)	beige (#F5F5DC)	bisque (#FFE4C4)	black (#000000)
blanchedalmond (#FFEBCD)	blue (#0000FF)	blueviolet (#8A2BE2)	brown (#A52A2A)
burlywood (#DEB887)	cadetblue (#5F9EA0)	chartreuse (#7FFF00)	chocolate (#D2691E)
coral (#FF7F50)	cornflowerblue (#6495ED)	cornsilk (#FFF8DC)	crimson (#DC143C)
cyan (#00FFFF)	darkblue (#00008B)	darkcyan (#008B8B)	darkgoldenrod (#B8860B)
darkgray (#A9A9A9)	darkgreen (#006400)	darkkhaki (#BDB76B)	darkmagenta (#8B008B)
darkolivegreen (#556B2F)	darkorange (#FF8C00)	darkorchid (#9932CC)	darkred (#8B0000)
darksalmon (#E9967A)	darkseagreen (#8FBC8B)	darkslateblue (#483D8B)	darkslategray (#2F4F4F)
darkturquoise (#00CED1)	darkviolet (#9400D3)	deeppink (#FF1493)	deepskyblue (#00BFFF)
dimgray (#696969)	dodgerblue (#1E90FF)	firebrick (#B22222)	floralwhite (#FFFAF0)
forestgreen (#228B22)	fuchsia (#FF00FF)	gainsboro (#DCDCDC)	ghostwhite (#F8F8FF)
gold (#FFD700)	goldenrod (#DAA520)	gray (#808080)	green (#008000)
greenyellow (#ADFF2F)	honeydew (#F0FFF0)	hotpink (#FF69B4)	indianred (#CD5C5C)
indigo (#4B0082)	ivory (#FFFFF0)	khaki (#F0E68C)	lavender (#E6E6FA)
lavenderblush (#FFF0F5)	lawngreen (#7CFC00)	lemonchiffon (#FFFACD)	lightblue (#ADD8E6)
lightcoral (#F08080)	lightcyan (#E0FFFF)	lightgoldenrodyellow (#FAFAD2)	lightgreen (#90EE90)
lightgrey (#D3D3D3)	lightpink (#FFB6C1)	lightsalmon (#FFA07A)	lightseagreen (#20B2AA)
lightskyblue (#87CEFA)	lightslategray (#778899)	lightsteelblue (#B0C4DE)	lightyellow (#FFFFE0)
lime (#00FF00)	limegreen (#32CD32)	linen (#FAF0E6)	magenta (#FF00FF)
maroon (#800000)	mediumaquamarine (#66CDAA)	mediumblue (#0000CD)	mediumorchid (#BA55D3)
mediumpurple (#9370DB)	mediumseagreen (#3CB371)	mediumslateblue (#7B68EE)	mediumspringgreen (#00FA9A)
mediumturquoise (#48D1CC)	mediumvioletred (#C71585)	midnightblue (#191970)	mintcream (#F5FFFA)
mistyrose (#FFE4E1)	moccasin (#FFE4B5)	navajowhite (#FFDEAD)	navy (#000080)
oldlace (#FDF5E6)	olive (#808000)	olivedrab (#6B8E23)	orange (#FFA500)
orangered (#FF4500)	orchid (#DA70D6)	palegoldenrod (#EEE8AA)	palegreen (#98FB98)
paleturquoise (#AFEEEE)	palevioletred (#DB7093)	papayawhip (#FFEFD5)	peachpuff (#FFDAB9)
peru (#CD853F)	pink (#FFC0CB)	plum (#DDA0DD)	powderblue (#B0E0E6)
purple (#800080)	red (#FF0000)	rosybrown (#BC8F8F)	royalblue (#4169E1)
saddlebrown (#8B4513)	salmon (#FA8072)	sandybrown (#F4A460)	seagreen (#2E8B57)
seashell (#FFF5EE)	sienna (#A0522D)	silver (#C0C0C0)	skyblue (#87CEEB)
slateblue (#6A5ACD)	slategray (#708090)	snow (#FFFAFA)	springgreen (#00FF7F)
steelblue (#4682B4)	tan (#D2B48C)	teal (#008080)	thistle (#D8BFD8)
tomato (#FF6347)	turquoise (#40E0D0)	violet (#EE82EE)	wheat (#F5DEB3)
white (#FFFFFF)	whitesmoke (#F5F5F5)	yellow (#FFFF00)	yellowgreen (#9ACD32)

Answer 36 · 2002-03-14T11:46:35+00:00

fostiator 14 mar 2002 12:46

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

¿por que te sale la tabla a tomar por culo? [poraki]

Answer 37 · 2002-03-14T11:51:53+00:00

XD pillín!!

XD
¿dónde está ese zip que ibas a colgar hoy?
Yo a ver si a la hora de comer me hago un borrador del editor con las funciones básicas y lo cuelgo también.

Answer 38 · 2002-03-14T11:52:34+00:00

Originalmente enviado por fostiator
¿por que te sale la tabla a tomar por culo?

ha dicho que no le preguntemos

el tema está en conseguir esa tabla de otra manera (en un array, o algo) y conseguir ordenarla, para ver si se puede hacer un fade decente con ella, no?

Answer 39 · 2002-03-14T12:13:30+00:00

Pues ahí teneis. He usado un objeto Collection, que en realidad es un Array pero con la ventaja de usar un texto como índice en lugar de un entero, de tal modo que para obtener el cógido del naranja sería tan sencillo como:

   MsgBox cColores("orange")

...y mostraría #FFA500...

Dim cColores As New Collection   ...   
   
Private Sub Form_Load()
   cColores.Add "aliceblue", "#F0F8FF"
   cColores.Add "antiquewhite", "#FAEBD7"
   cColores.Add "aqua", "#00FFFF"
   cColores.Add "aquamarine", "#7FFFD4"
   cColores.Add "azure", "#F0FFFF"
   cColores.Add "beige", "#F5F5DC"
   cColores.Add "bisque", "#FFE4C4"
   cColores.Add "black", "#000000"
   cColores.Add "blanchedalmond", "#FFEBCD"
   cColores.Add "blue", "#0000FF"
   cColores.Add "blueviolet", "#8A2BE2"
   cColores.Add "brown", "#A52A2A"
   cColores.Add "burlywood", "#DEB887"
   cColores.Add "cadetblue", "#5F9EA0"
   cColores.Add "chartreuse", "#7FFF00"
   cColores.Add "chocolate", "#D2691E"
   cColores.Add "coral", "#FF7F50"
   cColores.Add "cornflowerblue", "#6495ED"
   cColores.Add "cornsilk", "#FFF8DC"
   cColores.Add "crimson", "#DC143C"
   cColores.Add "cyan", "#00FFFF"
   cColores.Add "darkblue", "#00008B"
   cColores.Add "darkcyan", "#008B8B"
   cColores.Add "darkgoldenrod", "#B8860B"
   cColores.Add "darkgray", "#A9A9A9"
   cColores.Add "darkgreen", "#006400"
   cColores.Add "darkkhaki", "#BDB76B"
   cColores.Add "darkmagenta", "#8B008B"
   cColores.Add "darkolivegreen", "#556B2F"
   cColores.Add "darkorange", "#FF8C00"
   cColores.Add "darkorchid", "#9932CC"
   cColores.Add "darkred", "#8B0000"
   cColores.Add "darksalmon", "#E9967A"
   cColores.Add "darkseagreen", "#8FBC8B"
   cColores.Add "darkslateblue", "#483D8B"
   cColores.Add "darkslategray", "#2F4F4F"
   cColores.Add "darkturquoise", "#00CED1"
   cColores.Add "darkviolet", "#9400D3"
   cColores.Add "deeppink", "#FF1493"
   cColores.Add "deepskyblue", "#00BFFF"
   cColores.Add "dimgray", "#696969"
   cColores.Add "dodgerblue", "#1E90FF"
   cColores.Add "firebrick", "#B22222"
   cColores.Add "floralwhite", "#FFFAF0"
   cColores.Add "forestgreen", "#228B22"
   cColores.Add "fuchsia", "#FF00FF"
   cColores.Add "gainsboro", "#DCDCDC"
   cColores.Add "ghostwhite", "#F8F8FF"
   cColores.Add "gold", "#FFD700"
   cColores.Add "goldenrod", "#DAA520"
   cColores.Add "gray", "#808080"
   cColores.Add "green", "#008000"
   cColores.Add "greenyellow", "#ADFF2F"
   cColores.Add "honeydew", "#F0FFF0"
   cColores.Add "hotpink", "#FF69B4"
   cColores.Add "indianred", "#CD5C5C"      
   cColores.Add "indigo", "#4B0082"
   cColores.Add "ivory", "#FFFFF0"
   cColores.Add "khaki", "#F0E68C"
   cColores.Add "lavender", "#E6E6FA"
   cColores.Add "lavenderblush", "#FFF0F5"
   cColores.Add "lawngreen", "#7CFC00"
   cColores.Add "lemonchiffon", "#FFFACD"
   cColores.Add "lightblue", "#ADD8E6"
   cColores.Add "lightcoral", "#F08080"
   cColores.Add "lightcyan", "#E0FFFF"
   cColores.Add "lightgoldenrodyellow", "#FAFAD2"
   cColores.Add "lightgreen", "#90EE90"
   cColores.Add "lightgrey", "#D3D3D3"
   cColores.Add "lightpink", "#FFB6C1"
   cColores.Add "lightsalmon", "#FFA07A"
   cColores.Add "lightseagreen", "#20B2AA"
   cColores.Add "lightskyblue", "#87CEFA"
   cColores.Add "lightslategray", "#778899"
   cColores.Add "lightsteelblue", "#B0C4DE"
   cColores.Add "lightyellow", "#FFFFE0"
   cColores.Add "lime", "#00FF00"
   cColores.Add "limegreen", "#32CD32"
   cColores.Add "linen", "#FAF0E6"
   cColores.Add "magenta", "#FF00FF"
   cColores.Add "maroon", "#800000"
   cColores.Add "mediumaquamarine", "#66CDAA"
   cColores.Add "mediumblue", "#0000CD"
   cColores.Add "mediumorchid", "#BA55D3"
   cColores.Add "mediumpurple", "#9370DB"
   cColores.Add "mediumseagreen", "#3CB371"
   cColores.Add "mediumslateblue", "#7B68EE"
   cColores.Add "mediumspringgreen", "#00FA9A"
   cColores.Add "mediumturquoise", "#48D1CC"
   cColores.Add "mediumvioletred", "#C71585"
   cColores.Add "midnightblue", "#191970"
   cColores.Add "mintcream", "#F5FFFA"
   cColores.Add "mistyrose", "#FFE4E1"
   cColores.Add "moccasin", "#FFE4B5"
   cColores.Add "navajowhite", "#FFDEAD"
   cColores.Add "navy", "#000080"
   cColores.Add "oldlace", "#FDF5E6"
   cColores.Add "olive", "#808000"
   cColores.Add "olivedrab", "#6B8E23"
   cColores.Add "orange", "#FFA500"
   cColores.Add "orangered", "#FF4500"
   cColores.Add "orchid", "#DA70D6"
   cColores.Add "palegoldenrod", "#EEE8AA"
   cColores.Add "palegreen", "#98FB98"
   cColores.Add "paleturquoise", "#AFEEEE"
   cColores.Add "palevioletred", "#DB7093"
   cColores.Add "papayawhip", "#FFEFD5"
   cColores.Add "peachpuff", "#FFDAB9"
   cColores.Add "peru", "#CD853F"
   cColores.Add "pink", "#FFC0CB"
   cColores.Add "plum", "#DDA0DD"
   cColores.Add "powderblue", "#B0E0E6"
   cColores.Add "purple", "#800080"
   cColores.Add "red", "#FF0000"
   cColores.Add "rosybrown", "#BC8F8F"
   cColores.Add "royalblue", "#4169E1"
   cColores.Add "saddlebrown", "#8B4513"
   cColores.Add "salmon", "#FA8072"
   cColores.Add "sandybrown", "#F4A460"
   cColores.Add "seagreen", "#2E8B57"
   cColores.Add "seashell", "#FFF5EE"
   cColores.Add "sienna", "#A0522D"
   cColores.Add "silver", "#C0C0C0"
   cColores.Add "skyblue", "#87CEEB"
   cColores.Add "slateblue", "#6A5ACD"
   cColores.Add "slategray", "#708090"
   cColores.Add "snow", "#FFFAFA"
   cColores.Add "springgreen", "#00FF7F"
   cColores.Add "steelblue", "#4682B4"
   cColores.Add "tan", "#D2B48C"
   cColores.Add "teal", "#008080"
   cColores.Add "thistle", "#D8BFD8"
   cColores.Add "tomato", "#FF6347"
   cColores.Add "turquoise", "#40E0D0"
   cColores.Add "violet", "#EE82EE"
   cColores.Add "wheat", "#F5DEB3"
   cColores.Add "white", "#FFFFFF"
   cColores.Add "whitesmoke", "#F5F5F5"
   cColores.Add "yellow", "#FFFF00"
   cColores.Add "yellowgreen", "#9ACD32"
End Sub

Answer 40 · 2002-03-14T12:46:24+00:00

fostiator 14 mar 2002 13:46

MegaAdicto!!!

4.598 mensajes
y 2 fotos
desde nov 2000
en Marbella

a ver si puedo,porque hoy no paro de currar

Answer 41 · 2002-03-14T16:47:13+00:00

Me acabo de dar cuenta de que el código de colores está mal, ya que cuando se agrega un elemento a un objeto Collection, se indica primero el valor y luego la clave....oops:

cColores.Add "#F0F8FF", "aliceblue"

Sería lo correcto...perdons...

With cColores
   .Add "#F0F8FF", "aliceblue"
   .Add "#FAEBD7", "antiquewhite"
   .Add "#00FFFF", "aqua"
   .Add "#7FFFD4", "aquamarine"
   .Add "#F0FFFF", "azure"
   .Add "#F5F5DC", "beige"
   .Add "#FFE4C4", "bisque"
   .Add "#000000", "black"
   .Add "#FFEBCD", "blanchedalmond"
   .Add "#0000FF", "blue"
   .Add "#8A2BE2", "blueviolet"
   .Add "#A52A2A", "brown"
   .Add "#DEB887", "burlywood"
   .Add "#5F9EA0", "cadetblue"
   .Add "#7FFF00", "chartreuse"
   .Add "#D2691E", "chocolate"
   .Add "#FF7F50", "coral"
   .Add "#6495ED", "cornflowerblue"
   .Add "#FFF8DC", "cornsilk"
   .Add "#DC143C", "crimson"
   .Add "#00FFFF", "cyan"
   .Add "#00008B", "darkblue"
   .Add "#008B8B", "darkcyan"
   .Add "#B8860B", "darkgoldenrod"
   .Add "#A9A9A9", "darkgray"
   .Add "#006400", "darkgreen"
   .Add "#BDB76B", "darkkhaki"
   .Add "#8B008B", "darkmagenta"
   .Add "#556B2F", "darkolivegreen"
   .Add "#FF8C00", "darkorange"
   .Add "#9932CC", "darkorchid"
   .Add "#8B0000", "darkred"
   .Add "#E9967A", "darksalmon"
   .Add "#8FBC8B", "darkseagreen"
   .Add "#483D8B", "darkslateblue"
   .Add "#2F4F4F", "darkslategray"
   .Add "#00CED1", "darkturquoise"
   .Add "#9400D3", "darkviolet"
   .Add "#FF1493", "deeppink"
   .Add "#00BFFF", "deepskyblue"
   .Add "#696969", "dimgray"
   .Add "#1E90FF", "dodgerblue"
   .Add "#B22222", "firebrick"
   .Add "#FFFAF0", "floralwhite"
   .Add "#228B22", "forestgreen"
   .Add "#FF00FF", "fuchsia"
   .Add "#DCDCDC", "gainsboro"
   .Add "#F8F8FF", "ghostwhite"
   .Add "#FFD700", "gold"
   .Add "#DAA520", "goldenrod"
   .Add "#808080", "gray"
   .Add "#008000", "green"
   .Add "#ADFF2F", "greenyellow"
   .Add "#F0FFF0", "honeydew"
   .Add "#FF69B4", "hotpink"
   .Add "#CD5C5C", "indianred"
   .Add "#4B0082", "indigo"
   .Add "#FFFFF0", "ivory"
   .Add "#F0E68C", "khaki"
   .Add "#E6E6FA", "lavender"
   .Add "#FFF0F5", "lavenderblush"
   .Add "#7CFC00", "lawngreen"
   .Add "#FFFACD", "lemonchiffon"
   .Add "#ADD8E6", "lightblue"
   .Add "#F08080", "lightcoral"
   .Add "#E0FFFF", "lightcyan"
   .Add "#FAFAD2", "lightgoldenrodyellow"
   .Add "#90EE90", "lightgreen"
   .Add "#D3D3D3", "lightgrey"
   .Add "#FFB6C1", "lightpink"
   .Add "#FFA07A", "lightsalmon"
   .Add "#20B2AA", "lightseagreen"
   .Add "#87CEFA", "lightskyblue"
   .Add "#778899", "lightslategray"
   .Add "#B0C4DE", "lightsteelblue"
   .Add "#FFFFE0", "lightyellow"
   .Add "#00FF00", "lime"
   .Add "#32CD32", "limegreen"
   .Add "#FAF0E6", "linen"
   .Add "#FF00FF", "magenta"
   .Add "#800000", "maroon"
   .Add "#66CDAA", "mediumaquamarine"
   .Add "#0000CD", "mediumblue"
   .Add "#BA55D3", "mediumorchid"
   .Add "#9370DB", "mediumpurple"
   .Add "#3CB371", "mediumseagreen"
   .Add "#7B68EE", "mediumslateblue"
   .Add "#00FA9A", "mediumspringgreen"
   .Add "#48D1CC", "mediumturquoise"
   .Add "#C71585", "mediumvioletred"
   .Add "#191970", "midnightblue"
   .Add "#F5FFFA", "mintcream"
   .Add "#FFE4E1", "mistyrose"
   .Add "#FFE4B5", "moccasin"
   .Add "#FFDEAD", "navajowhite"
   .Add "#000080", "navy"
   .Add "#FDF5E6", "oldlace"
   .Add "#808000", "olive"
   .Add "#6B8E23", "olivedrab"
   .Add "#FFA500", "orange"
   .Add "#FF4500", "orangered"
   .Add "#DA70D6", "orchid"
   .Add "#EEE8AA", "palegoldenrod"
   .Add "#98FB98", "palegreen"
   .Add "#AFEEEE", "paleturquoise"
   .Add "#DB7093", "palevioletred"
   .Add "#FFEFD5", "papayawhip"
   .Add "#FFDAB9", "peachpuff"
   .Add "#CD853F", "peru"
   .Add "#FFC0CB", "pink"
   .Add "#DDA0DD", "plum"
   .Add "#B0E0E6", "powderblue"
   .Add "#800080", "purple"
   .Add "#FF0000", "red"
   .Add "#BC8F8F", "rosybrown"
   .Add "#4169E1", "royalblue"
   .Add "#8B4513", "saddlebrown"
   .Add "#FA8072", "salmon"
   .Add "#F4A460", "sandybrown"
   .Add "#2E8B57", "seagreen"
   .Add "#FFF5EE", "seashell"
   .Add "#A0522D", "sienna"
   .Add "#C0C0C0", "silver"
   .Add "#87CEEB", "skyblue"
   .Add "#6A5ACD", "slateblue"
   .Add "#708090", "slategray"
   .Add "#FFFAFA", "snow"
   .Add "#00FF7F", "springgreen"
   .Add "#4682B4", "steelblue"
   .Add "#D2B48C", "tan"
   .Add "#008080", "teal"
   .Add "#D8BFD8", "thistle"
   .Add "#FF6347", "tomato"
   .Add "#40E0D0", "turquoise"
   .Add "#EE82EE", "violet"
   .Add "#F5DEB3", "wheat"
   .Add "#FFFFFF", "white"
   .Add "#F5F5F5", "whitesmoke"
   .Add "#FFFF00", "yellow"
   .Add "#9ACD32", "yellowgreen"
End With

Answer 42 · 2002-03-14T16:52:07+00:00

mmmm, pero no queremos que la clave sea el codigo hex y el valor el texto?...

no queremos tener ordenados los hex para poder hacer el fade?
así simplemente cuando lleguemos a un hex q exista, enchuscamos el color a tuti...¿no?

Answer 43 · 2002-03-14T16:57:53+00:00

carahuevo 14 mar 2002 17:57

1 eoliano, 1 avatar (o 2)

1.704 mensajes
desde dic 2001
en Madrid

Página web de carahuevo

mmmm....

Answer 44 · 2002-04-23T13:42:33+00:00

weno, tengo q pediros mil perdones por "abandonar" un poquillo el tema (vaya eufemismo

), la verdad es q últimamente me habeís pillado un poco "desanimado" y entre eso...y que me he comprado el gta3 para ps2....bufff [angelito]

weno, el caso es q Prometo firmemente ponerme las pilas y recopilar toda la info para realizar "algo", (intentaré)

....

en serio, últimamente estoy un poco "perro" anímicamente y no me apetece mucho programar, pero espero ponerme las pilas muy prontito [chiu]

no os prometo nada, pero pondré todo mi empeño....

saludos y nos veremos pronto.

pd: os vuelvo a pedir perdon a jixo,carahuevo,fosti, ark del kaos y toda la gente que se apuntó al hilo y que se ha quedado un poco "colgada", prometo mejorar... [angelito]

no seaís muy malos conmigo....
;-)