• Martes 11 de Mayo de 2021, 12:39

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 ... 13
1
Visual Basic para principiantes / Re:Códigos de barra
« en: Jueves 12 de Julio de 2012, 23:54 »
Ya lo he conseguido, gracias. un saludo.

2
Visual Basic para principiantes / Códigos de barra
« en: Jueves 12 de Julio de 2012, 22:32 »
Hola a todos, Hace mucho tiempo que no toco la programación y me gustaría crearme un miniprogramita que me convierta números en código de barras. Podriais alguno orientarme un poquito sobre que necesito, porque estoy totalmente desorientado.
gracias.
                                      Juan.

3
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Viernes 12 de Junio de 2009, 20:18 »
Salu2. Pido disculpas por la tardanza en contestar, pero una mala gripe me ha dejado en cama hasta ayer. Decirte que ciertamente tampoco me funciona tu demo, lo que me deja claro que alguna de mis .dll se le ha ido la pinza o se actualizó al ejecutar mi instalador y ahora no es la correcta. Pero como no me gusta perder la esperanza voy a lanzar otra pregunta desde mi ignorancia :) . ¿Es posible que un antivir como el AVG detenga la función?. Mi opinión es que no debiera, pero ahí queda.

   No se, Supongo que acabaré probando mas Win98, hasta que alguno me funcione, y regresaré a VB5 mas que nada por hacer cambios y no estancarme en una idea fija.

Muchas gracias.

4
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Viernes 5 de Junio de 2009, 21:23 »
Salu2. Antes de nada decirte que te agradezco mucho las molestias que te has tomado. el lunes cuando vaya al currito probare tu .exe para ver si funciona, y te comentaré.

Respecto a que es picture1.picture, si, así lo he tenido siempre, pero se me pasó cambiar el mensaje anterior.

muchas muchas gracias.

5
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Viernes 5 de Junio de 2009, 15:34 »
Salu2. En S.O. posteriores al 2000 funciona en todos, 'curiosamente', en el vista no me deja instalarlo, digo curiosamente porque en windows 7 si va :).

   Estos desesperado, le he puesto 3 win98 ya y me pasa en todos lo mismo, hasta ahora nunca he desistido cuando he querido hacer algo, pero 3 semanas es mucho tiempo y no tengo ideas. Procuraré encontrar otro pc al que poderle poner un win98, pero dudo mucho que sea problema de pc, pero mucho mucho :) .

   Una vez mas gracias por tu interes. Un Saludo.

6
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Lunes 1 de Junio de 2009, 18:13 »
Salu2. aquí está el pantallazo del error. Las 2 imagenes son la misma pero enseñando diferentes partes del desplazable. Espero que os sirva mas que a mi ;) .
Respecto al tema de las api, no me da error de ningun tipo, pero no pega la imagen en el excell y no se porque, el ejemplo está muy bien explicado, pero no he sido capaz.

Gracias.

7
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Jueves 28 de Mayo de 2009, 18:03 »
Salu2. Si pudiese capturarlo me lo saltaria, no me lo permite. directamente me cierra la aplicacion o en caso de estar en el editor, el editor y la aplicación, y me saca el mensage de error kernel32, desbordamiento de pila y unos números exadecimales que supongo no vendrán a cuento. Pero si insistes la próxima vez te pongo el pantallazo.

Gracias por el comentario. Se me han terminado las ideas. Todo será bien agradecido. :)
 :comp:  -_-  :comp:

8
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Martes 26 de Mayo de 2009, 18:18 »
Salu2. Nuevamente gracias por las opiniones pero no es el caso, es c:logo.jpg. :(. . Recordar que la función dir no me da error, me devuelve que el fichero existe. :) . Tamaño de Logo.jpg 4,36k, Dudo mucho que sea problema de tamaño.

Un saludo.

