Unicode (simbolos en texto)

[papanoel_devacaciones]

Hola , he intentado crear una aplicacion como la de MadAntrax (MSN:KICK) en este caso simplemente que envie el numero de mensajes y el texto que te de la gana...tambien para que sirva para otras ventanas.

donde la ventana en el momento en el que la abre

Código [Seleccionar] Expandir

AppActivate "Converaciòn"
ebece Conversaciòn he puesto

Código [Seleccionar] Expandir

AppActivate (Text1.Text)
Osea para que abra la ventana que tu le indicas..pero a la hora de meter simbolos

Código [Seleccionar] Expandir

un ejemplo: ·˙˙·٠●To6et0●٠·˙˙·
salen unicamente "????" y no activa la ventana que deseo, he probado con todo tipo de letra unicode por si eso pero no va...alguna idea...Gracias

Saludos

[papanoel_devacaciones]

nadie 

[HaDeS, -]

smokehack_ si puedes y si quieres mandame el proyecto a hadesatron@gmail.com, o subelo a rapidshare y postealo, es que no entiendo muy bien lo que queres decir .
saludos!

[papanoel_devacaciones]

No me importa 
Veras el caso es el siguiente:
yo quiero que el programa pueda aceptar los símbolos por ejemplo:

Código [Seleccionar] Expandir

·˙˙·٠●To6et0●٠·˙˙·
pero cuando lo pego en el programa me sale esto:

Código [Seleccionar] Expandir

????0?To6et0?0????
de todos modos te dejo el source:

http://smokehack.com/multifucker.rar

Yo ya he creado lo aplicación pero el problema es que los símbolos no los admite.

Saludos

[ActiveSheet]

puede resultar si esos caracteres los pegas como chr(34)

quien sabe la verdad no se si esos caracteres rebasen los 255 que ay  xD nisiquiera estoy seguro de que sean 255 pero en fin es eso o un JS del Plus

[papanoel_devacaciones]

Un poquitin mas explicativo PLEASE 

[HaDeS, -]

Bueno, llegue a algo asi, pero no pude hacer que el texto funcionara con unicode :/ y no creo tampoco que se pueda, puedes crear un control de usuario simulando ser un TextBox, y que el texto sea lo que se imprima en el control. pero lo veo dificil

Código (vb) [Seleccionar] Expandir


Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Command1_Click()
Dim TextoOut() As Byte, TextoW() As Byte, Texto, LongTxt&, Unicode$
Texto = Mid(Text1.Text, 3, Len(Text1.Text) - 3)
Texto = Split(Texto, ";&#")
For i = 0 To UBound(Texto)
    Unicode = Unicode & StrConv(ChrW(Texto(i)), vbUnicode)
Next i
TextoW = Unicode
ReDim TextoOut((UBound(TextoW) * 4))
For i = 0 To UBound(TextoW)
    TextoOut(i) = TextoW(i)
Next i
LongTxt = Len(Unicode)
Me.Cls
Me.FontSize = 18
TextOut Me.hdc, 0, 0, TextoOut, LongTxt
End Sub


Para convertir el texto al unicode prueba con esta web http://www.pinnacledisplays.com/unicode-converter.htm, ahi insertas el ·˙˙·٠●To6et0●٠·˙˙·, y lo conviertes, el codigo luego lo copias al Text1.text y le das al Command1, y se imprime el codigo en el Form1.

Código (c++) [Seleccionar] Expandir


·˙˙·٠●To6et0●٠·˙˙·


Saludos

[cobein]

Aca tenes el link de unos controles que soportan unicode, la verdad no los probe pero supongo que funcionan bien http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=68734&lngWId=1

[papanoel_devacaciones]

Gracias voy a porbar a todos. La verdad es que la segunda cosa lo de convertir en unicode para este programita no me sirve pero igual para otro viejo que tenia por ahi si 

de todos modos Gracias a todos y bueno a probar los codigos 




Saludos

[cobein]

Bueno al final me canse y baje tu codigo, la verdad hay mil maneras de resolver eso usando API, un par de comentarios: trata de no usar tantos timers, podrias haber resuelto todo con 1 o 2,  si es posible reemplaza los controles de usuario (dependencias) con codigo, por ejemplo tu codigo depende de un control para poner un icono en el systray, si queres aca hay una clase que hice hace un tiempo y creo es bastante buena http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=68948&lngWId=1 , la verdad si aprendes un poco de API se te va ha hacer mas facil.

Saludos