No diferenciar Mayúsculas de minúsculas

[tekobas]

Hola amigos...
Sé que quizás para la mayoría sea facil esto pero yo lo he buscado en la web y no se como hacerlo, espero que alguno de ustedes me pueda ayudar.
Me gustaría saber como podría hacer para que Visual Basic 6 No diferencia Mayúsculas de minúsculas, por ejemplo tengo el siguiente código:

Private Sub Command1_Click()
If Text1.Text = "Velocidad Máxima" Then Msgbox "Velocidad Máxima"
Else
MsgBox ""
End If
End Sub

Entonces ¿cómo podría hacer para que escribiendo Velocidad Máxima ó velocidad máxima ó VEloCidad máximA, ó cualquier otra variante, me den el mismo resultado?

[jc_moty]

Bueno, tengo dos soluciones para esto, podes hacerlo con la funcion StrComp o bien con UCase o LCase....
Por ejemplo con StrComp, seria asi:

Código:

If StrComp(Text1, "Velocidad Máxima", vbTextCompare) = 0 Then
    Msgbox "Velocidad Máxima"
Else
    MsgBox ""
End If

Con LCase o UCase

Código:

' Ojo: Podes cambiar LCase por UCase
If LCase(Text1) = LCase("Velocidad Máxima") Then 
    Msgbox "Velocidad Máxima"
Else
    MsgBox ""
End If

Espero te sirva
Saludos

[tekobas]

Si me sirvió, use la primera forma y me sirvió. Muchas gracias

[cabeza_nispero]

Iniciado por jc_moty

Bueno, tengo dos soluciones para esto, podes hacerlo con la funcion StrComp o bien con UCase o LCase....
Por ejemplo con StrComp, seria asi:

Código:

If StrComp(Text1, "Velocidad Máxima", vbTextCompare) = 0 Then
    Msgbox "Velocidad Máxima"
Else
    MsgBox ""
End If

Con LCase o UCase

Código:

' Ojo: Podes cambiar LCase por UCase
If LCase(Text1) = LCase("Velocidad Máxima") Then 
    Msgbox "Velocidad Máxima"
Else
    MsgBox ""
End If

Espero te sirva
Saludos

La opción adecuada a usar es la _primera_. Olvida la segunda.