elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 18 Agosto 2011, 11:40 am
alguna idea? es que ademas si uno de ellos es multilinea solo me coge la primera linea
2  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 15:10 pm
aqui esta el codigo completo y solucionado:
lo unico es una duda como puedo hacer para que el archivo pueda cambiar de nombre?
me refiero a que pueda guardar varias fichas en distintos ficheros
para posteriormente abrirlos según interese.

Código
  1.  
  2.  
  3. 'Función Api Sleep Para generar una espera o retardo de tiempo
  4. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5.  
  6. Private Sub CargarText(Archivo As String)
  7.  Dim Todo As String, Partes() As String, Fichero As Integer
  8.  ' Cargamos todo el contenido del Archivo indicado
  9. Fichero = FreeFile
  10.  Open Archivo For Input As #Fichero
  11.     Line Input #Fichero, Todo
  12.  Close #Fichero
  13.  ' Dividimos en Partes los datos cargados
  14. Partes = Split(Todo, "<<")
  15.  ' Colocamos en cada Text sus datos, tantos Text como Partes
  16. titulo.Text = Partes(0)
  17. Descripcion.Text = Partes(1)
  18. nombre.Text = Partes(2)
  19. mail.Text = Partes(3)
  20. tel1.Text = Partes(4)
  21. tel2.Text = Partes(5)
  22. cuando.Text = Partes(6)
  23. cuando1.Text = Partes(7)
  24. duracion.Text = Partes(8)
  25.  
  26. End Sub
  27. Private Sub abrir_Click()
  28. dim Archivo as string
  29. Archivo="c:/Archivo.txt"
  30. CargarText(Archivo)
  31. End Sub
  32.  
  33. Private Sub Command1_Click()
  34. WebBrowser1.Navigate2 Text1.Text
  35. End Sub
  36.  
  37. Private Sub Command2_Click()
  38.  
  39. WebBrowser1.SetFocus
  40. 'SendKeys ("hola")
  41. End Sub
  42.  
  43.  
  44.  
  45. Private Sub Form_Load()
  46. WebBrowser1.Navigate2 ("http://www.google.es")
  47.  
  48. End Sub
  49.  
  50. Private Sub Text2_Change()
  51.  
  52. End Sub
  53.  
  54.  
  55. Private Sub guardar_Click()
  56. Dim foo As Integer
  57.  
  58.    foo = FreeFile
  59.    Open "C:\Archivo.txt" For Output As #foo
  60.        Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
  61.    Close #foo
  62.  
  63. End Sub
  64.  
  65.  
3  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 13:39 pm
no te entiendo.... no llevo mucho en esto de visual si me puedes decir mas concreto...
graciass por la ayuda ;)
4  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 13:32 pm
ah vale entiendo...
deberia llamarlo desde el boton poniendole cargartext()
pero estoy muy obtuso y me da ambiguedad...
como deberia llamarlo?
5  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 13:21 pm
ya lo he revisado y no esta llamada dos veces de hecho esta en un boton y no le llamo desde ningun otro sitio.....
pero no entiendo el por que da fallo....

Raul338 Edit: Te edite el codigo, agregaba poco y nada :P (2 eventos vacios y un navigate)
6  Programación / Programación Visual Basic / Re: error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 13:14 pm
la linea que resalta cuando da el error es
Private Sub CargarText(Archivo As String)

sorry no sabia que code se usaba para postear
7  Programación / Programación Visual Basic / error en codigo para abrir cadenas separadas en: 16 Agosto 2011, 13:06 pm
Hola buenos dias, estoy haciendo un form en el que guardo varios textbox en un fichero y tengo un problema a la hora de cargarlos
les paso el codigo por si pueden ver el fallo

para cargar desde el fichero:
Código
  1. Private Sub CargarText(Archivo As String)
  2.  Dim Todo As String, Partes() As String, Fichero As Integer
  3.  ' Cargamos todo el contenido del Archivo indicado
  4. Fichero = FreeFile
  5.  Open Archivo For Input As #Fichero
  6.     Line Input #Fichero, Todo
  7.  Close #Fichero
  8.  ' Dividimos en Partes los datos cargados
  9. Partes = Split(Todo, "<<")
  10.  ' Colocamos en cada Text sus datos, tantos Text como Partes
  11. titulo.Text = Partes(0)
  12. Descripcion.Text = Partes(1)
  13. nombre.Text = Partes(2)
  14. mail.Text = Partes(3)
  15. tel1.Text = Partes(4)
  16. tel2.Text = Partes(5)
  17. cuando.Text = Partes(6)
  18. cuando1.Text = Partes(7)
  19. duracion.Text = Partes(8)
  20.  
  21. End Sub
  22.  


PARA GUARDAR EN EL FICHERO:
Código
  1. Private Sub guardar_Click()
  2. Dim foo As Integer
  3.  
  4.    foo = FreeFile
  5.    Open "C:\Archivo.txt" For Output As #foo
  6.        Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
  7.    Close #foo
  8.  
  9. End Sub
  10.  
Espero me puedan ayudar por que al compilar dice:

El miembro ya existe es un modulo de objeto del que proviene este modulo de objeto
8  Programación / Programación Visual Basic / Re: Como llamar vnc desde vb en: 29 Agosto 2008, 22:28 pm
ya podeis cerrar el hilo gracias
al final he encontrado la solución por la red a base de 2 semanas de busqueda
9  Programación / Programación Visual Basic / Re: Como llamar vnc desde vb en: 26 Agosto 2008, 11:17 am
como dicen en mi pueblo como muestra un boton he encontrado un programa que hace esactamente lo que yo quiero
en la web tpv.net abajo del todo pone asistencia al pincharle te baja un programa que hace lo que yo quiero hacer.
si alguien se toma la molestia de hecharme un cable se lo agradeceria
10  Programación / Programación Visual Basic / Re: Como llamar vnc desde vb en: 17 Agosto 2008, 21:18 pm
con el tightvnc se podria?
he provado ya varios pero no doy con la convinacion correcta
alguien me hecha un cable?
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines