Sistema de canje

Este tema se encuentra cerrado.

» 25 Ene 2012 02:58

ACa casi abajo de todo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

               Case "PRM"
                Rdata = Right(Rdata, Len(Rdata) - 3)
               
                For i = 1 To Val(ReadField(1, Rdata, 44))
                    frmCanjes.ListaPremios.AddItem ReadField(i + 1, Rdata, 44)
                Next i
               
                frmCanjes.Show , frmMain
                Exit Sub
               
            Case "INF" 'Sistema de Canjeo - [Dylan.-] 2011...
                Rdata = Right(Rdata, Len(Rdata) - 3)
            With frmCanjes
                    .Requiere.Caption = ReadField(1, Rdata, 44)
                    .lAtaque.Caption = ReadField(3, Rdata, 44) & "/" & ReadField(2, Rdata, 44)
                    .lDef.Caption = ReadField(5, Rdata, 44) & "/" & ReadField(4, Rdata, 44)
                    .lAM.Caption = ReadField(7, Rdata, 44) & "/" & ReadField(6, Rdata, 44)
                    .lDM.Caption = ReadField(9, Rdata, 44) & "/" & ReadField(8, Rdata, 44)
                    .lDescripcion.Text = ReadField(10, Rdata, 44)
                    .lPuntos.Caption = ReadField(11, Rdata, 44)
           
                        If .Requiere.Caption = "0" Then
            .Requiere.Caption = "N/A"
            End If
                        If .lAtaque.Caption = "0/0" Then
            .lAtaque.Caption = "N/A"
            End If
                        If .lDef.Caption = "0/0" Then
            .lDef.Caption = "N/A"
            End If
                        If .lAM.Caption = "0/0" Then
            .lAM.Caption = "N/A"
            End If
                        If .lDM.Caption = "0/0" Then
            .lDM.Caption = "N/A"
            End If
 
            Dim Grhpremios As Integer
            Grhpremios = ReadField(12, Rdata, 44)
             Call DrawGrhtoHdc(Picture1.hWnd, Picture1.hDC, Grhpremios, SR, DR)
                .Picture1.Refresh
            End With
                Exit Sub

» 25 Ene 2012 04:28

frmCanjes.Picture1.Refresh
fijate asi

» 26 Ene 2012 02:33

Sigue sin funcionar

» 26 Ene 2012 03:32

Wath ever escribió:Sigue sin funcionar

Que te dice?

» 26 Ene 2012 04:15

Nada acá no tira error pero no se ve.

» 29 Ene 2012 21:16

pa es una pavada esto... jajaja Recien volvi de vacaciones, disculpen por no responder.
reemplaza por:

Call DrawGrhtoHdc(.Picture1.hWnd, .Picture1.hDC, Grhpremios, SR, DR)
Cambialo por eso y listop

OJO! TENE CUIDADO COMO ARMAS EL DAT, OSEA ARMALO BIEN X-D

» 30 Ene 2012 10:44

Puse lo que me dijistes Y me tira variable no definida en SR

» 30 Ene 2012 12:09

Bancame que me bajo un dx7 y te edito, espera..
Edit no me lo baje nada

Reemplaza por esto:
Call DrawGrhtoHdc(.Picture1.hWnd, .Picture1.hDC, Grhpremios, 0, 0)
Saludos

» 30 Ene 2012 22:14

Ahora en el primer 0 me dice el tipo de argumento de Byref no coincide.

» 30 Ene 2012 22:30

Wath ever escribió:Ahora en el primer 0 me dice el tipo de argumento de Byref no coincide.

Eliminalo

» 30 Ene 2012 23:27

Si borro el primer 0 me sigue con el mismo error y si borro los 2 me salta otro error

» 31 Ene 2012 11:55

dylan-depehua@hotmail.com, conectate cuando puedas y te ayudo teamviewer, lo que pasa es que me da paja bajarme un dx7

» 31 Ene 2012 12:46

Hola, aver si así te funciona:

1-Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Dim Grhpremios As Integer

Y arriva pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Dim SR As RECT, DR As RECT
 
SR.Left = 0
SR.Top = 0
SR.Right = 32
SR.Bottom = 32
 
DR.Left = 0
DR.Top = 0
DR.Right = 32
DR.Bottom = 32

2-Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call engine.GrhRenderToHdc(Grhpremios, .Picture1.hDC, 0, 0)

Y remplazala por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call DrawGrhtoHdc(.Picture1.hWnd, .Picture1.hDC, Grhpremios(ListaPremios.listIndex + 1), SR, DR)

Ahí tiene que funcionar.

Saludos!

» 31 Ene 2012 15:51

Creo que ahi estaría, pero esto (ListaPremios.listIndex + 1) no va me parece, lo probaste?

» 31 Ene 2012 21:10

Listo, muchas gracias por las mlestias.
SOLUCIONADO

Este tema se encuentra cerrado.

Sistema de canje

¿Quién está conectado?