Mensajes

[Mid()]

.
No es un problema mental, mas bien de flojera en muchos casos, donde nadie se detiene a leer un poco sobre el mismo ni a practicarlo.

Mejor EXplicacion que la MSDN no hay mira Mid()

Este es un codigo de "Esboso" los caracteres ñ y/o Ñ te los dejo ati estan como comentarios.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
    MsgBox Codificate("Temibles Lunas!¡.")
End Sub

Private Function Codificate(ByVal vsData As String, Optional ByVal ToReplaceABC As String = "zyxwvutsrqponmlkjihgfedcba") As String
Dim lng_i           As Long
Dim byt_char        As Byte
    If Len(ToReplaceABC) = 26 Then ' // Asc("a")-Asc(z)+1=25 poner 27 si se quiere afgregar la ñ
        For lng_i = 1 To Len(vsData)
            byt_char = Asc(Mid$(vsData, lng_i, 1))
            If byt_char >= 97 And byt_char <= 122 Then      ' a - z
                Mid$(vsData, lng_i, 1) = LCase$(Mid$(ToReplaceABC, byt_char - 96, 1))
            ElseIf byt_char >= 65 And byt_char <= 90 Then   ' A -Z
                Mid$(vsData, lng_i, 1) = UCase$(Mid$(ToReplaceABC, byt_char - 64, 1))
            'ElseIf byt_char = 241 Then ' ñ
                'Mid$(vsData, lng_i, i) = Mid$(ToReplaceABC, byt_char - 98, lng_i, i)
            'ElseIf byt_char = 209 Then ' Ñ
                'Mid$(vsData, lng_i, i) = Mid$(ToReplaceABC, byt_char - 66, lng_i, i)
            End If
        Next lng_i
    End If
    Codificate = vsData
End Function



Dulces Lunas!¡.

[For Next]

.
mmm tienes un problema de logica ya que estas reemplazando por el alfabeto y sustituyes a las mismas, lo que te recomiendo es que uses

Código (vb) [Seleccionar] Expandir



mid$(Source ,  Posicion, longitud ) = replace$ ( mid$(Source ,  Posicion, longitud ) , Antiguo_String , Nuevo_String )



con esto evitas eso que dices.

P.D.: Ese codigo se reducen a unas cuantas lineas de codigo usando un For Next sin esfuerzo alguno y un array.

Dulces Lunas!¡.

el carcater $ en las funciones Mid, Trim, Right, Replace..etc..le dice a la funcion que retorne un String, en cambio si no lo pones te devuelve un variant. por lo tanto si queres asegurarte de que te devuelva solo un tipo de dato string debes ponerle ese caracter, aparte se acelera en milisegundos el codigo con esta funcion.

saludos.

Ademas de que se espesifican algunos parametros de que seran de tipo String.

Dulces Lunas!¡.

[ShellExecute()]

.
ShellExecute()

Dulces Lunas!¡¡.

[lol]

.
lol ya todo lo toman como reto xP.

Dulces Lunas!¡.

@Elemental Code

No sirve si se accede desde un formulario, ese formato solo sirve en algunos casos pero no entodos.

por otro lado:


has dicho que la informacion proviene de una web, entonces esta si hace una consulta a una BDD conectate a esta BDD desde el programa si es ajena entonces obteniendo el codigo HTML y realizando algun tipo de parse para los tags del mismo formato.

¿cómo podria coger esos valores con VB?
Depende de donde esten los valores.

¿leyendo el codigo html por ejemplo?
Si

¿y como puedo hacer lo de las graficas?
GDI, APIS, SHAPES, uff inclusive hay controles de usuario para eso.

¿Lo estas haciendo en Excel Word o alguno de la paqueteria de OFFICCE? si es asi usa VBA y con esto crearas mas facil las graficas.

Dulces Lunas!¡.

.
Que tonteria!¡.

Con la primera función que te cito Frogs ( codigo de un servidor ), se puede hacer.

Código (vb) [Seleccionar] Expandir



If DescargarArchivo("http://www.google.com.mx/", "c:\index.html") > 0 Then
    Call vbShell("c:\index.html", False)
End If



Dulces Lunas!¡.

.
MSDN M$ ( WINAPI ), desconozco si existe para linux.

Son Apis asi que no tienes por que usar LoadLibrary

Dulces lunas.

[barenx]

.
Ajale hace tiempo que no veo el codigo de barenx que publico Seba123Neo.

Edito:

Si no me equivoco WParam te retorna el handle de la ventana así ya no tienes que usar FindWindow, exentando los siguientes mensajes que difieren:

* HSHELL_ACCESSIBILITYSTATE
* HSHELL_APPCOMMAND


Con saber el handle de una ventana puedes identificar todo rastreando.

Más info en: ShellProc Callback Function

P.D.: Es casi lo mismo con WH_CBT ( Esta en C/C++) MSDN.

Dulces Lunas!¡.

.
Ya que estas con este tema para que sirve?, jamas lo entendi realmente, se que Realinea los Header pero para que?.

Dulces Luans!¡.