Mensajes

[Wow]

Wow! Impresionado
Solo te faltaria poder elegir el largo de la sombra

Investigare mas sobre las APIs para 'dibujar'

Saludos

que calidad de icos soporta?

Segun tengo entendido TODAS

Saludos

[lpType =]

Solo has de crear un recurso con el siguiente texto:

Código [Seleccionar] Expandir

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    name="Windows Application"
    processorArchitecture="x86"
    version="5.1.0.0"
    type="win32"/>
<description>Windows Application</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>


En el cual...

lpType = RT_MANIFEST = 24
lpName = 1
wLanguage = 3082
En wLanguage puedes poner el que quieras, pero 'Spanish (Modern)' mola mas

Te adjunto un ejemplo:

Código [Seleccionar] Expandir

http://www.gigasize.com/get.php?d=mbtpqywpzgf



Yo lo hago con el ResHack, pero creo que con el editor de recursos del VB podras...

+Info:

Código [Seleccionar] Expandir

http://www.vbaccelerator.com/home/VB/Code/Libraries/XP_Visual_Styles/Using_XP_Visual_Styles_in_VB/VB6_XP_Styles_Demonstration_-_Manifest_Resource.asp
http://www.mctainsh.com/Articles/Csharp/XpControlsInCS.aspx
Saludos

[MOD:]

Bueno, CheatMaster, no queria ofenderte...

De todas formas, no me has explicado porque me sale el icono de que sea probablemente un virus...

Bueno, en cuanto a el ' tu ' simplemente me referia a si el metodo era tuyo propio... lamento haberte ofendido...

Bueno, resulta que al final no me respondiste a ninguna de las preguntas

Saludos

MOD:
Me respondo a mi mismo con lo del icono

Código [Seleccionar] Expandir

http://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/posible_virus-t236268.0.html;msg1127284;boardseen#new

[MOD:]

Bueno, a parte de estar claro que es un SPAM como una casa...

Por que al situarme sobre el enlace me sale este iconito?Un icono que dice que es probablemente un virus...

MOD:


Es un metodo Anti-HotLinking? LOL!



La verdad, pierdo toda la confianza en este usuario....

Por cierto, que metodo utiliza tu code para enviar los emails?

Saludos

Realmente lo que dices es verdad.. pero muchas veces se hecha de menos un indice.. en el que contenga los post mas o menos interesantes..

Deberías leer las chinchetas, ya tenemos de eso No veo necesario un FAQ, ya que hay suficiente información recopilada (y actualizada cuando lo veo necesario por mi mismo) en las chinchetas, ahora solo falta que la gente la lea...

Exactamente, con los aportes y codes de las chinchetas se pueden solventar las dudas frequentes...
Y en caso de no encontrar lo que buscabas en el buscador del Foro o en Google se habre un tema nuevo

Saludos

gracias por contestar, pero los dos estan equivocados.. lo que ustedes plantean es keypress o keydown, pero se olvidan q alguien puede pegar caracteres y no escribirlos.. ahi esta la diferencia

saludos

Es cierto , en ese caso tu codigo es funcional , pero se puede evitar que se pege o copien cosas en un Texbox, para evitar recorrer toda la cadena cada vez, lo que hace que el programa consuma demasiados recursos (En caso de que la cadena sea largaaaa. )

Saludos

No seria mas simple una funcion por ejemplo asi?:

Código (vb) [Seleccionar] Expandir

'Por defecto la funcion solo filtra los numeros y el punto '.'
Public Function IsCharacterHere(ByVal sCharacter As String, Optional ByVal bCaseInsensitive As Boolean = False, Optional ByVal sFilter As String = "0123456789.") As Boolean
    If sCharacter <> "" Then
        If InStr(1, sFilter, sCharacter, IIf(bCaseInsensitive = False, Empty, vbTextCompare)) <> 0 Then
            IsCharacterHere = True
        End If
    End If
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
    'Solo permite poner las caracteres alfabeticos del teclado... (Es caseInsensitive,da igual minisculas que mayusculas)
    If IsCharacterHere(Chr$(KeyAscii), True, "qwertyuiopasdfghjklzxcvbnm") = False Then
        KeyAscii = 0
    End If
End Sub

Es lo mas corto (y completo) que he tenido tiempo de hacer

Saludos

Muy bueno, hacia tiempo que no veia tus aportes

Saludos

[Participo!]

A mi me encantaria, en el ultimo no pude participar porque mis conocimientos no llegaban a tanto ... pero bueno, ahora podria intentar ganar

Participo! y bueno.. moverlo a Programacion General, si es que se programa en todos los lenguajes...

Saludos