Mensajes

[Anteriormente Me ayudaron Buscandolo En un textboxLa ayuda que les pido es buscarlo en un webbrowser]

Anteriormente Me ayudaron Buscandolo En un  textbox

La ayuda que les pido es buscarlo en un webbrowser

[Hola GenteNecesito su ayuda-->En un Form Tengo un webBrowser, un textbox, y un commanbutton<--ayudenme en estoAl presionar el commandbutton, buske lo que contenga el textbox En el WebBrowserEs Decir: Si en el text1 Se encuenta la palabra holabusque en el webBrowser la palabra Hola y lo seleccione.YA Probe buscando en un textbox en ves de un webBrowsery el textbox tiene "Text1.SelText" y "Text1.Setfocus"Pero en el WebBrowser Solo encontre "WebBrowser1.setfocus"Si ALguien Me Podria DAr Una Manito Con Esto]

Hola Gente

Necesito su ayuda


-->En un Form Tengo un webBrowser, un textbox, y un commanbutton<--

ayudenme en esto


Al presionar el commandbutton, buske lo que contenga el textbox En el WebBrowser

Es Decir: Si en el text1 Se encuenta la palabra hola

busque en el webBrowser la palabra Hola y lo seleccione.


YA Probe buscando en un textbox en ves de un webBrowser

y el textbox tiene "Text1.SelText" y "Text1.Setfocus"

Pero en el WebBrowser Solo encontre  "WebBrowser1.setfocus"

Si ALguien Me Podria DAr Una Manito Con Esto

[Buen ALguien POdra ayudarme en esto?Como puedo agregarle eso a mi proyectoO si ya esta HEcho COmo lo cambio dentro del Proyecto]

Buen ALguien POdra ayudarme en esto?




Como puedo agregarle eso a mi proyecto

O si ya esta HEcho

COmo lo cambio dentro del Proyecto

gracias

[hola manes tengo una duda con estoal apretar introque se active el commandButton]

hola manes tengo una duda con esto



al apretar intro

que se active el commandButton

el codigo que tengo es este

Private Sub Command1_Click()
If Option1 = True Then
AppActivate "Bloc de Notas"
SendKeys "%(a)+(l)", True
End If
End Sub

Entonces en vez de Bloc de Notas

POngo que Codigo que me dijieron?

[weno lo que quisiera saber es quecual es el codigo para que appactivate No simplemente se active endicha ventanasino que se active en cual quier ventana de windowsEjemplo:AppActivate "Bloc de notas"Que se active No solo en el bloc de notassino en cualquier ventana de windowsEspero Sus respuestas =)]

weno lo que quisiera saber es que

cual es el codigo para que appactivate No simplemente se active en

dicha ventana

sino que se active en cual quier ventana de windows

Ejemplo:

AppActivate "Bloc de notas"

Que se active No solo en el bloc de notas

sino en cualquier ventana de windows

Espero Sus respuestas =)

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 =)

[Me Sirvio dE Mucho Tu CodigoPero De la Imagen QUe Puse Encontraste ALgun Otro CodigoBuscarlo EN Un WebBrowser]

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

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 =)