Ejercicios de visual

|
| Este ejercicio nos permite mediante un evento click sobre un botón conectarnos con un sitio web determinado, incorporando el control WebBrowser, este control no es estándar y lo debemos traer de Componentes, Microsoft Internet Control. |
Private Sub Command1_Click()WebBrowser1.Navigate "http://www.yahoo.com"'WebBrowser1.GoHomeEnd SubLa propiedad Navigate del control WebBrowser es el nospermite navegar hacia un sitio web, estando conectados a nuestro servidor, obviamente, la otra propiedad alternativa GoHome nos conecta con la página predeterminada de Inicio. Este control nos resulta muy útil cuando queremos que los alumnos consulten determinados sitios, antes visitados por nosotros, y así evitamos navegaciones inútiles o peligrosas por sus contenidos. |
Ejercicio Nº 16: UnNavegador. |
  |
| Otro ejercicio usando el control WebBrowser, en este caso creamos un Navegador muy simple. Con el control Toolbar asociado al ImageList creamos una barra de herramientas, esto ya lo hemos visto en otros ejercicios. Por lo tanto nos centraremos en otras propiedades del WebBrowser. |
Una caja de texto contiene la URL o dirección del sitio a visitar. Y una barra de estado oStatusBar dividida en tres paneles despliega: un mensaje, la hora y la fecha respectivamente.El código es el siguiente:Private Sub Command1_Click() ' este control está ocultoIf Text1.Text <> "" ThenWebBrowser1.Navigate Text1.TextIf WebBrowser1.Visible = False ThenWebBrowser1.Visible = TrueEnd IfEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 'equivale a latecla EnterCommand1_ClickEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase "back" 'se identifica por la KeyOn Error Resume NextWebBrowser1.GoBack 'RetrocedeCase "forward"On Error Resume NextWebBrowser1.GoForward 'AdelantaCase "home"Text1.Text = "http://www.geocities.com/SiliconValley/Garage/6472"Command1_ClickCase "refresh"WebBrowser1.Refresh'actualiza o refrezcaCase "stop"WebBrowser1.Stop 'detiene la búsquedaEnd SelectEnd SubPrivate Sub WebBrowser1_DownloadBegin()StatusBar1.Panels(1).Text = "Cargando Página..."End SubPrivate Sub WebBrowser1_DownloadComplete()StatusBar1.Panels(1).Text = "Listo"End Sub |
  |
Ejercicio Nº 17: Dibujar |
  |
| Con este ejercicio podrán los alumnos dibujar en tiempo de ejecución. Podemos agregarlesuna paleta de colores similar al Paint. |
En caso de imprimir el dibujo es necesario que la propiedad del Formulario Autoredraw esté a True para que el formulario se refresque e imprima el dibujo realizado.Dim draw As Boolean 'declaramos una variable buleanaPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)draw = True 'estamos dibujandoCurrentX = X' carga enla variable la ubicación en la coordenada XCurrentY = Y' carga en la variable la ubicación en la coordenada YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If draw Then Line -(X, Y) ' si la variable draw esta a verdadera 'dibuja cada uno de los puntos.End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)draw= False 'la variable draw a falsa detiene el dibujoEnd Sub Los ejercicios Nº 17, 18 y 19 pueden bajarlos de Aquí. |
  |
Ejercicio Nº 18: Relacionar varios formularios. |
  |
A pedido de varios seguidores de nuestra página vamos a integrar en un solo proyecto varios formularios. El proyecto se compone de 5 formularios: Presentación, Planetas, Información, Evaluación y Créditos. |
|Retomando un ejercicio simple ya explicado el Nº 7 El Sistema Solar, vamos a agregarle una primera pantalla de presentación con distintos botones o labels que nos vinculan a los otros formularios: |
La label Planetas nos muestra el formulario del ejercicio Nº7 con los distintos planetas y el procedimiento Clic de cada label transparente nos vincula a una Base de Datos previamente armada con el...