|
|
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 - Cyclop
Páginas: 1 [2] 3 4 ... 13
26
« en: Lunes 13 de Junio de 2005, 19:15 »
No entendi bien quieres que el usuario copie un archivo que no conoce y no tiene acceso de un servidor y no se a donde ... puedes ser mas explicito???....
Salu2
Cyclopz
27
« en: Jueves 9 de Junio de 2005, 22:04 »
Yo encontre uno mejor, trabaja con los apis pero te crea un control personalizado (usercontrol) con el WinSock.Ocx, maneja los mismos metodos y eventos que el .OCX. despues lo subo.
Salu2
Cyclopz
28
« en: Martes 7 de Junio de 2005, 22:32 »
Hola a todos como les va, una consultita, donde puedo encontrar screenshots de sistemas hechos en PB, VB o VFP, lo que quiero es tener nuevas ideas de como diseñar un sistema. Salu2 Cyclopz 
29
« en: Martes 7 de Junio de 2005, 21:54 »
Deja me ver si entendi bien, quieres ejecutar un bat para que te realice una copia de segurida, que estaria de esta forma:
Backup.Bat
Pkzip c:\mizip c:\misistema\data\*.*
Por que no usas las Dlls aZip32.Dll, aUnZip32.Dll y lo haces que te muestre un progress bar, mientras comprime los archivos.
Salu2
Cyclop
31
« en: Domingo 5 de Junio de 2005, 22:24 »
Se supone que tu grid esta asociado a un cursor o una tabla temporal, cada vez que cambias de linea automaticamente se cambia de linea en la tabla o cursor lo unico que tienes que hacer es: ? MiTabla.Codigo
Ahora si quieres manejarlo como celdas haces lo siguiente
create cursor tempo (columna1 c(3), columna2 c(3), columna3 c(3))
thisform.grid.recordsource = "tempo"
en el evento InteractiveChange del grid haces esto
thisform.label1.caption= Eval("tempo.columna" + str(this.activecolumn,1))
Salu2
Cyclop
32
« en: Domingo 5 de Junio de 2005, 01:14 »
Revisa estos temas */--- Nro de Fila del Grid Grid.ActiveRow Grid.ActiveColumn */--- Nro de Registro Recno()
Salu2 Cyclopz
33
« en: Sábado 4 de Junio de 2005, 02:53 »
Prueba con esto Private Declare Function GetTickCount& Lib "kernel32" () Private Sub Pausa() ret& = GetTickCount& ' Esperar hasta que cumpla los 2 minutos Do While (ret& / 60000) <= 2 ret& = GetTickCount& Loop End Sub
Salu2 Cyclopz
34
« en: Jueves 2 de Junio de 2005, 23:43 »
No le faltara algun componente del Crystal, corre el exe en tu pc y revisalo con el ProcessExplorer para que veas que dll esta utilizando, derrepente te falta alguno de ellos.
Salu2
Cyclop
36
« en: Jueves 2 de Junio de 2005, 22:27 »
Mejor usa esto y te olvidas de todos esos problemas Private Const SND_APPLICATION = &H80 ' look for application specific association Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Private Const SND_ASYNC = &H1 ' play asynchronously Private Const SND_FILENAME = &H20000 ' name is a file name Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy Private Const SND_PURGE = &H40 ' purge non-static events for task Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom Private Const SND_SYNC = &H0 ' play synchronously (default) Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC End Sub
37
« en: Jueves 2 de Junio de 2005, 22:14 »
Hola josesin Se supone que tu grid ya esta enlazado con tu cursor, en el Evento KeyPress del Formulario Añada teclas de funcion Form.KeyPress(nKeyCode) Do Case Case nKeyCode = -4 && F3 AddItemToCursor() EndCase
FUNCTION AddItemToCursor Append Blank In MiCurSor ThisForm.Grids1.Refresh() ENDFUNC
Salu2
38
« en: Miércoles 1 de Junio de 2005, 23:13 »
Yo lo que hago es al instalar el software guardo la fecha actual + 30 dias osea la fecha de caducacion en un archivo binario dentro del directorio de window\system y cada vez que entro al programasimplemente comparo las fechas y voy actualizando el contador dentro de ese archivo.
La otra forma seria guardar el dato en modo binario dentro del EXE, hay una Api que te permite Freezar el EXE y añadirle datos, pero no me acuerdo cual es la rutina, una vez lo vi de reojo en un foro.
Salu2
Cyclopz
39
« en: Miércoles 1 de Junio de 2005, 22:14 »
Esto lo tienes que controlar en el evento valid If Empty(Thisform.TxtFecha) Messagebox(Eerror Completar") Return .F. Endif Return .T.
Salu2 Cyclop 
41
« en: Martes 26 de Abril de 2005, 20:37 »
Oe #### mare, tu vienes a hacer tu sistema a coste de nosotros, y ni siquiera das las gracias. 
42
« en: Lunes 25 de Abril de 2005, 23:16 »
El problema esta en tu acceso directo esta redireccionando a C:\Windows\Escritorio cambiale las propiedades al acceso en la opcion "Iniciar En:"
Salu2
43
« en: Domingo 24 de Abril de 2005, 21:58 »
Econtre un ejemplo con archivos de flash, muestran unos botones simpaticones y redondo como los quieres (que no se entieda mal). Salu2 Cyclopz
44
« en: Sábado 23 de Abril de 2005, 20:59 »
45
« en: Viernes 22 de Abril de 2005, 20:41 »
Estos tres archivos basta para que funcione tu app.
Vfp8r.dll
Vfp8resp.dll
gdiplus.dll
Salu2
Cyclopz
46
« en: Viernes 22 de Abril de 2005, 20:31 »
???? y despues que, el tubo te lo metes por el culo. XD jajajajajajajajaja
47
« en: Jueves 21 de Abril de 2005, 21:44 »
Yo tengo una dll que te saca el id del CPU, creo que seria mejor ... escribame y te lo envio. Salu2 Cyclopz PD.- Te recomiendo que entres al foro de www.portalfox.com esta mas activo que este ... y te dan soluciones al instante.
48
« en: Jueves 21 de Abril de 2005, 21:29 »
Ya mas o menos entiendo tu problema, lo que pasa que en tu programa tu abres la base de datos de esta forma:
sTabla = CurDir() + "Mitabla.dbf"
Use (sTabla)
Pero como al momento de instalar y mucho menos si tiene un link en el escritorio de windows, el programa siempre te va a redireccionar a c:\windows\escritorio a menos que manualmente en el icono de acceso directo, cambies la ruta que dice "INICIAR EN:" ahi lo pones "c:\archivos de programas\miapp"
Sino en el mismo instalador al acceso directo lo asignas la ruta en la que se instalo los datos, yo tengo uno hecho en Inno Setup, si quieres te lo puedo pasar para que lo pruebes ... yo ya supere ese problema.
Salu2
Cyclopz
49
« en: Jueves 21 de Abril de 2005, 21:21 »
Puede que dentro del programa haya un set defaul to que esta redirecionado a otro lugar o puede ser que tiene un archivo ini con la ruta del Dbf.
Salu2
Cyclopz
50
« en: Lunes 18 de Abril de 2005, 22:24 »
Hola AnaKihel, mira los numeros de serie estan en los mismos empaquetados.
Salu2
Cyclopz
Páginas: 1 [2] 3 4 ... 13
|
|
|
Mostrar Mensajes
