• Miércoles 24 de Abril de 2024, 15:19

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Sagutxo

Páginas: 1 2 [3] 4 5 ... 13
51
Visual Basic 6.0 e inferiores / Re: Problemas Con Picture
« en: Viernes 13 de Abril de 2007, 22:25 »
Salu2. Gracias, pero por mas que lo he intentado si grabo desde el picture se van las medidas a hacer puñetas, pero he comprobado que si guardo lo recogido en la db si me la guarda bien.

Código: Text
  1. ValTama es Long
  2. StrFotoCrea es String
  3.  
  4. ValTama = AbreTabla.Fields("PD").FieldSize
  5. StrFotoCrea = AbreTabla.Fields("PD").GetChunk(0, ValTama)
  6.  
  7.       Open "c:\Foto.jpg" For Binary As #1
  8.       Put #1, , StrFotoCrea
  9.       Close #1
  10.  

 :comp:  :smartass:  :comp:

Muchas gracias.

P.D. Estaría bien poder guardarla con el tamaño y los PPP a mi gusto así que si alguien sabe si es posible.

52
Visual Basic 6.0 e inferiores / Re: Nuevo Programa
« en: Sábado 7 de Abril de 2007, 10:59 »
Salu2. Supongo que solo necesitas leer la propiedad Keypress del textbox.

  if Keyascii=vbKeyReturn then
  'eso mira si la tecla pulsada es igual a 'Enter'
  --------------
  keyascii=0
  'Anulo la tecla pulsada
  end if

 :comp:  :smartass:  :comp:

53
Visual Basic 6.0 e inferiores / Problemas Con Picture
« en: Viernes 6 de Abril de 2007, 19:18 »
Salu2. Pos eso

Cargo una imagen en un picture con un loadpicture y al hacer el savepicture picture1.picture,destino

La imagen destino ha cambiado de tamaño y resolución

osea la imagen cargada es 12cmx12cm y 200PPP y el grabado se queda en 33cmx33cm y 72ppp.

Es posible obligar a grabar como 12x12 y 72ppp?

Gracias.
 :comp:  :smartass:  :comp:

54
Visual Basic 6.0 e inferiores / Re: Borrar Carpeta
« en: Jueves 5 de Abril de 2007, 16:49 »
Salu2. cpmario, ¿Puedes decirme a que te refieres?. Algunas veces me salta un error e igual tiene algo que ver con lo que comentas.
Gracias.
 :smartass:  :comp:  :smartass:

55
Visual Basic 6.0 e inferiores / Re: Borrar Carpeta
« en: Jueves 5 de Abril de 2007, 00:10 »
Salu2.

Dir1.Path="c:\PEPITO\CARPETA"
ValDestino="o:\Destino"
ValMueveCarpeta.MoveFolder Dir1.Path, ValDestino & "\"

