Mensajes

[=vb]

Error, dir es Long y lo que queres obtener es Integer, por lo que estas leyendo 4 bytes cuando queres 2. Te da bien porque A0.A3 es 0, sino, te daria cualquier fruta

Sobre tutoriales de ese estilo, no conozco, tampoco es que se use demasiado


PD: Acostumbrate a usar [code=vb][/code] aca

pero... pero si me imprime el numero 20 que es lo que queria para comprobar
y "dir" es solo una direccion
o en que es lo que fallo ?? 

gracias raul338
ahora comprendo porq la tan famosa copymemory que es con la que se trabaja con la memoria en vb dejo mi enigma resuelto :

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long
Dim destino As Integer

A0.A2 = 20

dir = VarPtr(A0)
dir = dir + 2

CopyMemory ByVal VarPtr(destino), ByVal dir, LenB(dir)
Debug.Print destino

End Sub

por cierto algo de informacion trabajando con la memoria en vb? busque en el foro y encontre unos tutos pero no me ayudaron mucho muy avanzado creo

pues si estoy aprendiendo a usar la memoria pero ya tengo bastantes dudas
bueno tengo un codigo:

Código (vb) [Seleccionar] Expandir

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long

A0.A2 = 20

dir = VarPtr(A0)
dir = dir + 2

Debug.Print dir

End Sub


pues segun lo que e aprendido es una estructura los valores se almacenan en la memoria consecutivamente osea que en esa estructura los valores deberian estar asi:

Código [Seleccionar] Expandir


                  AAA
   A1    A2   A3   A4
|XXXX|XXXX|XXXXXXX|XX|


sino e aprendido mal la variable interger son 2 bytes, un long son 4 bytes , un string ( en esta no se si estoy en lo corecto seguramente no ) son 2 bytes

bueno pues con la funcion varptr obtengo la direccion de la memoria del primer byte de la estructura y comprobar que los datos se almacenan en forma consecutiva quiero obtener el valor de A2 que por eso le asigne el valor de 20
bueno panas creo que ya saben viendo mi codigo que quiero comprobar que quiero aprender y exactamente quiero mostrar el valor 20 ya que segun yo tengo la direccion de memoria . Gracias

buenas pues yo creo que el quiere que si form tenga ese estilo igual al de la imagen
bueno si es asi como muchos programas lo hacen seria que tu mismo tendras q crear la interfas del programa tu tendras que diseñar cada boton ( minimizar, cerrar etc ) claro eso no ce hace con una sola imagen se hace con varias ya que una imagen no la puedes modificar por eso mismo porq es una sola imagen digamos que para los botones tendras que crear una imagen para cada boton y un imagen para cada efecto ( digamos si queres q cuando el cursor este sobre la imagen cambie como lo hace en algunos temas de win ) diseñalo en controles de usuario y al form ponle bordestyle = 0 asi tu form no tendra bordes y tu tendras que diseñarselos bueno todo eso si era a lo que yo pienso

   simplemente gracias no sabia  

buenaaaas a todooos tengo un gravisimo problemaa y no tengo idea que pasaa!
es acerca de pasar los problemas por referencia
el codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim AAA As Integer

AAA = 50

BBB (AAA)
Debug.Print AAA
End Sub


Sub BBB(ByRef X As Integer)
X = X + 50
End Sub


al imprimir la variable AAA es valor es 50!!! y no 100!! es como que si me pasara la variable por valor que pasa? que hago mal perdon si es algo tonto pero estoy impactado

lo e seguido con el depurador y en el procedimiento BBB el valor de X cambia normal a 100 pero cuando retorna al form el valor cambia a 50! x3
gracias

buenas yo tengo un ejemplo que traia un pack que descargue lo subo aqui est:

http://www.mediafire.com/?s6k47jb73mrsv6j

solo que es un poco complicado a difierencia que simplemente usar el metodo omitido que no quieres usar

Gracias lo hare  y aver como me anda ! 

gracias si lo encontre y lo instale y me funka x:D

La X el cuadrto (Cerrar), la linea (Minimizar), y el recuadro (Maximizar) de las ventanas son dibujos mas NO textos... OJO con eso.

Aun asi con un hook al mouse usando las apis ya mencionadas podras hacerlo muy "profesional", aun que esta terminologia se use cuando te pagan y aun asi, hay algunos que no les queda muy del "que barbaro", aun que funcionan a la perfeccion, pero bueno.

Dulces Lunas!¡.

http://msdn.microsoft.com/en-us/library/ms645618(v=vs.85).aspx

Gracias a los dos me funciono!