Mensajes

Como curiosidad aca les dejo otra forma de hacerlo, la unica diferencia es que funciona en base 0

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Debug.Print Split(StrConv("Test", vbUnicode), vbNullChar)(1)
End Sub


Edit:

Tambien ya que estamos si quieren convertir una cadena de caracteres a una matriz es una buena forma, no se la velocidad comparado al tipico for con el mid pero el code es mucho mas simple.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim svData() As String
    svData = Split(StrConv("Test", vbUnicode), vbNullChar)
   
    Dim i As Long
    For i = 0 To UBound(svData) - 1
       Debug.Print "Character " & i & " = " & svData(i); ""
    Next
End Sub

Hasta donde tengo entendido el maximo soportado por VB es menor a 48x48 32-bit. Asi que cualquier icon que supere eso va a generar ese tipo de error.

Gracias Leandro, lo vi a es ejemplo y algunos otros, el tema es que todos tratan basicamente de lo mismo, no hay mucha variedad y se que se pueden hacer mas cosas pero, como decia, no hay mucha info acerca de este tema, o por lo menos no di con ella.

Gracias de todas maneras.

Hola, queria saber si alguien tiene informacion, links o lo que sea sobre  Matrix transformations AKA GdipSetImageAttributesColorMatrix, lei bastante y jugue otro poco con esto y tengo una idea general de como funciona, pero la verdad es que no encontre mucha info de este tema.

No se bien que es lo que queres hacer pero, podrias compilar la aplicacion en  modo de consola (con un control de compilacion) y hacerla funcionar como una app de DOS o cualquier otra.

Por lo que lei queres poner el texto en un exe compilado.

aca te dejo un ejemplo con 2 maneras distintas de hacerlo, hay muchas mas formas pero estas son simples y faciles de entender.

http://www.uploadsourcecode.com.ar/d/gAnXitXkWpVCxGxKXWyhW36A2EnVfON6

con respecto a lo que decias, para averiguar el class podes usar el SPY++

Ops, no me di cuenta que ||MadAntrax|| ya habia comentado eso.

Bueno me alegraque tengas la solucion asi que supongo no se habl mas de este tema.

Hay una version llamada SocketPlus que soporta multiples conexiones

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=54681&lngWId=1

Por que no usas el Process Monitor de sysinternals para ver que hace?

Código [Seleccionar] Expandir

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Function IsVista() As Boolean
    Dim tOSVERSIONINFO As OSVERSIONINFO
    tOSVERSIONINFO.dwOSVersionInfoSize = Len(tOSVERSIONINFO)
    Call GetVersionEx(tOSVERSIONINFO)
    IsVista = (tOSVERSIONINFO.dwMajorVersion > 5)
End Function