|
Mostrar Mensajes
|
Páginas: 1 [2] 3 4 5 6
|
12
|
Programación / Programación Visual Basic / Re: ayundeme con este simple codigo
|
en: 13 Octubre 2006, 16:35 pm
|
hola, gracias a ambos, he probado los dos mentodos, muchas gracias. Al final me he dado cuenta que en la parte que cargo las fotos, con form1.picture = a lo que sea, al ser todas las instancias del mismo nombre, ahi era donde daba parte del problema, de manera que lo hice: me.picture asi se referia al propio formulario en cuestion olvidando el nombre. Muchas gracias y saludoS!
|
|
|
13
|
Programación / Programación Visual Basic / ayundeme con este simple codigo
|
en: 13 Octubre 2006, 09:47 am
|
Hola, es es un codigo que trata de hacer lo siguiente: Cada tres segundos cambia la imagen de fondo del formulario aleatoriamente entre 6 imagenes. Si pasas el raton por encima del formulario, el formulario se mueve por la pantalla para que no puedas cogerlo. Si le pulsas a la X para cerrarlo, abre un nuevo formulario igual. Y todo va bien hasta aqui. Cuando pulso la X si abre un nuevo formulario, pero yo quiero que el nuevo formulario siga con las propiedades del inicial, y en el primero se ven las fotos cambiando, y al pinchar en la X y en las sucesivas vece que se pinchen se abren nuevos formularios, pero en estos formularios no se cargan las fotos. Osea solo el primero funciona bien y aunque luego se abre el formuliario en este no aparecen fotos ni nada. Este es el codigo, gracias: Dim ancho As Integer Dim alto As Integer Dim altornd As Integer Dim anchornd As Integer Dim ventana() As Form Dim j As Byte Private Sub Form_Load() cambia alto = Screen.Height ancho = Screen.Width altornd = calculo(alto) anchornd = calculo(ancho) If altornd > alto - Form1.Height Then altornd = alto - Form1.Height End If If anchornd > ancho - Form1.Width Then anchornd = ancho - Form1.Width ElseIf anchornd < Form1.Width Then anchornd = 0 End If Form1.Top = altornd Form1.Left = anchornd End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) alto = Screen.Height ancho = Screen.Width altornd = calculo(alto) anchornd = calculo(ancho) If altornd > alto - Form1.Height Then altornd = alto - Form1.Height End If If anchornd > ancho - Form1.Width Then anchornd = ancho - Form1.Width ElseIf anchornd < Form1.Width Then anchornd = 0 End If Form1.Top = altornd Form1.Left = anchornd End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then 'Significa que se ha cerrado con la X: i = i + 1 ReDim Preserve ventana(1 To i) Set ventana(i) = New Form1 ventana(i).Show Cancel = 1 End If End Sub Public Function calculo(valor) calculo = Int(Rnd * valor) End Function Private Sub cambia() j = Rnd * 6 Select Case j Case 1 Form1.Picture = Image1.Picture Case 2 Form1.Picture = Image2.Picture Case 3 Form1.Picture = Image3.Picture Case 4 Form1.Picture = Image4.Picture Case 5 Form1.Picture = Image5.Picture Case 6 Form1.Picture = Image6.Picture End Select End Sub Private Sub Timer1_Timer() cambia End Sub
|
|
|
14
|
Programación / Programación Visual Basic / 2 operaciones con el boton X
|
en: 12 Octubre 2006, 13:40 pm
|
Hola, quedria saber primero, como se pueden cambiar los botones de maximizar, minizar y cancel, y tambien y mas importante, si se puede cambiar el evento, por ejemplo de pinchar la X y que no cierre el formulario si no que invoque otro procedimiento distinto. Gracias y saludos!
|
|
|
15
|
Programación / Programación Visual Basic / Re: agregar comandoż?
|
en: 9 Octubre 2006, 02:47 am
|
no se si te refieres a que si abria que poner ws.close y algo mas despues? eso te refieres?, si es a esto no, cierra la conexion abierta en ese momento. Si previamente pusiste ws.listen "2000" ws.close cierra la escucha en el puerto 2000. no tienes que poner ws.close 200 solo el ws.close no se si te referias a esto. saludos
|
|
|
16
|
Programación / Programación Visual Basic / Re: Ocultar aplicacion externa...
|
en: 8 Octubre 2006, 12:18 pm
|
Me parece intersante. Hace tiempo que pensaba en algo asi para hacer una aplicacion que escondiese el msn, como hace el msn plus. Pero me han surgido unas dudas, pues con el findwindow, le estamos escribiendo nosotros directamente el nombre del form que se quiere ocultar. Entonces, creo que deberia haber alguna forma de contar los formularios empleados, en ellos sacar su caption del form, y luego por ejemplo con righ y el nombre de cada formulario encontrar los que las ultimas 12 letras sean conversación, y ocultar esas. Entonces, alguna funcion API para contar los formularios abiertos?, pues con esto ya se podria sacar el hwnd y obtener el caption, hacer la comprobacion y ya ocultar. Gracias y saludos!
|
|
|
17
|
Programación / Programación Visual Basic / Re: marcar una opcion por defecto
|
en: 8 Octubre 2006, 12:14 pm
|
Puedes poner en el form_load los valores iniciales para que cuando entre los carge, aunque de todas formas si tu insertas un comando, y le pones en sus propiedades algo, esto ya se queda asi desde que inicia el programa hasta que se cambie. como dice i686: private sub form_load () option1.value = true option2.value = false option3.value = false end sub Esto logicamente entraria en la aplicacion y el boton 1 apareceria marcado, y el resto sin marcar. Si estand dentro de un frame, poniendo a un en true, el resto ya se supone que no has de ponerlos pues solo 1 puede estar activo. Supongo que te referiras a esto con activo, pq si es que puedas actuar sobre el o no (osea marcado en gris clarito) pues seria enabled como dijo i686, y si quieres que se vean o no, seria visible. Saludos.
|
|
|
18
|
Programación / Programación Visual Basic / Re: abrir, cerrar puertos en visual basic
|
en: 7 Octubre 2006, 10:58 am
|
No se como se podria hacer, pero para eso se me ocurriria, que seguro se puede, acceder con un programa que hagas, y seguro que con una API, a los protocolos de conexion de las tarjetas de red, al TCIP y ahi es donde estan los datos de tu conexion, que puede que sean automaticos, o hayas tenido que establecerlos previamente. De cualquier manera, se podria hacer un programa que estuviera por ejemplo cargado como proceso activo siempre que inicies windows, y que con una combinacion de teclas, por ejemplo ALT+T o algo asi, como programases, automaticamente te cambiara estos valores a otros incorrectos para que no pudieras conectar a internet, y que de nuevo pulsando esas teclas u otras, volviera a restablecer los valores originales. Asi podrias hacerlo, lo unico que no se como podrias acceder a esta parte de windows para sustituir estos valores y jugar con ellos, pero seguro que de alguna manera se puede hacer, ya sea desde msdos o desde alguna API. Alguien sabe como se podria acceder a ello?. Saludos!
Am y otra cosa, para abrir y cerrar puertos, no se si te referiras directamente a los puertos del router. Esto es, que por ejemplo si tienes un router, lo primero que tienes que hacer es abrir los puertos en el router. Aunque tu te pongas un puerto a la escucha, si en el router lo tienes cerrado, no estara accesible desde internet, si desde una red interna, pero no desde internet, de ahi que por ejemplo para los troyanos d conexion inversa, que la victima se conecta a ti, primero has de poner el puerto en cuestion abierto. Entonces, para abrir o cerrar puertos, debes trabajar con el router si es que tienes, y si no tienes, como dice Soplo, tan solo has de dejar el puerto a la escucha, pues no estan bloqueados por nada, a no ser que tengas algun firewall que tambien bloque los puertos. Y nuevamente si es eso lo que quieres, deberias programar algun programa que te automatizase estas tareas de abrir los puertos del router, lo cual, aunque fijo que es posible, tampoco se como se haria, pero bueno, son ideas. Saludos!
|
|
|
|
|
|
|