Mensajes

If c.ListIndex = Op1 Then MsgBox "Op1"
If c.ListIndex = Op2 Then MsgBox "Op2"
End If
End If

eso no tiene sentido, como te dijeron, si es una sola línea no hace falta que cierres los IF, vamos que el uso de select case esta en todo los tutos básicos.

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Sub Form_Load()
    MyRutina (Array("valo1", "valor2", 3))
End Sub

Private Sub MyRutina(ByVal vParamArray As Variant)
Dim i%
    For i = 0 To UBound(vParamArray)
        MsgBox vParamArray(i)
    Next
End Sub

Si, de todos, el "Yabbse Gris" me parece la mejor opción, los demás son muy blancos para mi gusto, aunque creo que después de una semana de darle uso, estaré regresando al tema por defecto 

Excellent!!

Espero que cuando subas tu súper ares no lo hagas en este subforo 

Yo ni me molesto en bajar esos codes, la verdad me importa poco, y cuando suba uno de los míos, créeme que lo haré con código incluido, "el que no la debe, no la teme".

Como ya te dijeron, léete un manual básico sobre todo el manejo de cadenas (que te hace mucha falta) o caerás acá preguntando lo mismo una y otra vez.

Para lo que hacías, yo lo haría así:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim sCadena    As String
Dim sCacho()   As String
Dim sResultado As String
Dim I          As Integer

Private Sub Cmd_Click()
    sCadena = Trim$(Text1.Text)
    sCacho = Split(sCadena, " ")

    sResultado = ""
   
    For I = 0 To UBound(sCacho)
        Select Case (LCase$(sCacho(I)))
            Case "clean": sResultado = sResultado & sCacho(I) & " "
            Case "/q": sResultado = sResultado & sCacho(I) & " "
            Case "/s": sResultado = sResultado & sCacho(I) & " "
        End Select
    Next
   
    MsgBox sResultado
End Sub

Y hay, más case para más parámetros y dentro de los case las rutinas o funciones que se requieran.


http://www.elguille.info/vb/vb6/stringFunctions.htm

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

saludos!!

Bueno amigo, la cadena "clear" es diferente de la cadena "clear /q /u", en este caso lo que puedes hacer es buscar la cadena "clear" dentro de la cadena que recibes "Instr".

Y te sale hacer uso de "UBound".

Saludos!!

Como dice OHK, usas rand para generar cuatro números aleatorios, el máximo tomado en cuenta para la generación de los números, será el máximo de registros de la tabla correspondiente, luego solo haces la consulta, filtrando por id.

si, ya está fuera de control.

Todas las validaciones de tu sistema debes hacerlas con PHP y ayudarte para otras cosas con JS, por ejemplo, si quieres que en un campo como nombre de usuario no se introduzcan números juegas con keycode JS, si falla, PHP, otro ejemplo al contrario, seria si en un campo como DNI quieres que se introduzcan solo números y si falla PHP y bla, bla, puedes deshabilitar el botón de envió si los campos están vacíos y activarlos cuando no sea así, hay varias formas de no hacer tanto uso de él y aun así conseguir hacer lo que quieres.

Para lo que tú planteas, yo prefiero hacerlo así:

Código (php) [Seleccionar] Expandir

echo "<td class='link' align=\'center\'><a href='$sVinculo?Id=$Id'>$sTexto</a></td>";

Eso es parte una función que tengo para listar el contenido de ciertas tablas en un sistema que desarrollo, ese echo va justamente al final de cada columna, a medida que listo, el link se arma con el vinculo que le pase, el id del registro y el texto que llevará dicho link. Unas veces necesito que diga eliminar otras modificar... y luego para saber cual eliminará, capturas el id y lo demás supongo lo sabes.

Es solo una idea, saludos

What language are you using? VB or VB .Net

Hasta el code lo expone en vb 

question about using webforms in Vb