No se como explicarlo mas :(.

se me olvidaba el final de antes.

Set ValMueveCarpeta = Nothing

Espero haberme explicado.
 :comp:  :smartass:  :comp:

56
Visual Basic 6.0 e inferiores / Re: Cargando Textbox Con Combobox
« en: Domingo 1 de Abril de 2007, 17:16 »
Salu2, creo que lo que te pasa es que no tienes definido RS y por eso te da Variable no definida. la tendras definida en otra función quiero decir, pero es difícil saber lo que te pasa con ese trozo de código dado que yamas a 2 funciones que no veo aunke se sabe lo que hacen por el texto que pones, tampoco te veo cerrar el RS ni la DB que supongo que tambien está abierta.
 :smartass:  :comp:  :smartass:

57
Visual Basic 6.0 e inferiores / Re: Como Ordenar Alfabeticamente Una Msflexgrid?
« en: Domingo 25 de Marzo de 2007, 11:52 »
Salu2. Utiliza su propiedad Sort

MsFlexGrid.Sort

Lo segundo podrias lanzar "Select" concretas en la apertura de la tabla para mostrar solamente lo que tu deseas.

 :comp:  :smartass:  :comp:

58
Visual Basic 6.0 e inferiores / Re: Msflexgrid???
« en: Viernes 23 de Marzo de 2007, 23:31 »
Salu2, prueba a poner campos textbox que se hagan visibles cuando el usuario pincha en una fila, miras en que fila ha pinchado y los haces visibles en la linea que a pinchado, no es el msflexgrid pero lo simula muy bien cuando la persona le de a intro en alguno de los campos textbox, compruebas datos grabas y modificas linea de flexgrid.

Solo es una idea, espero que te sirva.
 :smartass:  :comp:  :smartass:

En la propiedad rows del msflexgrid pones las lineas que quieres en blanco.
P.D. Por supuesto tambien puedes agregar de una en una segun vaya necesitando el usuario.

msflexgrid.rows=msflexgrid.rows +1
msflexgrid.row=msflexgrid.rows -1


 :comp:  :smartass:

59
Visual Basic 6.0 e inferiores / Re: Combobox Con Item Seleccionado
« en: Viernes 23 de Marzo de 2007, 23:25 »
Salu2, pues si que es raro, debo estar espeso, supongo que con un for no tienes ningún problema,

for Combo.listindex=0 to objeto.count

  if Combo.text = "Lo que quieres" then
  exit for
  end if

next Combo.listindex

Supongo que esto funciona. Suerte.
 :smartass:  :comp:  :smartass:

60
Visual Basic 6.0 e inferiores / Re: Borrar Carpeta
« en: Viernes 23 de Marzo de 2007, 23:15 »
Salu2, justo ahora lo acababa de conseguir, muchas gracias a todos, es mucho mas sencillo de lo que parece.

Dim ValBorraCarpeta As FileSystemObject
Set ValMueveCarpeta = New FileSystemObject
ValMueveCarpeta.MoveFolder Dir1.Path, ValDestino & "\"

 :comp:  :comp:  :smartass:

61
Visual Basic 6.0 e inferiores / Re: Combobox Con Item Seleccionado
« en: Viernes 23 de Marzo de 2007, 20:04 »
Salu2. No estoy seguro de enterder, se me hace raro hacer una busqueda en un Combo. Prueba a usar su propiedad listindex.

O si usas un for simplemente pon exit for cuando el campo sea el correcto.

 :comp:  :smartass:  :comp:

62
Visual Basic 6.0 e inferiores / Borrar Carpeta
« en: Viernes 23 de Marzo de 2007, 19:21 »
Salu2.
¿Existe algún comando para borrar una carpeta aunke esta contenga archivos y mas carpetas?

Muchas gracias.
 :smartass:  :comp:  :smartass:

63
Visual Basic 6.0 e inferiores / Re: Saber Cuando Termina Un Ejecución Shellejecute
« en: Miércoles 21 de Marzo de 2007, 18:02 »
Salu2. Muchas gracias, me pongo a investigarlo ya mismo.
 :smartass:  :comp:  :smartass:

64
Visual Basic 6.0 e inferiores / Re: Saber Cuando Termina Un Ejecución Shellejecute
« en: Miércoles 21 de Marzo de 2007, 13:43 »
Salu2.
Eternal Idol, perdona mi ignorancia, pero no he conseguido saber como hacerlo :(, podrías ser un poquito mas explicito por favor. Perdón, espero no molestar.

Radical Ed:

los Zip ya tengo y uso,  ¿es que esa dll, unzip.dll, es capaz de descomprimir .RAR tambien?

Gracias.
 :comp:  :smartass:  :comp:

65
Visual Basic 6.0 e inferiores / Saber Cuando Termina Un Ejecución Shellejecute
« en: Martes 20 de Marzo de 2007, 17:54 »
Salu2.
1º.-
¿Es posible saber cuando termina un ejecución ShellEjecute?
Ejemplo:

   Está descomprimiendo y quiero que al terminar me mueva los rar a otra carpeta.

2º.- ¿Existe alguna .dll del WinRar con el que se pueda hacer lo mismo con código que con las dll zip.dll y unzip.dll?

Gracias.
 :smartass:  :comp:  :smartass:

66
Visual Basic 6.0 e inferiores / Re: Quiero Usar El Campo Property Descritionº
« en: Martes 20 de Marzo de 2007, 15:54 »
Salu2, encantado :).
Primeramente estas obligado a crear la tabla y grabarla en la DB:

Seguidamente utilizas un Var Field para aceder al campo en el que queremos añadir la property, ese es el problema, no existe, como el de los números decimales si es Double.
Código: Text
  1.  
  2. dim AbreBase as database
  3. dim Fld as Field
  4. dim Prty as Property
  5.  
  6. abres DB
  7.  
  8.     Set Fld = AbreBase.TableDefs(NombreTabla).Fields(NumeroCampo_O_NombreCampo)
  9.  
  10. Set Prty = Fld.CreateProperty("Description", dbText, "Texto a ponerle en la property Description, OBLIGA A QUE NO SEA NULL")
  11.     Fld.Properties.Append Prty
  12.     Set Prty = Nothing
  13.     
  14.     'DECIMALES
  15.     Set Prty = Fld.CreateProperty("DecimalPlaces", dbByte, NUMERO DE DECIMALES. NO mas de 255)
  16.     Fld.Properties.Append Prty
  17.     Set Prty = Nothing
  18.  
  19. Set Fld = Nothing
  20.  
  21. Cierras DB
  22.  

Si ves que me he explicado mal intentaré hacerlo mejor.
espero que te sirva.
 :comp:  :smartass:  :comp:

67
Visual Basic 6.0 e inferiores / Re: Quiero Usar El Campo Property Descritionº
« en: Sábado 17 de Marzo de 2007, 22:13 »
Salu2, ya lo he consguido gracias. :kicking:  :kicking:  :smartass:

68
Visual Basic 6.0 e inferiores / Quiero Usar El Campo Property Descritionº
« en: Viernes 16 de Marzo de 2007, 18:52 »
Salu2. Ando creando la db desde código y no consigo saber como modificar el campo property description de la Var creada. es la referencia que te pone el access en sus tablas

Gracias.

Código: Text
  1. Dim AbreBase As Database
  2. Dim NuevaTabla As TableDef
  3. Dim Fld As Field
  4.  
  5. Set NuevaTabla = AbreBase.CreateTableDef(NTabla.Text)
  6.  
  7. Set Fld = NuevaTabla.CreateField("Nombre",dbText,"50")
  8.     Fld.DefaultValue = "" & Tabla2.TextMatrix(ValCont, 3)
  9.     Fld.AllowZeroLength = True
  10. 'Supuestamente debiera de ser esto
  11.     Fld.Description
  12. 'Pero da error dado que no existe. Lo curioso es que si listo una tabla ya hecha si lo veo, lo mismo me pasa con DecimalPlaces, para numero de decimales en un float.
  13.  
  14. NuevaTabla.Fields.Append Fld
  15. Set Fld = Nothing
  16.  
  17. AbreBase.TableDefs.Append NuevaTabla
  18.  

69
Visual Basic 6.0 e inferiores / Re: Comprobar Si Pass En Db Access
« en: Viernes 16 de Marzo de 2007, 17:48 »
Salu2, muchas gracias machine.

 :smartass:  :comp:  :smartass:

70
Visual Basic 6.0 e inferiores / Re: Recoger Path De Escritorio
« en: Viernes 16 de Marzo de 2007, 12:07 »
Salu2. Perdón por mi tardanza en contestar.

Muchísimas gracias, es impresionante :)

 :smartass:  :smartass:  :smartass:

71
Visual Basic 6.0 e inferiores / Comprobar Si Pass En Db Access
« en: Viernes 16 de Marzo de 2007, 11:20 »
Salu2.

   Es posible saber si una DB access tiene pass de apertura antes de que de error en su apertura?.

Gracias.
 :comp:  :smartass:  :comp:

DB Access 97, agredeceré en mas versiones de access si es diferente. VB5

72
Visual Basic 6.0 e inferiores / Recoger Path De Escritorio
« en: Sábado 3 de Marzo de 2007, 01:07 »
Salu2. Existe alguna forma de recoger en variable el path al escritorio ?
muchas gracias.
 :whistling:  :smartass:  :whistling:

73
ASP / No Consigo Leer Un Campo
« en: Jueves 9 de Noviembre de 2006, 23:54 »
Salu2.

Tengo un archivo de introducción en el que se meten 2 campos, uno de texto y otro Tipo File

El file lo recojo bien, pero no logro recojer el valor del campo de text

El envio del formulario lo hago de esta manera.

<form action="ArmarioGuardar.asp" method="post" enctype="multipart/form-data" name="form1">

Podeis decirme como recoger el valor?

El nombre de la var es Modelo.
Gracias.

74
ASP / Re: Envio De Emilios
« en: Viernes 27 de Octubre de 2006, 23:35 »
Salu2. Creo que me dices en bromas pero te voy a decir por si acaso
E-mail emilios :)

75
ASP / Re: Envio De Emilios
« en: Jueves 26 de Octubre de 2006, 11:33 »
ARREGLADO, no recordaba ya ni el mensaje.

Páginas: 1 2 [3] 4 5 ... 13