Mensajes

tu mismo pusiste la solución  , cambia la parte de

Código (vb) [Seleccionar] Expandir

SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

por lo que tu quieras, en este caso un shell

Código (vb) [Seleccionar] Expandir

shell start "explorer www.google.com"

ok, meto la variable dentro de una funcion

pero eso hace que sea global?

por ejemplo, la declaro en el form1

en el 2 tambien anda? eso es lo que busco s2

no pierdes nada con probarlo tu mismo 

[No puedes]

y si por ejemplo quiero hacer que la palabra 'hola' sea = chau

donde lo hago? :c

No puedes asignarle un valor a una variable fuera de un procedimiento o funcion...

www.usaelputogoogle.com 

Primero elimina los dobles espacios 

Código (vb) [Seleccionar] Expandir


Do While cbool(instr(MisDatos,"  ")) ' mientras haya doble espacio
MisDatos = replace(Misdatos,"  "," ")  'remplazamos los dobles espacios por uno solo
loop
Partes() = Split(MisDatos,vbnewline) ' primero se parten por lineas
for i = 0 to ubound(Partes()) - 1
SubPartes() = Split(Partes(i)," ") 'partimos por los espacios y tenemos los datos...
next


y luego en lo de la ruta del archivo q yo lo puse sin comillas y vs con comillas, q pasa ahi? o cuando uso las comillas entonces?

cuando es una ruta larga...(de preferencia hay que usarlas siempre cuando se traten de rutas)

Código (vb) [Seleccionar] Expandir

Public Function ChangeColor(RT As RichTextBox, StrStart As String, StrEnd As String, Color As Long)
Dim Text        As String
Dim N           As Long

       Text = RT.Text
       N = InStr(Text, StrStart)
       Do While CBool(N)
           Mid(Text, N, Len(StrStart)) = String(Len(StrStart), "?")
           RT.SelStart = N + Len(StrStart)
           N = InStr(Text, StrEnd)
           If CBool(N) Then
               Mid(Text, N, Len(StrEnd)) = String(Len(StrEnd), "?")
               RT.SelLength = N - RT.SelStart - 1
               RT.SelColor = Color
               RT.SelStart = 0
           End If
       N = InStr(Text, StrStart)
       DoEvents
       Loop
       If CBool(RT.SelStart) Then
           RT.SelLength = Len(RT.Text) - RT.SelStart
           RT.SelColor = color
       End If
       
End Function

ChangeColor RT, ":", vbNewLine, vbBlue

, lo hize a prisas XD

Disculpa por revivir el tema, pero hay alguna forma de saber cuando y en que ventana se ha establecido el FocusRect? 

Has de tener un bicho en tu pc  , cuando abras el firefox fijate cuantos procesos abre, del chrome es normal que haya mas de uno dependiendo de las extensiones que tengas.

Me quedé con la primera opción  , funciona de maravilla, gracias LeandroA