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 - czar9

Páginas: [1] 2 3 4 5
1
Visual Basic 6 / Re:Excel + Vb6 +autofill
« en: Noviembre 28, 2011, 01:19:28 am »
Hola jeje yo no escrivi nada fue Bazooka, no tengo muy fresca la memoria de vba desde vb6 ahora pero prova poner 

Bueno para antecedente, ya no tengo el problema, gracias Leandro

la linea de codigo debiera ser asi excelApp.Selection.AutoFill Destination:=excelSheet.Range("B26:O26"), Type:=0

en el parámetro de destination debia ser explicito en el range es de mi objeto excelSheet.Range, de esta forma al hacer el set a nothing.. cerraba todos losobjetos y ya no hay problema, de lo contrario ocupa el range de la referencia excel.

gracias leandro, lo vi en tu codigo
 

2
Visual Basic 6 / Re:Crear un PDF desde VB6
« en: Noviembre 27, 2011, 04:06:34 am »
Hola a todos

yo usaba este componente http://www.linares.net/wxpdfcom/  y hasta me compre el manual de referencia que ofertan en el link (MP) ,

Saludos a todos

3
Visual Basic 6 / Re:Excel + Vb6 +autofill
« en: Noviembre 27, 2011, 03:55:41 am »
Hola debe ser que no descargas de memoria de forma correcta debería ser algo como esto


Hola Leandro, ya intente cerrar como me comentas, pero sigo teniendo el mismo error, pongo mi codigo sintetizando un poco, quedaría asi

Código: [Seleccionar]
'en modo desarrollo uso declaraciones de tipo excel, ya cuando compilo uso objects

'declaro las variables para abrir y manejar la hoja de excel
Dim excelApp As Excel.Application
Dim excelBook As Excel.Workbook
Dim excelSheet As Excel.Worksheet

'inicializo las variables
Set excelApp = CreateObject("Excel.Application")           
Set excelBook = excelApp.Workbooks.Add         
Set excelSheet = excelBook.Worksheets(1)

'aquí vienen un montón de lineas de código que no me dan problemas ex.
excelSheet.Range("B12:O26").NumberFormat = "#,##0.00;[Red]-#,##0.00"
excelSheet.Range("A10:O26").AutoFormat

'Esta es la linea problemática que si bien podría ser omitida y meter en cada celda la formula correspondiente...
excelSheet.Range("B26").Formula = "=SUM(B12:B25)"
excelSheet.Range("B26").Select
excelApp.Selection.AutoFill Destination:=Range("B26:O26"), Type:=xlFillDefault

'asi es como cierro mis instancias
Set excelSheet = Nothing                     
Set excelBook = Nothing
Set excelApp = Nothing


LA situación es la siguiente, si yo ejecuto la función que tiene por código el anterior, lo ejecuta sin ningún problema. si lo ejecuto por segunda vez.. me sale un lindo error 1004,el cual según microsoft es por hacer un desbordamiento en el Autofill..

si quito del codigo todas las lineas que usan el auto fill el código se ejecuta y cerrando la vinculación de mi aplicación con excel sin problemas, cosa que no sucede cuando uso autofill, ya que puedo ver con el taskmgr a exel ejecutando en segundo plano.

imagino que no estoy haciendo el uso adecuado de la función autofill, alguna idea?

Saludos y gracias Leandro por tomarte un tiempo para contestar

4
Visual Basic 6 / Excel + Vb6 +autofill
« en: Noviembre 26, 2011, 05:31:32 am »
Hola, estoy haciendo un proyecto  en el cual aplica poner una formula y copiarla sobre una  rango de 1 fila por 20 columnas, para esto uso la función autofill,la situacion es que al  usarla y al cerrar los objetos  no me cierra la liga con excel y mi aplicacion , derivando que al ejecutar la función  por  segunda ves , me tira un error 1004, ya he probado con diferentes métodos y nada ¿Alguna idea, de alguien que ya haya usado el Autofill?

Gracias y saludos a la comunidad  ;D

5
Visual Basic 6 / Re:Como? MsFlexgrid + Menu contextual
« en: Noviembre 26, 2011, 05:26:33 am »
Gracias Raul

6
Visual Basic 6 / Re:Como? MsFlexgrid + Menu contextual
« en: Noviembre 17, 2011, 01:24:01 am »
Hola, pásate por este mensaje Crear PopUpMenu por Api a ver si te sirve, es una manera muy facil de crear menus contextuales que puedes utilizar facilmente sin mas.

http://leandroascierto.com/foro/index.php?topic=264.msg1375#msg1375


Gracias =)

Juntando Mensajes

Crea un menu en el formulario, Con la propiedad Visible = False y dentro de este menu ponle los 3 itemes que queres ver EJ
...

Gracias Raul, con este método como obtengo cual fue el ítem que se selecciono del menú?

7
Visual Basic 6 / Re:Como? MsFlexgrid + Menu contextual
« en: Noviembre 16, 2011, 01:22:48 pm »
Cuando hago un click con la propiedad .row y .col me dice la celda, pero lo que necesito hacer es darle click derecho sobre una celda y permitir seleccionar de 3 diferentes tags cual pertenece, esto con la finalidad de ir agrupando.

Saludos y gracias Raul por la respuesta

