Mensajes

.
Se me olvido decir que

Código (vb) [Seleccionar] Expandir



#if Criterio then
#elseif Critero then
#else
#end If



No se compila, solo compila lo que se cumple...

es decir que si tomamos como ejemplo el codigo anterior solo compilaria

Código (Vb) [Seleccionar] Expandir



Option Explicit
Option Base 0

   Private Const versionSO         As String = "Windows Vista/Seven "
   Private Function HolaMundo() As String
       HolaMundo = "winV7"
   End Function

Private Sub Form_Load()
   MsgBox versionSO
   MsgBox HolaMundo
End Sub



Por lo tanto es mucho mejor que estar editando variables via Hex y demas!¡.

tambien es factible si se ponen dentro de procesos

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
#Const OSVersion = "BlackZeroX"
#if OSVersion <> "" then
   MsgBox "Hola Mundo"
#else
   MsgBox "*****..."
#end if
End Sub



En este caso se cimpilaria solo:

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
   MsgBox "Hola Mundo"
End Sub



Dulces Lunas!¡.

.
Esto ya esta en el foro, usa el buscador y lo encontraras!¡.

Nota: Hay como dos codigos que doy fe de la existencia en este foro asi que a buscarle!¡.

Dulces Lunas!¡.

[Al estilo C/C++]

Puede hacer distintos APP segun el SO con algo similar a esto (Al estilo C/C++)!¡

Código (vb) [Seleccionar] Expandir



#if Criterio then
#elseif Critero then
#else
#end If



entre otros

aqui te dejo un ejemplo para el SO:

Segun la constante

Código (Vb) [Seleccionar] Expandir



#Const OSVersion = "winV7"



Genera un Proceso distinto sin afectar a los que esten fuera de los #if then... #end if

Código (vb) [Seleccionar] Expandir



Option Explicit
Option Base 0

#Const OSVersion = "winV7"

#If OSVersion = "Win9X" Then
   Private Const versionSO         As String = "Windows 9X"
   Private Function HolaMundo() As String
       HolaMundo = "Win9X"
   End Function
#ElseIf OSVersion = "WinNT" Then
   Private Const versionSO         As String = "Windows 9X"
   Private Function HolaMundo() As String
       HolaMundo = "WinNT"
   End Function
#ElseIf OSVersion = "Win2K" Then
   Private Const versionSO         As String = "Windows 9X"
   Private Function HolaMundo() As String
       HolaMundo = "Win2K"
   End Function
#ElseIf OSVersion = "WinXP" Then
   Private Const versionSO         As String = "Windows XP"
   Private Function HolaMundo() As String
       HolaMundo = "WinXP"
   End Function
#ElseIf OSVersion = "winV7" Then
   Private Const versionSO         As String = "Windows Vista/Seven "
   Private Function HolaMundo() As String
       HolaMundo = "winV7"
   End Function
#Else
    Private Const versionSO         As String = "Error de Compilacion"
    Private Function HolaMundo() As String
        HolaMundo = versionSO
    End Function
#End If

Private Sub Form_Load()
   MsgBox versionSO
   MsgBox HolaMundo
End Sub



Dulce Infierno Lunar!¡.

[SendMessage]

.
Una solucion sencilla es que les pongas un tag a los nodos seleccionables y a los que no los dejas tal cual (Sin tocarlos) y al momento del clic Cancelarlo (Dejando el click en el Nodo Madre es decir el que tiene el Tag con algo)

Seria algo asi

Desde el Item donde se dio un clic ir en reversa buscando el item que tiene tag (este seria el Nodo seleccionable!¡.)

Me parece que de igual forma se puede hacer con SendMessage, pero ignoro el como!¡.

Dulces Lunas!¡.

sip pero como lo aria en Microsoft visual studio 2005

"Es lo mismo"... solo declara las apis y pasale los parametros...

Dulces Lunas!¡.

[SwapItem]

te falto en SwapItem, entre otros, recuerda que el ReverseMode seria Gral no solo en el de Proc Item!¡

Dulces Lunas!¡.

ya sirve no O.O.... bueno he visto ejemplos practicos, y la vdd son muuy buenos, mas que API va a ser una grata coleccion de Fonts (Que me birlare porteriormente)!¡.

Dulces Lunas!¡.

Que seas nuevo no impleca que tengas privilegios para no usar el Buscador.

http://foro.elhacker.net/programacion_visual_basic/src_multiclic_in_oneclic-t299892.0.html

Dulces Lunas!¡.

.
La sobre explicación es lo mas valorado!¡.

Que seas nuevo no impleca que tengas privilegios para no usar el Buscador.

http://foro.elhacker.net/programacion_visual_basic/src_multiclic_in_oneclic-t299892.0.html

Dulces Lunas!¡.

Dulces Lunas!¡.

aqui te dejo unos ejemplos de un chat simple, uno de estos tiene un ejemplo de Eventos

si no mal recuerdo tienes que enviar este texto

e1  <--- (Activa el evento 1)
e2  <--- (Activa el evento 2)
e3  <--- (Activa el evento 3)
e4  <--- (Activa el evento 4)
en  <--- (Activa el evento N)

Aqui los descargas!¡.

http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples

Dulce Infierno Lunar!¡.