Mensajes

Es dificil de hacer esto pero ahi va:

Código [Seleccionar] Expandir


[ code]

Private sub form_load ()

[/ code]



PD: Quitale los espacios...

Pues la verdad ni me moleste en revisar el codigo y no quiero ser grocero con eso pero es que no utilizaste las etiquetas code..

Y es muy complicado asi...

Algunos te diran que el VB es muy lento..

Salu2..!!

PD: utiliza las etiquetas y te ayudo...

Pueden dejar de hablar de mi


Muy buen codigo... Claro hay que mejorarlo...

Hola quisiera saber en que parte leo las msdn en español y solo para Visual basic:

Muchos diran aqui:

http://msdn2.microsoft.com

Pero no es lo que busco...

Código [Seleccionar] Expandir

Pues aqui te pongo un ejemplo que acabo de terminar...

[code]
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Load()
L.AddItem "a"
L.AddItem "a"
L.AddItem "a"
L.AddItem "a"
End Sub
Private Sub L_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
End If
End Sub


A mi me funciono con una ListBox solo es cuestion de arreglar el code...

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

creo que a lo que te refieres es a invertir los botones del raton en tu applicacion, como si de un raton para zurdos setratase. osea que el boton derecho del raton sea para seleccionar y el boton izquierdo para el menu contextual.

Creo que te refieres a eso.

Creo que le sirve el codigo que coloque porque el lo quiere solo para el ListBox o Listview o no?[/code]

nahaaaa ???

Que significa...

Si no es lo que querias se dice:

Gracias, pero no es lo que busco y "aqui viene la explicación"

Si es broma:

Pues mejoralas porque no me dan risa

Salu2.. y Explicate!

Otra cosa...

Que el Cliente en este caso sea el que se ponga a escucha no quiere decir que ese sea el server... Como lo dice en la carpeta...

Gracias..

Aunque ando desanimado con mi troyano,..

Esta muy buena...
Era hora de una aplicacion del buen Mad..

Asi los proyectos seran indetectables.... jejeje a ver...

Salu2..!!

Hola aqui veremos como obtener la lista de caracteres:

Agregamos:

1 Textbox:

-Multiline: True
-ScrollsBar: Vertical

Y agregamos este codigo:

Código [Seleccionar] Expandir


'Programado By -Freeze- 01/08/2007
Private Sub Form_Load()
For c = 1 To 255 Step 1
Text1.Text = Text1.Text & " " & Chr(c)
Next c
End Sub



Tambien podemos agregar un ListBox y colocar este code:

Código [Seleccionar] Expandir


'Programado By -Freeze- 01/08/2007
'L = Listbox
Private Sub Form_Load()
For c = 1 To 255 Step 1
L.AddItem Chr(c)
Next c
End Sub


Y listo...

Salu2..!! 8) 8)