 Autor
|
Tema: Ayuda COn MI Programa (Leído 3,259 veces)
|
|
|
skapunky
Electronik Engineer &
Colaborador
 Desconectado
Mensajes: 3.667
www.killtrojan.net
|
No entiendo la finalidad que tiene este programa, además..para que utilizas un webbrowser ?
|
|
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
Bueno ENtonces SI NO Tienen Solucion A ESa Parte del webBrowser
El WebBrowser Pueden Tomarlo Como Un txtBox =)
|
|
|
|
|
En línea
|
|
|
|
ToNy_EsP
Desconectado
Mensajes: 61
V.I.P Programmer
|
No entiendo tu finalidad =S
|
|
|
|
« Última modificación: 13 Junio 2009, 17:05 pm por ToNy_EsP »
|
En línea
|
 *Si pasas mucho tiempo pensando sobre una cosa, terminarás por no hacerla (Bruce Lee). |
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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 .. |
|
|
|
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
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 =)
|
|
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
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. 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"
|
|
|
|
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
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. 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
|
|
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
Veamos si te sirve el siguiente code como orientación: 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
|
|
|
|
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
Veamos si te sirve el siguiente code como orientación: 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 =)
|
|
|
|
|
En línea
|
|
|
|
|
 |
