Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - BlackZeroX

#1931
Programación Visual Basic / Re: Variables tipo objeto
22 Septiembre 2010, 06:46 AM
Cita de: Javilondo en 22 Septiembre 2010, 06:35 AM
Cita de: ignorantev1.1 en 22 Septiembre 2010, 04:19 AM
Y por que no pasar el apuntador de "Picture1" como parametro a "funcion"?


  • ¿a que te refieres con pasar el apuntaddor?
  • De ser así ¿Que caso tendría si paso un picture1 como parámetro? si lo nececito como salida y que yo sepa los parámetros son de entrada (o tal vez estoy equivocado).
  • Además cómo si utilizo a Picture1 en la función cómo ésta será independiente de cada futuro formulario (necesito imparcialidad para cada formulario)

Disculpa si mis preguntas son atrevidas pero así es la ignorancia y deseo reducirla.


* El apuntador me parece que se refiere me parace al handle de la ventana ( hwnd )

* Si los parametros son Salida y Entrada
Prueba esto...



public/friend/private sub/function/property DiHola(byref StrOut as string)
   StrOut= "Hola Mundo"
end sub/function/property



* Para lo tercera usa el Handle del DC del pinture... y trabaja con APIS GDI son mas rapidas, es mas eficiente y como son DC puedes meterle el parametro que desees.

Dulces Lunas!¡
#1932
Programación Visual Basic / Re: Grupo de Proyectos
22 Septiembre 2010, 06:41 AM
.
Usa el boton Examinar... o Agrega el proyecto al proyecto actual y crea un GRUPO de proyectos..., haciendo esto solo declaras los eventos deseados INSTanciando como si fuese una Clase cualqueira...

Dulces Lunas!¡.
#1933
Cita de: Dessa en  3 Septiembre 2010, 02:27 AM
[SNIPPET]  "Puntas Redondeadas en un form"



Option Explicit

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
  Call SetWindowRgn(Me.hwnd, CreateRoundRectRgn(0, 0, Me.Width / 15, Me.Height / 15, 10, 10), True)
End Sub



Saludos



Cabe decir que el 15 es lo que equivale a un Twin es decir

15 Twin = 1 pixel

Por lo dicho se debera de espesificar esto, o tomar las dimensiones con GetWindowRect... para evitar errores

Otra cosa

Si, se llegase a cambiar la resolución la clase Screen NO ACTUALIZA los valores Width y Height  del mismo, habra que usar APIS!¡.

Dulces Lunas!¡.
#1934
Programación Visual Basic / Re: Insercion de exe
22 Septiembre 2010, 06:33 AM
.
PLUGINS, ADDONS...

Dulces Lunas!¡.
#1935
Programación Visual Basic / Re: Variables tipo objeto
22 Septiembre 2010, 06:33 AM
.
Trabaja con un DC... es mas General asi puedes pintar en DONDE SE TE DE LA REGALADA GANA.

en si se me ocurren solo dos parametros

Código (Vb) [Seleccionar]


Public Function DrawLineGraf(ByRef Coordinates() As Long, ByVal hDC As Long) As Long
...
Manejos d eFunciones GDI, APIS, ETC
...
End Function



Dulces Lunas!¡.
#1936
.
Que llevas dehcho, nos e hacen trabajos... sin dinero no vaila el perro.

Dulces Luans!¡.
#1937
.
Aqui te dejo una clase para conexión... de forma Pre esta en MySQL soloe s cuestio de cambiar el StringConnetion para usarlo en otras BDD...

http://foro.elhacker.net/net/ado_y_vbnet-t300702.0.html;msg1491070#msg1491070

Dulces Lunas!¡.
#1938
.

Hace tiempo vi u codigo fuente que te devolvia los parametros con los que fueron ejecutados los ejecutables... no se donde esta ahora xD, pero no era un Hook.




Hace un tiempo vinieron preguntando como interceptar parametros de una aplicacion X
Lo mas facil pero cutre fue hacer un...

Solo renombre la aplicación, en este ejemplo utilice el Notepad.exe y lo renombre a "Notepad0.exe", y esta aplicacion le puse el nombre del proceso original.

Código (vb) [Seleccionar]


Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub main()
   Open "Registro.txt" For Binary As 1
       Put 1, , Command$ & vbcr
   Close 1
   ShellExecute &H0, "Open", App.Path & "\Notepad0.exe", Command$, App.Path, SW_SHOWNORMAL
End Sub



Dulce Infierno Lunar!¡.
.
#1939
Programación Visual Basic / Re: [Aporte] EnvironEx
19 Septiembre 2010, 06:04 AM
.
Perdon no lei esto:

Cita de: raul338 en 19 Septiembre 2010, 05:26 AM

Lo de hacer una clase para esto seria algo exagerado, tal vez si incluimos otros metodos se aplicaria


Lo mensionaba para aprovechar el evento initializze y asi crear una ventana con CreateWindowExy el evento finalize para destruir dicha ventana, así jalarias un Hwnd VALIDO en su paramtro, aun que el Hwnd de otra ventana como el del explorer (El escritorio) me parece que tambien sería valido, aun mejor no nos complicamos y nos quedamos con &H0 te parece xP.

Dulces Lunas!¡.
#1940
Programación Visual Basic / Re: Desaparecio O.O
19 Septiembre 2010, 05:56 AM
.
Menu Ver...

LEE UN MALDITO MANUAL

Dulces Lunas!¡.