Curso de VB II

• Primero está la propiedad Valor, que almacena la cadena. Queremos que el usuario de la clase pueda obtener y establecer este valor. No hay limitaciones en cuanto a lo que se puede almacenar, por lo que no es necesario modificar el código.
• Luego está la propiedad Longitud, que almacena la longitud de la cadena, El usuario no debe poder establecer esta propiedad, ya que depende enteramente de la cadena almacenada en la propiedad Valor. Al borrar el correspondiente procedimiento Property Let, hacemos que Longitud sea una propiedad de sólo lectura que sólo puede ser leída, pero no ajustada, por el usuario. También necesitamos añadir el código que calcule la longitud de la cadena en la propiedad Valor y la almacene en la propiedad Longitud.
• Finalmente, tenemos el método Insertar. Hemos de escribir código para realizar la inserción de la cadena.

Empezando por los procedimientos propiedad. Seleccionar la clase MiString en la ventana Proyecto y visualizar el código para editarlo. Seguir estos pasos:

1. Borrar todo el procedimiento Property Let Longitud.

2. Añadir la siguiente línea de código al principio del procedimiento Property Get Longitud (Len() es una función predefinida de Basic que devuelve la longitud de una cadena):

mvarLongitud = Len (mvarValor)

3. Añadir la misma línea de código como última sentencia del procedimiento Property Let Valor.

El Paso 1, sirve para que la propiedad Longitud sea de sólo lectura. Los Pasos 2 y 3 añaden código que calcula la longitud de la cadena almacenada en la propiedad Valor y almacena el resultado en la propiedad Longitud. ¿Por qué necesitamos realizar este cálculo en dos sitios diferentes? La razón de poner esta línea de código en el procedimiento Property Get Longitud es obvia, para asegurar que la propiedad Longitud contiene el valor correcto cuando se recupera por el usuario. Pero, ¿por qué necesitamos también este código en el procedimiento Property Let Valor? Al hacerlo así, la propiedad Longitud se actualiza cada vez que el usuario cambia la propiedad Valor, y, por tanto, contendrá un valor correcto aun cuando el usuario no haya recuperado específicamente la propiedad Longitud. La tarea del método Insertar es insertar una nueva cadena en la posición especificada dentro de la cadena actualmente guardada. Por ejemplo, si el objeto MiString tiene actualmente almacenado "Visual Basic", entonces, la llamada a Insertar con los argumentos "XXX", y 3 dará como resultado que el objeto tenga almacenado "ViXXXsual Basic". Veamos concretamente lo que debe hacer el código de este método, prestando particular atención a los casos especiales:

- Si el argumento Posicion es igual o menor que 1, la nueva cadena se añade al principio de la cadena antigua.

- Si Posicion es igual o mayor que la longitud de la cadena antigua, la nueva cadena se añade al final de la cadena antigua.

- Si la cadena antigua está en blanco, la nueva cadena la reemplaza sin más.

• Si la nueva cadena está en blanco, no ocurre nada.
• En otro caso, se inserta la nueva cadena en la posición especificada en la cadena antigua.

Ya casi hemos creado nuestra clase MiString, pero todavía queda algo que hacer: añadir el código de inicialización. Este código se coloca en el procedimiento de evento Initialize de la clase. Este procedimiento es llamado cuando se crea por primera vez una instancia del objeto, y colocamos el código aquí para establecer los valores iniciales de las propiedades y realizar otras tareas necesarias. Para la clase MiString, inicializaremos la propiedad Valor como cadena vacía, y la propiedad Longitud como 0. En sentido estricto, estos pasos de inicialización no son necesarios, porque Visual Basic inicializa automáticamente las variables alfanuméricas a una cadena vacía, y las variables numéricas a 0 cuando son declaradas.

Una clase por sí sola no es que sea muy útil. Tenemos que crear instancias de la clase (objetos) para hacer algo.