8
Visual Basic 6 / Como? MsFlexgrid + Menu contextual
« en: Noviembre 16, 2011, 01:06:18 pm »
Quisiera saber si alguien tiene el dato de como poder hacer un menu contextual sobre una msflexgrid.

Saludos a todos y gracias por cualquier comentario.

9
Visual Basic 6 / [Ayuda] Como hacer controles autoajustables
« en: Septiembre 29, 2011, 01:37:13 pm »
Hola

Mi situacion es la siguiente, tengo un formulario y en el un control flexgrid la cual quiero que se ajuste al tamaño del formulario para esto habia escrito en el evento resize del formulario  el codigo apra incrementar/decrementar el width de la flexgrid esto funciona bien algunas veces ya que de ves en cuando me tira un error de que no puedo modificar el resize mientras se esta minimizado el formulario ¿Alguna idea de hacerlo eficente?

Muchas gracias a todos y se esperan piniones :D

10
Visual Basic 6 / Re:[Problem] What about the problem of sorting a string array
« en: Septiembre 18, 2011, 04:52:59 pm »
How can I use a string array can be sorted into the following

Hi, if you always have the string in this format  ( number  dot  string ) you can do in the way that raul338 said

i  code this a variant using  split function:
full code here  http://www.megaupload.com/?d=MMK0XBAE


i wrote this function that receives one string  then  splits, the dot is  used  like delimiter and returns left part of dot

Example
string format espected  number   dot  string , return number of string
string "11.abcdefg"   split    into  array  ("11" "abcdefg")   return  val("11")

Código: [Seleccionar]
Private Function values(cadena As String) As Double
Dim aux() As String
aux = Split(cadena, ".", , vbTextCompare)
values = Val(aux(0))
End Function

and then you only have to substitute the strcmp function into values function

Código: [Seleccionar]
Private Sub SortStrings(ByRef sArray() As String, ByVal nFirst As Integer, ByVal nLast As Integer)
    Dim nBoundary As Integer
    Dim i         As Integer
    If nLast <= nFirst Then Exit Sub

    SwapS sArray(nFirst), sArray((nFirst + nLast) / 2)
   
    nBoundary = nFirst

    For i = nFirst + 1 To nLast
        If values(sArray(nFirst)) > values(sArray(i)) Then
            nBoundary = nBoundary + 1
            SwapS sArray(nBoundary), sArray(i)
        End If
    Next

    SwapS sArray(nFirst), sArray(nBoundary)

    SortStrings sArray(), nFirst, nBoundary - 1
    SortStrings sArray(), nBoundary + 1, nLast
End Sub
Private Sub SwapS(ByRef Str1 As String, ByRef Str2 As String)
    Dim sTemp As String
    sTemp = Str1
    Str1 = Str2
    Str2 = sTemp
End Sub


I hope this was helpful to you
Regards

11
Visual Basic 6 / Re:[Problem] What about the problem of sorting a string array
« en: Septiembre 18, 2011, 02:01:27 am »
always have this fromat   xxxxx  .  yyyyyyyy

xxxxx = number    dot   yyyyyy=string
?

12
Visual Basic 6 / Re:Leer, y generar códigos QR en VB
« en: Septiembre 06, 2011, 03:45:49 pm »
Hola en estos dias voy a publicar un clase para leer y generar QR Code pero utilizando los servicios de Google, ya que no es nada facil crearlo de forma nativa, seguramente hay algunas dll para esto, pero no encontre ninguna.

@czar9, muy bueno el link que pasate de como esta extructurado el qr code, pero bien como dije antes no es nada facil crearlo.

La dll que trabaja en .net codifica los archivos y también los decodifica de varios formatos de imagen quizas progrmando como un exe con recpecion de argumentos, sirva también no?


13
Visual Basic 6 / Re:Leer, y generar códigos QR en VB
« en: Septiembre 06, 2011, 02:06:11 am »
Necesitas la libreria o saber como funciona el QR code

libreria para .net no he encontrado una para vb6 , aunque se me ocurre que una manera de es hacer un exe de. net y asi mandar a llamarlo desde vb6 con el shell

http://www.codeproject.com/KB/cs/qrcode.aspx

y aqui como funciona

https://docs.google.com/viewer?url=http%3A%2F%2Fraidenii.net%2Ffiles%2Fdatasheets%2Fmisc%2Fqr_code.pdf&embedded=false


Saludos

14
Visual Basic 6 / Re:Boton de la WebCam
« en: Septiembre 06, 2011, 01:59:51 am »
Hola Leandro

Un amigo me explico que lo que se hace es revisar los mensages en los usb y asi detectar cuando el hardware de la camara envia al  usb  que se ha presionado boton.

en este link lo explican mejor, espero te sea de ayuda.

http://forums.quickcamteam.net/showthread.php?tid=833

Saludos

15
Visual Basic 6 / Ayuda, peticones GET o POST en vb6
« en: Julio 05, 2011, 10:47:20 pm »
hola he usado el control que trae la vb6 con el metodo navigate para las peticiones GET y un XMLHTTP para peticiones POST  pero me salen errores en Win7 ( ieframe/-1  y error de que no encuentra el recurso) alguien conoce otro metodo?

Gracias y saludos

Páginas: [1] 2 3 4 5