If or IfElse vs. Select Case
Publicado por ava (30 intervenciones) el 07/02/2008 23:21:17
Algun samaritano que quiera ayudar a este principiante
Private...Form1...
Select Case TimeDatePicker1.Value.Date
Case New Date(2008, 8, 6)
Form2.Show() : strArchivo "c:_carta_ang01.rtf"
Case New Date(2008, 8,10)
Form2.Show() : strArchivo "c:_carta_ang02.rtf"
.
.
.
etc., hasta el archivo ang72.rtf
Private...Form2...
RichTextBox1.LoadFile(c:_carta_ang01.rtf)
RichTextBox1.LoadFile(c:_carta_ang02.rtf)
RichTextBox1... hasta el archivo ang72.rtf
Module Module1
Public strArchivo As String
si selecciono la fecha 2008, 8, 6 en vez de abrir el archivo ang01.rtf me abre el archivo ang72.rtf o sea el ultimo
En el "form1" lo veo logico que por cada "case" sea un direccion diferente,
pero en el caso del "form2" lo veo muy repetitivo y creo algo estoy haciendo mal, algo en el comando que solo abra cualquier archivo .rtf
incluso experimente con RichTextBox1.LoadFile(c:_carta_ & *.rtf ) pero asi peor, incluso sin la y comercial
la raya _ para reemplazar la diagonal izquierda
mis saludos!
el principiante
Private...Form1...
Select Case TimeDatePicker1.Value.Date
Case New Date(2008, 8, 6)
Form2.Show() : strArchivo "c:_carta_ang01.rtf"
Case New Date(2008, 8,10)
Form2.Show() : strArchivo "c:_carta_ang02.rtf"
.
.
.
etc., hasta el archivo ang72.rtf
Private...Form2...
RichTextBox1.LoadFile(c:_carta_ang01.rtf)
RichTextBox1.LoadFile(c:_carta_ang02.rtf)
RichTextBox1... hasta el archivo ang72.rtf
Module Module1
Public strArchivo As String
si selecciono la fecha 2008, 8, 6 en vez de abrir el archivo ang01.rtf me abre el archivo ang72.rtf o sea el ultimo
En el "form1" lo veo logico que por cada "case" sea un direccion diferente,
pero en el caso del "form2" lo veo muy repetitivo y creo algo estoy haciendo mal, algo en el comando que solo abra cualquier archivo .rtf
incluso experimente con RichTextBox1.LoadFile(c:_carta_ & *.rtf ) pero asi peor, incluso sin la y comercial
la raya _ para reemplazar la diagonal izquierda
mis saludos!
el principiante
Valora esta pregunta


0