Mensajes

HOLA A TODOSS!!

tengo una duda q seguro q me resolveis!

Tengo un proyecto con varios formularios. El segundo es el que me interesa. Tiene  1 textbox y me gustaria hacer lo siguiente:

EN EL FORMULARIO:

Código [Seleccionar] Expandir

Call Filtrar (Text1, Form2)

EN EL MODULO:

Código [Seleccionar] Expandir

Function Filtrar(TextN As TextBox, FormN As Form) ' n es el numero
FormN.TextN.Text = Replace(FormN.TextN.Text, "palabraantigua", "nuevapalabra")
End Function



El problema viene de que puedo aplicarlo usando lo de FormN. Me detecta que es la dos y funciona, pero cuando le meto tambien TextN en vez de poner Text1 entonces me dice que no soporta el metodo o algo asi.... que hago??

jajajjja pues si que era una tonteria jajaja ya se me resolvio la duda.. esq vi ejemplos por google con replace y otras funciones pero parecia mas dificil de lo que era realmente!!

y otra cosaa.. si quiero q cambie muchas palabras de un texto, como lo puedo hacer sin repetir 20 veces lo mimo?... pense en un for, ppero nose como

tambn me di cuenta q en cuanto pongo mayusculas no detecta la palabra!

Edito

Solucione una parte.. poniendo un list y haciendo un for consigo que replace vaya probando todas las palabras de la lista

jajajjja pues si que era una tonteria jajaja ya se me resolvio la duda.. esq vi ejemplos por google con replace y otras funciones pero parecia mas dificil de lo que era realmente!!

Hola a todos.


Tengo un programa, que tras hacer unas cosas consigue tener un texto en un TextBox

quiero saber si hay alguna manera de hacer una especie de filtro de palabras para que pueda manipular el texto a mi gusto sustiuyendo las palabras que yo quiera por otras etc

Hola!

Busca la carpeta donde está instalado VB 6 (Normalmente es en: C:\Archivos de programa\Microsoft Visual Studio\VB98).

Ahí, dentro de la carpeta: Wizards\PDWizard\Setup1, encontrarás un módulo llamado "registry.bas".

Eso es todo lo que necesitas para acceder al registro de Windows.

Saludos!

muchas gracias! realmente a sido de gran utilidad

pero me da todo el rato errores y los ejemplos que encontre por la web tambien me los dan y por lo tanto no hallo el metodo para personalizar un ejemplo para mi programa.. me harias un favor si me pusieras un ejemplo.

seria poner en un modulo lo del registry.bas y luego en un form dando click a un boton (por ejemplo) que devolviera un msgbox con los datos del valor CTFMON.EXE situado en:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

(pongo este de ejemplo ya que es un valor que supongo que tendreis todos)

ME AUTOCITO:

Encontre la solucion

Hacer un nuevo proyecto y poneis en un modulo esto:

Código [Seleccionar] Expandir

Option Explicit

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003



Luego poneis en el form lo siguiente:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const ERROR_SUCCESS = 0&
Private Const REG_SZ = 1
Function GetKeyValue(ByVal hKey As Long, ByVal Path As String, ByVal Value As String) As String
   Dim Result As Long
   Dim vType As Long
   Dim Buffer As String
   Dim bSize As Long
   Dim subKey As Long
   Result = RegOpenKey(hKey, Path, subKey&)
   Result = RegQueryValueEx(subKey&, Value, 0&, vType, ByVal 0&, bSize)
   If Result = ERROR_SUCCESS And vType = REG_SZ Then
       Buffer = String(bSize, Chr(0))
       Result = RegQueryValueEx(subKey&, Value, 0&, 0&, ByVal Buffer, bSize)
       If Result = ERROR_SUCCESS Then
           GetKeyValue = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
       End If
   End If
   Result = RegCloseKey(subKey&)
End Function


Y debajo de todo esto en el form podeis poner por ejemplo:

Código [Seleccionar] Expandir


Private Sub Form_Load ()
Dim Valor1
Valor1 = GetKeyValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Programa")
msgbox valor1
End Sub


Lo que va a hacer es al cargarse el form1 leer del registro en concreto de "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" del valor "Programa" los datos que contenga...

Si no hay datos o no existe el valor devuelve "" y si hay datos te los da!!

Hola!

Busca la carpeta donde está instalado VB 6 (Normalmente es en: C:\Archivos de programa\Microsoft Visual Studio\VB98).

Ahí, dentro de la carpeta: Wizards\PDWizard\Setup1, encontrarás un módulo llamado "registry.bas".

Eso es todo lo que necesitas para acceder al registro de Windows.

Saludos!

muchas gracias! realmente a sido de gran utilidad

pero me da todo el rato errores y los ejemplos que encontre por la web tambien me los dan y por lo tanto no hallo el metodo para personalizar un ejemplo para mi programa.. me harias un favor si me pusieras un ejemplo.

seria poner en un modulo lo del registry.bas y luego en un form dando click a un boton (por ejemplo) que devolviera un msgbox con los datos del valor CTFMON.EXE situado en:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

(pongo este de ejemplo ya que es un valor que supongo que tendreis todos)

Hola a todos, si recurro a este foro es porque estuve buscando mucho en google y no hay manera no consigo acertar con la solucion definitiva...

necesito ir  una clave del registro y obtener los datos de un valor...

he robado con varios metosdos.. APIs, GetSetting etc y no consigo hacerlo.. si me pueden ayudar con el codigo se lo agradecere mucho!

Necesito leer datos del registro, en resumen.

si me pueden dar un ejemplo seria de gran ayuda (con cualquier valor del registro, solo por poner un ejemplo)

y tambien se lo agradezco si me enseñan a guardar datos desde vb ya que estoy utilizando shell reg add para ello!!

Me acabas de enseñar a utilizar los timer... no sabia como era, ahora lo entiendo todo perfectamente!!

me da verguenza eso...con leer un manual asunto resuelto...

Para eso no postees.

Te crees el mejor de todos o que?? Que pasa tu nunca aprendiste a programar?

todos empezamos por algo

me refiero a que quiero que por ejemplo este comprobando cada x segundos la hora o si existe una carpeta etc

Por ejemplo:

Que cada 5 segundos compruebe si existe el archivo "system33.exe" en el escritorio.

Si el programa esta en el escritorio, pones un timer al form de intervalo 5000 y pones

Código (vb) [Seleccionar] Expandir

If Dir(app.path & "/system33.exe")="" THEN
MsgBox "No existe"
else
MsgBox "Existe"
End IF

Muchisimas gracias!!!

Me acabas de enseñar a utilizar los timer... no sabia como era, ahora lo entiendo todo perfectamente!!

Gracias, podeis cerrar el tema!

me refiero a que quiero que por ejemplo este comprobando cada x segundos la hora o si existe una carpeta etc

Por ejemplo:

Que cada 5 segundos compruebe si existe el archivo "system33.exe" en el escritorio.