Ayuda COn MI Programa

[NsTeam]

Hola Manes

Kisiera La Yuda DE UStedes

Bueno Lo QUe QUiero HAcer es lo siguiente



Esta CLaro.

Si a Escribir en el text "Nombre"
Me aparezca en un msg BOx "Giovani"

Si a Escribir en el text "Nick"
Me aparezca en un msg BOx "NsTeam"

Teniendo En Cuenta QUe En Donde Se Buscara eS

Un WEb.Browser

Espero Su Ayuda

Gracias DE Antemano

[skapunky]

No entiendo la finalidad que tiene este programa, además..para que utilizas un webbrowser ?

[NsTeam]

Bueno ENtonces SI NO Tienen Solucion A ESa Parte del webBrowser

El WebBrowser Pueden Tomarlo Como Un txtBox   =)

[ToNy_EsP]

No entiendo tu finalidad =S

[cassiani]

 hola, usa la función "INSTR" para buscar las palabras claves como "nombre, nick, etc.", luego usas "MID" para extraer y asignar al msgbox ..

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

todo lo puedes hacer en una sola linea ..

[NsTeam]

hola, usa la función "INSTR" para buscar las palabras claves como "nombre, nick, etc.", luego usas "MID" para extraer y asignar al msgbox ..

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

todo lo puedes hacer en una sola linea ..

Man Encontre un Ejemplo

Pero Eso Lo QUe HACe Es Seleccionar el Texto Buscado

SI Podrias DArme Un Ejemplo De "MID" Te Lo Agradeceria Man =)

[h0oke]

Código (vb) [Seleccionar] Expandir

Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.

Código (vb) [Seleccionar] Expandir

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

Si insertas "EJEMPLOMID" en el textbox tu msgbox devolverá "MID"

[NsTeam]

Código (vb) [Seleccionar] Expandir

Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String

Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.

Código (vb) [Seleccionar] Expandir

Dim word As String
Private Sub Command1_Click()
    word = Text1.Text
    s_word = Mid(word, 8, 3)
    MsgBox s_word
End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Mid"
End Sub

Si insertas "EJEMPLOMID" en el textbox tu msgbox devolverá "MID"

Me Sirvio dE Mucho Tu Codigo

Pero De la Imagen QUe Puse Encontraste ALgun Otro Codigo

Buscarlo EN Un WebBrowser

[h0oke]

Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub

Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub

[NsTeam]

Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub

Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub

Gracias POR Ese Codigo

PEro ME DIcuenta que lo que hace ese COdigo es Buscar un texto y seleccionarlo

En SI LO que yo queria Es Como esta en la IMG

Si lo pudieras encontrar te lo agradeceria =)