|
|
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 - F_rank_cisco
Páginas: [1]
1
« en: Sábado 3 de Marzo de 2012, 21:28 »
Hola a todos:
He hecho una aplicación que tiene 1 ListBox que al arrastrar una carpeta desde el Explorer, lista unos tipos de archivos específicos.
Lo que no consigo, es que al arrastrar una carpeta desde el Explorer al icono de acceso directo a mi aplicación (que no se esta ejecutando) al ejecutarse haga el Drag & Drop a el ListBox.
Si arrastro una carpeta, solo se ejecuta la aplicación, pero no se como hacer el Drag & Drop al ListBox automático.
Me podéis echar una mano por favor.
Saludos.
2
« en: Jueves 3 de Febrero de 2011, 19:00 »
Hola a todos:
Tengo un problema en una aplicación que estoy haciendo.
Tengo un gráfico dibujado en tiempo de ejecución en un PictureBox que a su vez esta dentro de un contenedor ( es el ScrollerII.ocx, que tiene barras de scroll).
Luego mediante un control Slider, hago zoom de ese gráfico, con ScaleWidth y ScaleHeight, y se redibuja mas o menos grande.
Hasta aquí todo funciona, pero lo que no se hacer es como agrandar el PictureBox Width y Height, en función de ScaleWidth y ScaleHeight , para poder recorrer todo el gráfico (aumentado), por que el PictureBox Width y Height, al ser igual, corta el gráfico al recorrerlo con las barras de scroll del OCX.
Agradecería cualquier ayuda.
Un saludo.
3
« en: Sábado 9 de Octubre de 2010, 14:34 »
Hola a todos:
Se puede saber en VB 6.0 en que dirección de memoria esta el código ejecutable de una aplicación que se esta ejecutando.
Por ejemplo, ejecuto "UnPrograma.exe".
En que address de la RAM reside el código de el supuesto "UnPrograma.exe".
Así podría acceder a leer una tabla ASCI de el supuesto "UnPrograma.exe", para poder reescribirla, según necesite que cambie esa tabla del programa.
Un saludo.
4
« en: Jueves 19 de Agosto de 2010, 19:17 »
Si claro, pero como no obtuve respuestas creia que esto no le interesaba a nadie, a pesar de que me ha costado mucho conseguirlo a base de prueba/error. Public Declare Function GetComboBoxInfo Lib "user32" _ (ByVal hwndCombo As Long, _ CBInfo As COMBOBOXINFO) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type POINTAPI x As Long y As Long End Type Public CBI As COMBOBOXINFO Public Type COMBOBOXINFO cbSize As Long rcItem As RECT rcButton As RECT stateButton As Long hwndCombo As Long hwndEdit As Long hwndList As Long End Type Public n_Items As Long, Item_n As Long Public Items As String Public El_Item As String Public length As Long Public Handle as Long 'hWnd de la ventana del combo ' Mensajes y valores para los ComboBox Public Const CB_GETCOUNT = &H146 Public Const CB_GETCURSEL = &H147 Public Const CB_GETLBTEXT = &H148 Public Const CB_GETLBTEXTLEN = &H149 Public Cor As POINTAPI,Ret as Long Public hParent As Long, ClassName As String Private Sub Timer1_Timer() 'Obtiene la coordenada del Mouse Ret = GetCursorPos(Cor) 'Recuperamos el HWND de la ventana asociada a esa coordenada Handle = WindowFromPoint(Cor.x, Cor.y) 'Handle de la ventana padre hParent = GetParent(Handle) 'Llenamos un Buffer ClassName = Space$(128) 'Recupera el Classname y lo devuelve en el Buffer Ret = GetClassName(Handle, ClassName, 128) 'Extraemos el nombre de la clase ClassName = LCase(Left$(ClassName, Ret)) ' Cantidad de caracteres del texto Caption_Ventana = String(GetWindowTextLength(Handle), Chr$(0)) 'Retorna el caption Call GetWindowText(Handle, Caption_Ventana, 100) 'Obtiene la coordenada del Mouse de la ventana activa Call ScreenToClient(Handle, Cor) 'Esta es la rutina que lee el combobox If ClassName = "combolbox" Then CBI.cbSize = Len(CBI) Call GetComboBoxInfo(Handle, CBI) Item_n = SendMessage(CBI.hwndEdit, CB_GETCURSEL, 0, 0) length = SendMessage(CBI.hwndEdit, CB_GETLBTEXTLEN, Item_n, 0) El_Item = Space$(length + 1) ' La variable " el_Item " pasada a SendMessage retorna el dato del Item actual length = SendMessage(CBI.hwndEdit, CB_GETLBTEXT, Item_n, ByVal El_Item) El_Item = Left(El_Item, Len(El_Item) - 1) End Sub End Sub
Las otras declaraciones que figuran no las pongo por que son de uso común.
5
« en: Jueves 19 de Agosto de 2010, 18:51 »
Este no vale
6
« en: Miércoles 18 de Agosto de 2010, 20:34 »
Despues de muchas pruebas, lo he solucionado.
7
« en: Miércoles 18 de Agosto de 2010, 20:27 »
Bueno, despues de muchas pruebas, he conseguido la solución.
8
« en: Jueves 17 de Diciembre de 2009, 19:59 »
Gracias fap1603, pero ya lo he resuelto.
9
« en: Martes 21 de Julio de 2009, 14:12 »
tu mensaje tiene toda la pinta de un espía. SI estuve 1 año trabajando en la CIA... pero me despidieron por inutil. Tu me cuentas que es para 'traducir' y yo entiendo que es para ejecutar código intermedio, que efectivamente podrías utilizar para traducir, pero que no me creo nada. Pues entiendes muy mal... y el que no te creas nada a mi me tiene sin cuidado. Acaso sabes quien soy ?, me conoces de algo ?, como te atreves ha asegurar (que es para ejecutar código intermedio).. que ni siquiera se que coño es eso. Como espías y troyanos son programas y programadores que deberían desaparecer (en mi opinión), no voy a alimentar a un troll de este tipo. Mira aqui estoy totalmente de acuerdo contigo, algo es algo. Si realmente lo quieres para traducir y no para interponerte entre un programa y el usuario, entonces no tendrás ninguna objección a traducir enteramente el menú y a un lado de la pantalla mostrar un listado de equivalencias ingles-español: Esto ya lo he hecho pero de una forma mas inteligente, por que la solucion que propones no es util y no sirve para nada. Todavía más útil, si mandas una traducción al programador de dicho programa seguro que hasta te agradece la traducción al español ...n Aqui has estado fino... peroooo.... es un pedazo de Programa (el mejor del mundo en su categoria... Samplitude te suena ? ) hecho por una empresa muy seria y muy potente. Fijate lo ridiculo de tus argumentos: Este software no ha conseguido todavia craquearlo nadie en el mundo, por lo que seria ridiculo por mi parte pretender que tu me pudieras dar las claves para hacerlo (segun tu opinion prejuzgada) si esa fuera mi intencion que por supuesto no lo es, por que, y ahora me toca a mi prejuzgarte, no tienes los conocimientos necesarios para poder hacerlo.Por cierto, no se que coño es un troll, o te refieres a los de la pelicula ?. Resumiendo, en mi opinion, hubieras quedado como un "caballero educado", simplemente contestando que este tipo de codigo, este foro no lo publica por seguridad, en base a no fomentar programas piratas, por que se podria utilizar con este fin, Cosa que yo comparto al cien por cien. De todas formas gracias por nada.
10
« en: Domingo 19 de Julio de 2009, 14:24 »
Hola a todos:
Se puede capturar los mensajes de los menues de un programa desde una aplicacion VB6.
Tengo un programa "X" que los menues estan en ingles, y necesito saber si se puede hacer una aplicacion en VB6 que al seleccionar un menu en el programa "X", la aplicacion en VB6 capture ese mensaje del menu y en una ventana ON TOP sobre el programa "X", visualice la aplicacion en VB6 la traduccion en español.
Se hacer el codigo de la traduccion, y solo necesitaria la explicacion y los pasos de como hacer la captura si es que es posible.
Quizas un diagrama de flujo explicado en palabras ?, y que funciones tengo que declarar.
Gracias de antemano a quien me ayude.
Saludos.
11
« en: Domingo 19 de Julio de 2009, 14:19 »
Hola a todos:
Se puede capturar los mensajes de los menues de un programa desde una aplicacion VB6.
Tengo un programa "X" que los menues estan en ingles, y necesito saber si se puede hacer una aplicacion en VB6 que al seleccionar un menu en el programa "X", la aplicacion en VB6 capture ese mensaje del menu y en una ventana ON TOP sobre el programa "X", visualice la aplicacion en VB6 la traduccion en español.
Se hacer el codigo de la traduccion, y solo necesitaria la explicacion y los pasos de como hacer la captura si es que es posible.
Quizas un diagrama de flujo explicado en palabras ?, y que funciones tengo que declarar.
Gracias de antemano a quien me ayude.
Saludos.
12
« en: Jueves 16 de Julio de 2009, 17:54 »
Crear los menues desde codigo, el txt no tengo problemas en leerlo, por que leeria el orden del arbol detectando el numero de TAB's en el fichero.
Realmente no es imprescindible el codigo (si me lo dan mejor) pero me bastaria con un diagrama de flujo del programa, y que funciones API's tengo que definir, o sea una explicacion del esqueleto del programa por ejemplo:
Public Define Function ........
etc
etc
1 - Leer archivo, contar nº de items y guardar en una variable.
Se me acurre un Sub para leer el archivo .txt y cargarlo en un array o ListView con prefijos que indiquen el nº de TAB's por ejemplo:
0,Edit ;el 0 me indica que es menu principal.
1, Leer Parametros ;el 1 me indica que es un submenu de Edit
1, - ;el 1 me indica que es un submenu separador de Edit...Leer Parametros.
Luego en donde corresponda un bucle For..Next para leer y adjudicar los items de cada menu.
Gracias por tu interes.
13
« en: Jueves 16 de Julio de 2009, 12:16 »
Hola a todos:
Necesito hacer en un Form unos menues que a su vez tienen submenues.
El problema es que hacerlos con el editor de menues de VB 6, es muy tedioso por que son muchos (aprox. 100), y mi pregunta es:
Yo haria el arbol de los menues escribiendolos en el block de notas, pongo este ejemplo de arbol de menues:
File
(TAB) Open
(TAB) Save
(TAB) Save as
(TAB) (TAB) Read
(TAB) (TAB) (TAB) Otro
(TAB) (TAB) (TAB) Otro
(TAB) (TAB) (TAB) Otro
(TAB) (TAB) (TAB) -
(TAB) (TAB) Otro
(TAB) -
(TAB) Print
(TAB) (TAB) Otro
Edit
(TAB) Otro
(TAB) Otro
(TAB) (TAB) Otro
(TAB) (TAB) -
O sea, con tabulaciones de 8 espacios se detectarian los niveles de submenues.
Si no hay TAB es menu principal ejemplo: File y Edit
Si hay caracter "-" es linea separadora.
Tengo ejemplos de codigo de las funciones necesarias para manejar menues en tiempo de ejecucion y agregar menues pero con botones y textbox, pero esto no me sirve.
Gracias.
14
« en: Martes 13 de Mayo de 2008, 17:48 »
Teneis razón los dos.
La razón de las 11 tablas no era imprescindible, por que cada tabla tiene diferente nº de campos, era comodidad mía para, traducir el código del manejo de datos que lo tengo hecho con 11 Type's, a una base de datos que lo unificara todo.
La solución estaría en poner todos los campos de las 11 tablas en una sola tabla, que es lo que he probado ayer, pero para mi caso he comprobado que no me es rentable hacer este cambio, por que no me reporta ningún beneficio, y me obliga a rehacer todo el códido.
De todas formas muchas gracias a los dos por vuestra ayuda.
Un saludo.
15
« en: Domingo 11 de Mayo de 2008, 13:01 »
Hola a todos:
Tengo una BD de Access 2000 que tiene 11 tablas.
Necesito que al acceder (por ejemplo) al registro 3 de la tabla 1, las 10 tablas restantes se sitúen en ese mismo registro, todas en modo Edit, para grabar datos en las 11 tablas y en sus correspondientes campos.
También que si quiero Borrar (por ejemplo) el registro 5 de la tabla 9, se borren también todos los registros 5 de las otras 10 tablas, y lo mismo para Añadir nuevos registros, si añado uno a la tabla 6 (por ejemplo), se añadan tambien en las otras tablas.
Mi pregunta:
Se puede hacer esto con una sola instrucción para las 11 tablas, quizás con SQL
Gracias de antemano a quien responda.
16
« en: Martes 6 de Mayo de 2008, 17:20 »
OK cpmario entendido, ahora lo tengo claro y se lo que tengo que hacer.
Muchas gracias por tu ayuda y un saludo.
17
« en: Martes 6 de Mayo de 2008, 13:02 »
Perdona se me olvidaba cpmario:
Si asigno esto:
DataClientes.RecordSource ="Select * from Direcciones"
Sí, recupero todos los registros, pero me situa al principio de la Tabla, y en el campo Cliente me pone el primer nombre, y me borra el/los de la consulta.
Y yo quiero que a partir de el/los encontrado/s, pueda moverme por todos los registros.
Perdonad por ser tan reiterativo, pero es que llevo 2 días con esto, buscando por muchos foros, y no encuentro nada.
Y creo que debe de ser algo muy sencillo, pero que yo ignoro por uqe es la primera vez que utilizo el ControlData.
Gracias.
18
« en: Martes 6 de Mayo de 2008, 12:51 »
Gracias por responder cpmario pero:
La consulta que me sugieres, y que sería según tu así:
Consulta = "Select * From Direcciones Where ' " & Campo a buscar & " ' Like ' " & Texto a buscar & "* ';"
Esto no funciona.
O sea mi consulta esta bien, por que funciona y me encuentra lo buscado, y sería así:
Consulta = "Select * From Direcciones Where " & Campo a buscar & " Like ' " & Texto a buscar & "* ';"
DataClientes.RecordSource = Consulta
A partir de esto ocurre que:
DataClientes.Recordset.RecordCount ahora tiene 2, o sea los 2 que coinciden con la búsqueda, de los 6 totales que tiene la tabla.
Y a partir de esta consulta sólo puedo moverme a uno de estos 2 registros, pero no al resto de los 6 que hay en la tabla Direcciones
O sea mi problema no es la consulta SQL, sino que despues de hacerla no puedo acceder a ningún registro.
19
« en: Lunes 5 de Mayo de 2008, 22:00 »
Hola a todos:
Por que despues de hacer esta consulta SQL en un ControlData:
Este es el código de la consulta:
sBuscar = "pepe"
cbClientes, es un ComboBox con nombres.
Consulta = "select * from Direcciones where " & sBuscar & " like '" & cbClientes.Text & "*';"
DataClientes.RecordSource = Consulta
DataClientes.Refresh
Y ya no puedo ir a los registros, ni anteriores ni posteriores, sólo al primero y al último, con las flechas del control.
Despues he intentado asignar de nuevo la Tabla así:
DataClientes.RecordSource ="Direcciones "
pero nada sigue igual.
Gracias de antemano.
Páginas: [1]
|
|
|
Mostrar Mensajes
