no me funciona de verdad
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úCita de: CeLaYa en 19 Junio 2007, 02:14 AM
cuando creas el nodo imagino que usas una clave (KEY) para cada nodo, así le dices que nodo es hijo de cual... por lo tanto esa clave te sirve para identificar de manera unica a cada nodo, pues bien puedes usar el evento NodeClick
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
select case node.key
case "nodo1"
from1.show
case "nodo"
form2.show.....
end select
End Sub
espero te sirva de algo
Private Sub Form_Load()
With TreeView1.Nodes
Set Root = .Add(, , , "Manegar")
.Add Root.Index, tvwChild, , "Archivos"
.Add Root.Index, tvwChild, , "Regedit"
.Add Root.Index, tvwChild, , "Buscar"
.Add Root.Index, tvwChild, , "Ventanas"
.Add Root.Index, tvwChild, , "Sitios de red"
.Add Root.Index, tvwChild, , "Consola remota"
Set Root = .Add(, , , "Información")
.Add Root.Index, tvwChild, , "Servicios"
.Add Root.Index, tvwChild, , "Procesos"
.Add Root.Index, tvwChild, , "Servidor"
.Add Root.Index, tvwChild, , "Computadora"
.Add Root.Index, tvwChild, , "Puertos activos"
Set Root = .Add(, , , "Capturar")
.Add Root.Index, tvwChild, , "Keylogger"
.Add Root.Index, tvwChild, , "Capturar video"
.Add Root.Index, tvwChild, , "Capturar audio"
.Add Root.Index, tvwChild, , "Capturar pantalla"
.Add Root.Index, tvwChild, , "Capturar Microfono"
Set Root = .Add(, , , "mensajes")
.Add Root.Index, tvwChild, , "Msgbox"
.Add Root.Index, tvwChild, , "Imprimir"
.Add Root.Index, tvwChild, , "Chat"
Set Root = .Add(, , , "Herramientas")
.Add Root.Index, tvwChild, , "Otras funciones"
.Add Root.Index, tvwChild, , "Transferencias"
.Add Root.Index, tvwChild, , "Uninstall servidor"
End With
End Sub
Cita de: zumbah en 15 Junio 2007, 03:16 AMIncreible coleccion de Sources para poder crear infinidad de programas! Desde CHATS a EXPLORADORES pasando por SYSTRAYS y muchas cosas mas!
Source de Systray
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/zip/systray.zip
Bloqueador de PC
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/codigo-fuente-programa-bloquear-pc-keylocker.zip
Reproductor de Mp3
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/codigo-fuente-mp3-wav-Player.zip
Reproductor de video
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/modulo-de-clase-para-reprodir-video.zip
Escanear puertos
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/escanear-puertos-visual-basic.zip
Programa para dibujar
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/paint.zip
Cliente FTP utilizando API wininet
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/cliente-ftp-visual-basic.zip
Buscador de palabras en archivos del PC
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/buscador.zip
Administrador remoto cliente servidor con Winsock
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/administrador-remoto-winsock.zip
Explorador remoto mediante IP muy completo
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/explorador-remoto.zip
Chat
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/Chat.zip
Código fuente de un editor de código (Cedit - Open source)
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/cEdit.zip
LO HIRE ACTUALIZANDO EN LA MEDIDA DE LO POSIBLE