|
|
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 - Brroz
Páginas: 1 ... 6 7 [8] 9 10 ... 43
176
« en: Lunes 27 de Diciembre de 2004, 18:15 »
Hola. Aparte de consideraciones varias sobre tipos de datos, usa como carácter comodín para LIKE el carácter %. Coincidencia del comienzo de valor del campo con 'MiValor': SELECT Campo FROM Tabla WHERE OtroCampoTexto LIKE('MiValor%') Coincidencia del final de valor del campo con 'MiValor': SELECT Campo FROM Tabla WHERE OtroCampoTexto LIKE('%Valor') El valor del campo que contenga 'MiValor': SELECT Campo FROM Tabla WHERE OtroCampoTexto LIKE('%Valor%')
Abur.
177
« en: Lunes 27 de Diciembre de 2004, 18:10 »
Hola riciar.
La forma que se me ocurre para resolver esto puede hacerse lenta y consumidora de recursos, pero...
En principio dices que tienes cierta imagen que debes usar como patrón para localizarla posteriormente. Ok, yo almacenaría esa imagen en una matriz de 'Ancho , Alto dimensiones' (o si lo prefieres de una dimensión Ancho x Alto) de tipo Long. A continuación mediante un bucle recorrería la imagen patrón 'escaneando' el valor de cada punto y asignando su color al respectivo punto de la matriz. Para averiguar el color de cada punto usa la función Point.
A continuación recorre la imagen que quieres comparar buscando la coincidencia con los correspondientes elementos de la matriz. Una vez que encuentres coincidencia con el primer elemento, continua comprobando puntos hasta el ancho del patrón. Si en algun momento deja de haber coincidencia, continúa con el escaneo, si no, al llegar al ancho del patrón, comprueba una nueva línea comenzando en la fila que coincidió de primera.
No sé si no me habré embrollado un poco explicando esto último, pero seguro que tomas la idea rápidamente. Ánimo que implementar esto no debe ser complicado (otra cosa es que el resultado pueda ser exasperantemente lento).
Te pondría un código de ejemplo, pero es que ahora en breve me voy a casa. Si tal y tienes dificultades en otro momento hablamos.
Chau.
178
« en: Lunes 27 de Diciembre de 2004, 18:00 »
Hola.
Comentarios hechos aparte, en diseño, el editor de vb limita el número de divisiones de línea que puedes tener a no sé cuanto. Sencillamente no crees tantas divisiones de línea... haz cada línea más larga, aunque sea incomodo y tengas que 'h-escrolear' de seguido.
Chau.
179
« en: Lunes 27 de Diciembre de 2004, 17:56 »
Hola.
La solución de RadicalEd funciona, con 1 ó con 1.000.000 ó más de imágenes.
Pregunta: ¿Tiene el PictureBox la propiedad AutoRedraw=True? Mira a ver...
Chau.
180
« en: Martes 21 de Diciembre de 2004, 15:25 »
Hola Radical.
Me imagino que estarás intentando hacer algo parecido a cuando aparece una ventana con un cluf para aceptarlo o cuando instalas o la primera vez que ejecutas un programa.
Si lo que pretendes es esto, yo no me comería la cabeza lo más mínimo: puedes hacer algo así como que otro programa sea el que muestra el texto. Una vez mostrado, el ejecutable se finaliza y el siguiente que entra a cocer que proceda a eliminarlo del disco directamente.
A ver si te vale la idea.
Chau.
181
« en: Martes 21 de Diciembre de 2004, 15:19 »
Bueno Tiquinho, no ibas del todo desencaminado:
Todos los archivos son binarios por muchos números o letras que contengan (en realidad sólo números, claro, pero bueno todos sabemos para que están los códigos de caracteres). Al fin y al cabo la información contenida en un archivo se reduce a cierto número de bytes que segun sean interpretados representarán una letra o un número, o parte de un número o un pixel o lo que quiera que quién generó esa información quiso que fuera.
Otra cosa es la forma en la que accedemos al contenido de ese archivo (modos de lectura y/o escritura) y esa forma varía, pero no por ello el archivo va a ser binario o de texto, el archivo siempre serán x bytes de información almacenados en algún lugar.
Chao.
182
« en: Martes 21 de Diciembre de 2004, 15:09 »
Hola. DiabloRojo tiene toda la razón, no me fijara en el detalle: cuando quieres llamar al método Quit, la variable objExcel ya no instancia ningún objeto. Si el código no casca es porque tiene un On Error resume next al principio. Sobre el tema que dice jeremy de que al hacer un 'Quit' le dice si quiere guardar los cambios y tal, la cosa tiene solución fácilmente: objWorkbook.SaveCopyAs "NombreDeLibro.Xls" objWorkbook.Saved = True
La verdad es que no comprendo muy bien que cuernos te pasa. Chao.
183
« en: Martes 21 de Diciembre de 2004, 14:59 »
Hola juravi.
Las comunicaciones no son lo mio... pero aún así, entre otras me surgen un par dudas:
¿Mediante qué se comunican los equipos de tu casa?
¿Cómo es eso de que si instalas la red, se va internet?
Creo que en una situación así lo más sencillo sería conectar los equipos de casa mediante sus tarjetas de red a un switch, hub o similar luego configurar en cada equipo sus correspondientes adaptadores, protocolos, etc, etc. Luego configuras uno como proxy y sigues configurando por aquí y por allá y listo.
De todas formas ya te digo que casi mejor que plantees la cuestión en el foro de dudas informáticas o algo de eso. Porque una vez que resuelvas estos temas, copiar un archivo con vb o con lo que sea es una banalidad...
Suerte, abur.
184
« en: Martes 21 de Diciembre de 2004, 14:47 »
Hola riciar.
¿A qué te refieres cuando dices 'reconocer'?¿Tendrías que reconocer un objeto (supongo que te refieres a un control contenido en él) o la imagen?
Intenta concretar más. Chao.
185
« en: Martes 21 de Diciembre de 2004, 14:44 »
Hola Radical.
Si el control lo has añadido en tiempo de diseño, que yo sepa no lo puedes eliminar. Otra cosa es si en tiempo de diseño has creado una matriz de un control y a partir de ahí añades otros controles como elementos de la matriz. Si haces esto podrás eliminar los elementos que previamente has añadido mediante Load objetoControl. La forma de eliminarlos sería evidentemente mediante Unload objetoControl.
Si has añadido el control en tiempo de ejecución mediante el método Add de la colección Controls, podrás usar el método Remove de la colección para eleminarlo.
Lo que sí te digo es que el ejecutable seguirá ocupando lo mismo al eliminar el control que antes de hacerlo. Eso sí su tamaño en memoria será menor.
Por otro lado, a lo mejor en tu caso (que no lo sé) lo más sensato podría ser utilizar un archivo para almacenar ese texto del que hablas y recuperarlo luego desde la aplicación. De esta forma no pesaría en el ejecutable y podrías cambiar el texto después de compilado el programa.
Chao.
186
« en: Sábado 18 de Diciembre de 2004, 08:28 »
Hola Crispi. Lo que te ocurre es que has guardado el contenido de un buffer en un solo llenado del mismo. Debes ir llenando ese buffer en sucesivas llamadas a GetChunck en el evento StateChanged del control. Fíjate en el ejemplo que pone en la ayuda del control. En general, usará el evento StateChanged para determinar el momento de recuperar los datos con el método GetChunk. Para esto, utilice una instrucción Select Case y compruebe si el estado es icResponseReceived (8) o icResponseCompleted (12).
Observe, sin embargo, que el estado icResponseReceived puede ocurrir cuando el control ha terminado una operación que no transmitió datos al búfer. Por ejemplo, cuando se conecta con un sitio FTP, el control realizará con el sitio un procedimiento de protocolo que no provoca ninguna transferencia de datos y, sin embargo, se produce el estado icResponseReceived.
Por otra parte, el estado icResponseCompleted se produce cuando una operación se ha completado por entero. Por ejemplo, si utiliza el método Execute con la operación GET para obtener un archivo, el evento icResponseCompleted sólo se producirá una vez, después de recuperar todo el archivo.
En la práctica, el uso del estado icResponseReceived permite analizar los datos hasta haber recuperado únicamente la información necesaria (por ejemplo, al obtener un archivo HTML, puede recuperar sólo los encabezados). Cuando ya tenga la información necesaria, puede cancelar el resto de la recuperación. Si, por el contrario, precisa recuperar todo el archivo, el estado icResponseCompleted le indicará que la transferencia ha terminado y que puede continuar.
Private Sub Inet1_StateChanged(ByVal State As Integer)
' Recupera la respuesta del servidor con el método
' GetChunk cuando State = 12. En este ejemplo se
' supone que los datos son texto.
Select Case State
' ... No se muestran los demás casos.
Case icResponseReceived ' 12
Dim vtData As Variant ' Variable de datos.
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
' Obtiene el primer bloque.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
DoEvents
' Obtiene el bloque siguiente.
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
End Select
End Sub
Suerte.
187
« en: Sábado 18 de Diciembre de 2004, 08:23 »
Kaixo Sagutxo. Pos no sé qué puede ocurrir... pero puedes probar supervisando el evento del control StateChanged e ir depurando lo que ocurre a través del parámetro estado. Los valores de estado son:
Constante Valor Descripción
icNone 0 No hay estado del que informar.
icHostResolvingHost 1 El control está buscando la dirección IP del host especificado.
icHostResolved 2 El control encontró la dirección IP del host especificado.
icConnecting 3 El control está conectando con el equipo host.
icConnected 4 El control conectó correctamente con el equipo host.
icRequesting 5 El control está enviando una solicitud al equipo host.
icRequestSent 6 El control envió correctamente la solicitud.
icReceivingResponse 7 El control está recibiendo una respuesta del equipo host.
icResponseReceived 8 El control recibió correctamente una respuesta del equipo host.
icDisconnecting 9 El control se está desconectando del equipo host.
icDisconnected 10 El control se desconectó correctamente del equipo host.
icError 11 Se produjo un error en la comunicación con el equipo host.
icResponseCompleted 12 La solicitud se completó y se recibieron todos los datos.
Suerte.
188
« en: Viernes 17 de Diciembre de 2004, 09:39 »
Aparte de ser muy conveniente (necesario, diría yo) establecer a Nothing todas las variables de objetos, tu problema está en esta línea: objExcel.Application.Quit
que debes sustituir por esto: Date cuenta que objExcel es ya una instancia de Excel.Application, que es lo que quieres cerrar. Abur.
189
« en: Viernes 17 de Diciembre de 2004, 09:34 »
Hola jegonzalezrubio.
Abre temas nuevos para cuestiones nuevas porque sino la peña no se entera...
190
« en: Viernes 17 de Diciembre de 2004, 09:33 »
Hola OSCARODLT Extrae el archivo de imagen del correspondiende de la bd mediante GetChunk, abre un archivo en disco abriéndolo como binario y escribe los bytes que vas leyendo con Put. Para insertar la imagen en word usa código de este estilo: Selection.InlineShapes.AddPicture FileName:= _ "C:\Ruta\Imagen.bmp", LinkToFile:=False, _ SaveWithDocument:=True
Chao.
191
« en: Viernes 17 de Diciembre de 2004, 09:26 »
Hola fap1603. Probablemente el entero se almacene así: Entero = byte1 * 256 ^ 0 + byte2 * 256 ^ 1 + byte3 * 256 ^ 2 + byte4 * 256 ^ 3
Pero puede estar también de esta forma: Entero = byte4 * 256 ^ 0 + byte3 * 256 ^ 1 + byte2 * 256 ^ 2 + byte1 * 256 ^ 3
Chao.
192
« en: Jueves 16 de Diciembre de 2004, 15:23 »
Hola Drek.
Si tienes instalado con VB el visor de texto api, haz lo siguiente.
Ve al directorio donde tengas instalado VB, por ejemplo C:\Archivos de programa\Microsoft Visual Studio\
A continuación en la ruta C:\Archivos de programa\Microsoft Visual Studio\Common\Tools\Winapi debe encontrarse un archivo llamado WIN32API.Txt. Ábrelo con el wordpad o similar y busca las apariciones de winspool.drv irás viendo funciones del api que seguro te interesan (WaitForPrinterChange, ResetPrinter, GetJob, SetJob).
Lo que te puede llevar más tiempo es ver para qué sirve cada una y como se usa, pero para eso está el MSDN...
Suerte.
193
« en: Jueves 16 de Diciembre de 2004, 15:14 »
Por si se te escapó... prueba a copiar la dll al directorio SYSTEM correspondiente y declárala en un módulo tal y como piensas que debe hacerse (puedes además añadirle un alias).
Chao.
194
« en: Jueves 16 de Diciembre de 2004, 15:04 »
Desde luego este no es un tema que alguien te vaya a resolver posteando en un foro... pero tal vez puedas tener una solución fácil a través de algún componente activeX, que desconozco si lo hay.
Si no la solución que yo me imaginaría podría pasar por capturar la imagen de la ventana analizando su contenido para posteriormente localizar un texto en determinada posición e interpretarlo como si de un ocr se tratase. Desde luego, nada sencillo y me temo que poco operativo para ser desarrollado con VB.
Chao.
195
« en: Jueves 16 de Diciembre de 2004, 14:57 »
Pues no sé otra función... a no ser una creada por ti mismo
De todas formas eso de poner los rangos es una chorrada:
[Code]
Private Function DiasDelMes (ByVal Mes As Integer, Optional Byval Anho As integer) As Integer
If Mes < 1 or Mes > 12 then Exit Function
If Anho = 0 Then Anho = Year(Now)
Dim s1 As string , s2 as string
s1 = "1/" & Mes & "/" & Anho
If Mes < 12 Then
Mes = Mes + 1
Else
Mes = 1
Anho = Anho + 1
end if
s2 = "1/" & Mes & "/" & Anho
DiasDelMes = DateDiff("d", Format(s1 , "dd/mm/yyyy"), Format(s2, "dd/mm/yyyy") )
End Sub
Y como esta mil variantes podrías hacer... desde crear una matriz con los días de cada mes y recuperar el elemento correspondiente a la posición, utilizar un select case...
De cualquier forma que uses vas a encontrarte con la cuestión de febrero y los bisiestos, a sí que si no quieres perder tiempo con operaciones, deja que datediff haga el trabajo por ti.
Chao.
196
« en: Jueves 16 de Diciembre de 2004, 14:42 »
Hola cmc1476.
Así sin más puedes mostrar un icono pequeño en la primera columna del listview. También puedes mostrar una lista de iconos grandes estableciendo la propiedad View a 0 (lvwIcon).
Para mostrar una imagen en cada columna, supongo que tendrías que subclasificar el control... cosa muy enfarragosa con vb. Tal vez te compense usar algún otro componente que haya pululando por ahí (no sé si en este mismo foro alguien ofreció un link para obtener un control asín, busca a ver).
Como alternativa (aunque siempre dé rabia no conseguir las cosas como se pretenden) podrías mostrar la ruta en la columna y al hacer click sobre ella que se muestre la imagen en otro control image o picturebox.
Suerte.
197
« en: Jueves 16 de Diciembre de 2004, 14:35 »
¿Pero no decías que los pcs estaban en una LAN?
Si no puedes conocer la ip de los equipos: mal está la cosa... De todas formas, este tema aunque interesante, poco tiene que ver con VB.
Suerte.
198
« en: Miércoles 15 de Diciembre de 2004, 09:59 »
Hola juravi. La función DateDiff va que ni pintada para estas cosas. Fíjate, para conocer el número de días del mes de febrero de este año: MsgBox DateDiff("d", Format("1/2/2004", "dd/mm/yyyy"), Format("1/3/2004", "dd/mm/yyyy"))
Para saber el número de días de este año: MsgBox DateDiff("d", Format("1/1/2004", "dd/mm/yyyy"), Format("1/1/2005", "dd/mm/yyyy"))
Chao.
199
« en: Miércoles 15 de Diciembre de 2004, 09:50 »
Hola juravi. Lo primero es que el archivo en el pc origen debe estar en un recurso compartido accesible por el pc destino. Luego puedes seguir varios caminos: - Tener una unidad asignada al recurso de red. La ruta del archivo seria similar a si estuviera en local, por ejemplo FileCopy "U:\Ruta\Archivo.xxx", "C:\Ruta\Archivo.xxx"
Puedes realizar la conexión con la unidad manualmente, manualmente indicando que se restaure la conexión al iniciar (sólo lo tendrías que hacer una vez), o mediante el comando Net Use (para netbios). - Referirse al equipo que tiene el archivo por su ip o por su posible nombre de dominio: por su ip: \\999.999.999.999\Ruta\Archivo.xxx o si tienes una entrada para la ip en el archivo hosts (o lmHosts, asegún), asociándola a un nombre para el equipo: \\NombreEquipo\Ruta\Archivo.xxx Abur.
200
« en: Miércoles 15 de Diciembre de 2004, 09:43 »
Básicamente puedes construir la cláusula WHERE para una sentencia SQL según el campo seleccionado y el valor del textbox. Así de sencillo.
Chao.
Páginas: 1 ... 6 7 [8] 9 10 ... 43
|
|
|
Mostrar Mensajes
