NOTA: El programa completo
(tanto el que fue creado originalmente en Visual Basic 2005
como el que fue convertido a Visual Basic 2008), incluido el
código
fuente, archivo
msflxgrd.ocx y documento Word se
encuentran disponibles para descargar en http://www.jaimemontoya.com/networking/subneteovisualbasic.php
Este programa fue originalmente creado en
Visual Basic 2005, y luego ejecutado en Visual Basic 2008,
simplemente generando la conversión que ofrece Visual
Basic 2008:
Primeramente, este programa requiere del
objeto FlexGrid. Para incorporarlo, copiar el archivo
msflxgrd.ocx en la carpeta C:Windowssystem en Windows Vista, o
C:WindowsSystem32 en Windows XP.
Este archivo tiene las siguientes propiedades:
Luego, para que Visual Basic 2008 tenga
acceso a este recurso, se debe hacer lo siguiente:
Tools > Choose Toolbox
Items…
Clic en la pestaña COM Components,
luego clic en Browse… y buscar el archivo
C:Windowssystemmsflxgrd.ocx en Windows Vista o
C:WindowsSystem32msflxgrd.ocx en Windows XP, que se
debe haber ubicado ahí previamente. Al haber encontrado el
archivo, hacer clic en Open.
Este es el archivo que debe aparecer con un
cheque una vez
se haya encontrado y abierto mediante el botón
Browse…:
Hacer clic en OK.
Código del Programa (utilizando
el programa que fue convertido a Visual Basic
2008)
Código en
Form1.vb
Imports System.Text
Public Class Form1
Private Sub TextBoxocteto1_KeyPress(ByVal
sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
TextBoxocteto1.KeyPress
If (Asc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57) Or Asc(e.KeyChar) = 8 Then "Los
únicos caracteres que se permitirá introducir en el
TextBoxocteto1 serán los números del 0 al 9 (ASCII
del 48 al 57) y el retroceso de espacio o backspace para borrar
números introducidos, que es el ASCII 8.
Dim numdigitosocteto1 As Integer =
Len(TextBoxocteto1.Text) "Para contar cuántos
dígitos hay en el TextBoxocteto1.
If numdigitosocteto1 = 3 And
(Asc(e.KeyChar) <> 8) Then "Si ya hay tres dígitos,
ya no se podrá escribir otro, pues el máximo que se
puede escribir es 255, pero siempre se podrá usar la tecla
Backspace.
e.KeyChar = "" "Borra el dígito que
se ha digitado.
End If
Else "Si la tecla presionada es diferente
de un dígito o de la tecla Backspace.
e.KeyChar = "" "Reemplaza la tecla digitada
con el valor de nada
para que no se puedan introducir caracteres
inválidos.
End If
End Sub
Private Sub TextBoxocteto1_KeyUp(ByVal
sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Handles TextBoxocteto1.KeyUp
End Sub
Private Sub
TextBoxocteto1_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles
TextBoxocteto1.TextChanged
End Sub
Private Sub TextBoxocteto2_KeyPress(ByVal
sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
TextBoxocteto2.KeyPress
If (Asc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57) Or Asc(e.KeyChar) = 8 Then "Los
únicos caracteres que se permitirá introducir en el
TextBoxocteto2 serán los números del 0 al 9 (ASCII
del 48 al 57) y el retroceso de espacio o backspace para borrar
números introducidos, que es el ASCII 8.
Dim numdigitosocteto2 As Integer =
Len(TextBoxocteto2.Text) "Para contar cuántos
dígitos hay en el TextBoxocteto2.
If numdigitosocteto2 = 3 And
(Asc(e.KeyChar) <> 8) Then "Si ya hay tres dígitos,
ya no se podrá escribir otro, pues el máximo que se
puede escribir es 255, pero siempre se podrá usar la tecla
Backspace.
e.KeyChar = "" "Borra el dígito que
se ha digitado.
Página siguiente  |