9
Visual Basic 6.0 e inferiores / Re: Error con LoadPicture
« en: Lunes 25 de Mayo de 2009, 18:00 »
Gracias por contestar, te diré que dirfile es = a el path a fichero, está correcto dado que si le pongo con la función dir(dirfile) me dice que existe.
DirFile=string, obviamente :)
El problema radica en la función LoadPicture sin duda, lo que no se es porque sucede. solo sucede en el win98. El problema es que el PC en el que está necesita Win98 por otras aplicaciones que se usan y no tienen opcion de S.O. superior.

un saludo.

10
Visual Basic 6.0 e inferiores / Error con LoadPicture
« en: Viernes 22 de Mayo de 2009, 20:56 »
Salu2. Mi problema es el siguiente:

VB6 sobre S.O. Win98.

clipboard.clear
clipboard.setdata LoadPicture(DirFile)
La función LoadPicture me cierra la aplicación sin remedio. Mensaje: desbordamiento de pila.

Tambien he probado con un control picture:
clipboard.clear
picture1.picture=LoadPicture(DirFile)
clipboard.setdata picture1

y me pasa lo mismo

Alguno sabe decirme porque ¿?
gracias.

11
Visual Basic 6.0 e inferiores / Re: Error instalando VB6
« en: Sábado 21 de Marzo de 2009, 02:00 »
Resalu2, impresionante, parece que la solución era sencilla, 4 horas tiradas :), mañana lo pondré en práctica despues de hacer una imagen de la instalación :). por si acaso. No me ha funcionado lo que pone en la pag :( así que he regresado :). por ahora parece ir todo bien.
Nuevamente gracias.

12
Visual Basic 6.0 e inferiores / Re: Error instalando VB6
« en: Sábado 21 de Marzo de 2009, 01:54 »
Salu2. Muchisimas gracias. Despues de hacer mil y 1 puñetadas en la instalación de vb, osea meter archivos en medio, cogidos de otro pc :), y conseguir instalar SP6VB6 malamente también :) parece que ahora van funcionando las cosas, poco a poco ire viendo y reparando sobre la marcha. Mis aplicaciones parece que el problema es que no sirven las compilaciones del otro win, lo que me hace pensar que ahora no funcionaran en los otros :), en fin iremos solucionando y preguntando.
No obstante ahora mismo miro la pag, para ver soluciones.

Muchas gracias, me alegra saber de ti. cuídate. :beer:

13
Visual Basic 6.0 e inferiores / Error instalando VB6
« en: Viernes 20 de Marzo de 2009, 22:37 »
Salu2. Recientemente he instalado una nueva versión de windows "WindowsXP Black Cristal" pues bien, ahora resulta que el vb6 me da error de instalación y muchas de mis aplicaciones han dejado de funcionar curiosamente. parece tener su causa en registros de OCX y DLL pero no puedo asegurarlo. el error concreto es "Imposible registrar javasign.dll" he probado mil cosas y ya he perdido casi la esperanza. Lo curioso es que lo tengo en otro pc instalado y sin problemas con el mismo systema  :wub: si a alguien le ha ocurrido lo mismo y pudo solucionarlo le agradecería enormemente que me ayudara.
Gracias.

14
Visual Basic 6.0 e inferiores / Re: Calcular total de ciertos reg. de tabla de Access
« en: Viernes 19 de Septiembre de 2008, 14:48 »
Salu2. SOLUCIONADO.
Muchas gracias.

15
Visual Basic 6.0 e inferiores / Re: Calcular total de ciertos reg. de tabla de Access
« en: Viernes 19 de Septiembre de 2008, 11:02 »
Salu2. Muchas gracias por tu contestación.

  El valor de la ejecución dónde queda guardado, o aún mejor, ¿cómo lo leo?

gracias.

16
Visual Basic 6.0 e inferiores / Calcular total de ciertos reg. de tabla de Access
« en: Jueves 18 de Septiembre de 2008, 21:55 »
Salu2.
   ¿Alguien sabe si se puede lanzar una ejecución en una tabla de access  que devuelva la suma de un campo concreto?

Ejemplo:

Para Borrar un reg concreto:+
AbreBase.Execute "DELETE * FROM Tabla WHERE Campo="  & Valor

Pues quiero eso mismo pero que me devuelva el total de la suma de un campo.

supongo que sera un estilo a :
AbreBase.Execute "SUM(Total) * FROM Tabla WHERE IDCliente="  & Valor

Cogería todos los registros del Campo Total del cliente X y me devolvería su suma.

Espero haberme explicado. me siento espeso.  -_-
Muchas gracias.

17
Visual Basic 6.0 e inferiores / Re: Funcion Dir
« en: Martes 3 de Junio de 2008, 00:04 »
Perdón, perdón, perdón, tenia mal una linea de código
Gracias.

18
Visual Basic 6.0 e inferiores / Funcion Dir
« en: Lunes 2 de Junio de 2008, 23:55 »
Salu2.

Siempre había utilizado la función dir para saber si una carpeta existe o no. Pero hace ya un tiempo que tiene una laguna. Si el nombre de la carpeta contien un caracter espacio no la encuentra. Se le ocurre a alguien una solución a este problemilla. No me importa cambiar de función si con eso subsano el problema.

He probado a hacer la comprobación poniendo la variable usada entre comillas, utilizando dir(chr$(34) & Var & chr(34),VbDirectory)

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

19
Visual Basic 6.0 e inferiores / Filesystemobject Mostrar Tamaño De Copiado
« en: Sábado 24 de Mayo de 2008, 21:57 »
Salu2.

ValOpciFiles es una var FileSystemObject


¿Existe alguna forma de saber si este comando ha terminado de copiar?
o aún mejor, ¿puedo bloquear el formulario mientras termina de copìar?
ValOpciFiles.CopyFolder OrigenN.Text, ValCarpeta

Gracias.
 :smartass:  :comp:  :smartass:

20
Visual Basic 6.0 e inferiores / Re: Leer Archivos De Carpeta
« en: Domingo 18 de Mayo de 2008, 00:53 »
Salu2, encantado.

He creado un control FileListBox que refresco cada vez que cambia el control DirListBox. Se llama File1.

Código: Text
  1. Private Sub Renombrar()
  2. Dim ArchivoN As String
  3. Dim ValCont As Long
  4.  
  5.   If File1.ListCount > 0 Then
  6.  
  7.     For ValCont = 0 To (File1.ListCount - 1)
  8.     'File1.ListIndex = ValCont 'Funcion mia
  9.     'ArchivoN = DameArchivo()  'Funcion mia
  10.    
  11.       If File1.FileName <> ArchivoN Then
  12.     '  renombra ArchivoN 'Funcion mia
  13.       End If
  14.    
  15.     Next ValCont
  16.    
  17.   End If
  18. 'File1.Refresh
  19. End Sub
  20.  
Espero que te sirva.

 :comp:  :smartass:  :comp:

21
Visual Basic 6.0 e inferiores / Re: Leer Archivos De Carpeta
« en: Viernes 16 de Mayo de 2008, 20:53 »
Ya lo he conseguido, muchas gracias,
 :comp:  :smartass:  :comp:

22
Visual Basic 6.0 e inferiores / Leer Archivos De Carpeta
« en: Viernes 16 de Mayo de 2008, 18:34 »
Salu2. ¿Cómo puedo leer los nombres de los archivos de una carpeta determinada?.

Gracias.

 :smartass:  :comp:  :smartass:

23
Salu2. Supongo que habla de un msflexgrid

Código: Text
  1. VarStr=MsFlexGrid.TextMatrix(ValorLinea, ValoCol)
  2.  

Espero que busque eso.
 :comp:  :smartass:  :comp:

24
Visual Basic 6.0 e inferiores / Re: Sustituir Un Caracter Por Otro Del Alfabeto
« en: Sábado 5 de Abril de 2008, 00:50 »
Salu2.

   Se me ocurre que podias usar el evento keypress para hacer el cambio a la vez que escribes en el campo.

  Utiliza primero pasar a mayusculas o minusculas o bien compara entre las 2 posibilidades.

   Sería muy sencillo.

'  este es el valor decimal de las letras del abecedario, 1º mayúsculas y despues minúsculas, el valor 8 equivale a la tecla retroceso.

Código: Text
  1.   if KeyAscii = 8 Then
  2.   exit sub
  3.  
  4.   elseif (KeyAscii > 64 And KeyAscii < 91) Then
  5.  
  6.     if (KeyAscii > 87) then
  7.     keyascii=(67-(keyascii-90))
  8.     end if
  9.  
  10.   elseif (KeyAscii > 96 And KeyAscii < 123) Then
  11.  
  12.     if (KeyAscii > 120) then
  13.     keyascii=(99-(keyascii-122))
  14.     end if
  15.  
  16.   else ' Elimino valor introducido.
  17.   keyascii=0
  18.   end if
  19.  

'Ten en cuenta que las 'ñ' 'Ñ' tiene valores diferentes
'ñ=164
'Ñ=165

espero no liarte.

 :comp:  :smartass:

25
Visual Basic 6.0 e inferiores / Re: Enviar Base De Datos Via Ftp
« en: Domingo 23 de Marzo de 2008, 19:00 »
Salu2.

Código: Text
  1. Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
  2. Const FTP_TRANSFER_TYPE_ASCII = &H1
  3. Const FTP_TRANSFER_TYPE_BINARY = &H2
  4. Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP servers
  5. Const INTERNET_SERVICE_FTP = 1
  6. Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connections
  7. Const INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configuration
  8. Const INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to net
  9. Const INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxy
  10. Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INS
  11. Const MAX_PATH = 260
  12. Private Type FILETIME
  13.     dwLowDateTime As Long
  14.     dwHighDateTime As Long
  15. End Type
  16. Private Type WIN32_FIND_DATA
  17.     dwFileAttributes As Long
  18.     ftCreationTime As FILETIME
  19.     ftLastAccessTime As FILETIME
  20.     ftLastWriteTime As FILETIME
  21.     nFileSizeHigh As Long
  22.     nFileSizeLow As Long
  23.     dwReserved0 As Long
  24.     dwReserved1 As Long
  25.     cFileName As String * MAX_PATH
  26.     cAlternate As String * 14
  27. End Type
  28. Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
  29. Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
  30. Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  31. Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  32. Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Long
  33. Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  34. Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  35. Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
  36. Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As Boolean
  37. Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean
  38. Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
  39. Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As Boolean
  40. Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
  41. Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
  42. Const PassiveConnection As Boolean = True
  43.  
  44. Const SW_NORMAL = 1
  45. 'API De windows
  46.  
  47.  
  48. public Function SubeFich(ValArch as string)
  49.  
  50. Dim oConn As Long, hOpen As Long, sOrgPath  As String, ValStr As String
  51. Dim X
  52.  
  53. 'Apertura de conexión
  54. hOpen = InternetOpen("Subiendo fotos", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  55. 'Conectar a FTP
  56. oConn = InternetConnect(hOpen, "ftp.patatin.com", PUERTO, "User", "Pass", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
  57.  
  58. 'Guardo path de entrada
  59.  
  60. sOrgPath = String(MAX_PATH, 0)
  61. FtpGetCurrentDirectory oConn, sOrgPath, Len(sOrgPath)
  62.  
  63. FtpSetCurrentDirectory oConn, "Carpeta que quieras del ftp"
  64.  
  65. FtpPutFile oConn, "Path a fichero de DB, "Nombre de fichero en destino", FTP_TRANSFER_TYPE_UNKNOWN, 0
  66.  
  67. ' Vuelvo a path Origen del FTP
  68. FtpSetCurrentDirectory oConn, sOrgPath
  69.  
  70. 'CIERRO CONEXION a FTP
  71. InternetCloseHandle oConn
  72. 'CIERRO CONEX a INTERNET
  73. InternetCloseHandle hOpen
  74. end function
  75.  

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