clases

[aviana]

Se puede crear una clase dentro de otra clase? la idea es crear una clase para que simule una estructura en C. Gracias y saludos

[aleman]

Hola amigo mira por lo que entiendo de programación el vbscript no es un lenguaje orientado a programacion de objetos, si bien trabaja con objetos no puede crear objetos con metodos y propiedades como si lo puedes hacer en delphi, C, o Java.
El vbscript no funciona exactamente para eso, quizás alguien me refute esto y sea verdad pero lo cierto es que me parece que la respuesta es acertada.

[Aston]

Hola Alemán, si bien Vb o VBScript no son lenguajes hasta su proxima versión lenguajes orientados a objetos, si puedes crear las clases e instanciar los objetos.

Un ejemplo:

la clase

<%
Class Escribir 'Carlos de la Orden Dijs -- http://www.aspfacil.com --

Dim iEstilo

Public Property Let DefEstilo ( valor )
'Define el estilo HTML del texto.
'Acepta:
'0 para escribir normal
'1 para escribir en negrita <b></b>
'2 para escribir en cursiva <i></i>
'3 para escribir subrayado <u></u>
select case CInt(valor)
case 1
iEstilo = 1
case 2
iEstilo = 2
case 3
iEstilo = 3
case else
'0 u otros valores
iEstilo = 0
end select
End Property 'DefEstilo

Public Sub Escribir ( cadena )
'Escribe una cadena con el estilo actual

Response.Write ( DarFormato(cadena) )
End Sub 'Escribir

Public Sub EscribirLinea ( cadena )
'Escribe una cadena con un <BR> y un retorno de carro al final
'Util para generar código HTML "bonito"
'Llama al procedimiento anterior

Response.Write ( DarFormato(cadena) & "<br>" & VbCrLf )

End Sub 'EscribirLinea

Private Function DarFormato ( cadena )
'Funcion privada, que añade las marcas HTML
'correspondientes al estilo actual
select case iEstilo
case 1
DarFormato = "<b>" & cadena & "</b>"
case 2
DarFormato = "<i>" & cadena & "</i>"
case 3
DarFormato = "<u>" & cadena & "</u>"
case else
DarFormato = cadena
end select

End Function 'DarFormato

End Class 'Escribir
%>

-----------> Continúa


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

INSTANCIANDO LA CLASE

&lt;!--#include file=&quot;respclase.asp&quot;--&gt;
&lt;%
Dim oEsc

'Instancio un objeto de la clase
set oEsc = New Escribir


'Escribo texto normal
oEsc.DefEstilo = 0
oEsc.EscribirLinea (&quot;¡Hola mundo! &quot;)
oEsc.DefEstilo = 1
oEsc.Escribir( &quot;&lt;P&gt;Texto de ejemplo. &quot;)
oEsc.DefEstilo = 2
oEsc.EscribirLinea (&quot; No olvides echar un ojo a &lt;FONT COLOR=&quot;&quot;red&quot;&quot;&gt;respclase.asp &lt;/FONT&gt; para ver el código.&quot;)
oEsc.DefEstilo = 3
oEsc.EscribirLinea (&quot;Aunque no sea un objeto increíble, es didáctico ¿no?&quot;)
oEsc.DefEstilo = 0
oEsc.Escribir(&quot;&lt;hr&gt;&quot;)


'Destruyo el objeto
set oEsc=nothing
%&gt;

Bueno, lo que ya notengo tan clara es la pregunta de Aviana. Lo siento. Vaya un saludo a ambos.


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[aviana]

gracias por responder, pero la pregunta es si puedo crear una clase dentro de otra. la idea es simular una estructura en C pero mediante una clase, ya que en VBscript no se pueden crear estructuras. Gracias y salu2

[mamon]

Osea un polimorfismo, herencia? eso? NO jejejeje