Inventario renderiza los objetos super chicos

Estado
Cerrado para nuevas respuestas.

CUICUI

Oráculo Lvl 4
Como dice el título, estoy tonto buscando por qué se me renderiza así, tengo lo siguiente:



Módulo de Ventas:
Código:
Option Explicit

Public user_inv As New clsGrapchicalInventory
Public venta_inv As New clsGrapchicalInventory

Public Sub Iniciar_Venta()

   Call user_inv.Initialize(DirectD3D8, frmIniciarVentas.picUserInv, MAX_INVENTORY_SLOTS)
   Call venta_inv.Initialize(DirectD3D8, frmIniciarVentas.picVentaInv, MAX_INVENTORY_SLOTS)


   ' Código innecesario  


End Sub

Y en el ShowNextFrame puse:

Código:
    If frmIniciarVentas.Visible Then Call user_inv.DrawInv: Call venta_inv.DrawInv
Es decir, tengo tal cual los demás y me dibuja en una proporción demasiado chica como se ve en la imagen... Alguna idea de qué puede ser?
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
ScaleMode = 3 - Pixel?
 

CUICUI

Oráculo Lvl 4
Lo tengo tal cual, es más, copié las propiedades del Inventario del frmMain por si me faltaba algo y sigue pasando lo mismo.


Puse la booleana bShowText en true para ver el nombre del objeto y pasé el mouse sobre lo que sería el 2do slot y me lo toma bien.
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
Pasama la cls del inventario.
 

CUICUI

Oráculo Lvl 4
This?

Código:
Public Sub Initialize(ByRef DirectD3D As D3DX8, ByRef InvPic As PictureBox, ByVal MaxObjs As Byte, _
                            Optional ByVal FontSize As Integer = 7, Optional ByVal TileWidth As Integer = 32, _
                            Optional ByVal TileHeight As Integer = 32, Optional ByVal startX As Integer = 0, _
                            Optional ByVal startY As Integer = 0, Optional ByVal bImgContainer As Boolean = True, _
                            Optional ByVal bShowText As Boolean = True)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 03/12/09
'Sets the reference to the picture box on which to render the inventory
'03/12/09: I added the optionals args FontSize, TileWidth, TileHeight, startX and startY. (Budi)
'***************************************************
    Set InventoryWindow = InvPic
   
    'Make sure auto-redraw is set to true
    InventoryWindow.AutoRedraw = True
   
    'Set apropiate scale (pixel)
    InventoryWindow.ScaleMode = 3
   
    ReDim Inventory(1 To MaxObjs) As Inventory
   
    'Make sure DirectD3D was correctly initialized
    If DirectD3D Is Nothing Then Exit Sub

    ownTilePixelHeight = TileHeight
    ownTilePixelWidth = TileWidth
    startdX = startX
    startdY = startY
   
    ImgContainer = bImgContainer
    ShowValue = bShowText
   
    If ImgContainer Then _
        InvSelectedItem = ClickItem(1, 1)   'If there is anything there we select the top left item

End Sub
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
La cls entera, creo que hay un par de cosas hardcodeadas.
 

CUICUI

Oráculo Lvl 4
Código:
'*****************************************************
'Graphical inventory for ORE 0.4.1
'Designed and implemented by Juan Martín Sotuyo Dodero (Maraxus)
'[email protected]
'*****************************************************

'**************************************************************************
'This program is free software; you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation; either version 2 of the License, or
'(at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'Affero General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'**************************************************************************

Option Explicit

Private InventoryOffset As Long             'Number of lines we scrolled down from topmost
Private InvSelectedItem As Long             'Currently selected item

Private ownTilePixelWidth As Integer
Private ownTilePixelHeight As Integer
Private startdX As Integer
Private startdY As Integer

Private ShowValue As Boolean
Private ValueFormated As Boolean

Private ImgContainer As Boolean
Private InventoryTickCount As Long
Private slotDragged As Integer

Private dragAndDropOn As Boolean


Private Inventory() As Inventory    'User's inventory

Private WithEvents InventoryWindow As PictureBox    'Placeholder where to render the inventory

Public Event dragDone(ByVal originalSlot As Integer, ByVal newSlot As Integer)

#If ConMenuesConextuales = 1 Then
    Dim ItemMenu As Menu    'Menu to be shown as pop up
#End If

Private Sub Class_Initialize()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub

Private Sub Class_Terminate()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub

Public Sub ScrollInventory(ByVal Up As Boolean)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 14/01/2010
'Scrolls the graphical inventory up / down
'14/01/2010: ZaMa - Now redraws inventory only if needed
'***************************************************

    'Only move if there is something to show up /down
    If CanScroll(Up) Then
        InventoryOffset = InventoryOffset + IIf(Up, 1, -1)
       
        'Redraw the inventory if needed
        'DrawInventory
    End If

End Sub

Public Function CanScroll(ByVal Up As Boolean)
'***************************************************
'Author: ZaMa
'Last Modify Date: 14/01/2010
'Determines wether inventory can be scrolled up / down
'***************************************************
    If Up Then
        CanScroll = (InventoryOffset + (InventoryWindow.ScaleHeight \ ownTilePixelHeight)) * _
                    (InventoryWindow.ScaleWidth \ ownTilePixelWidth) < UBound(Inventory)
    Else
        CanScroll = InventoryOffset > 0
    End If
   
End Function

Public Sub SelectGold()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Sets the gold as the currently selected item
'***************************************************
    Dim prevSelectedItem As Long
   
    'Store preivously selected item
    prevSelectedItem = InvSelectedItem
   
    'Select the gold
    InvSelectedItem = FLAGORO
   
    'Redraw old item to deselect it
    If prevSelectedItem <> FLAGORO Then
        'Call DrawInventorySlot(prevSelectedItem)
    End If
End Sub

Public Sub DeselectItem()
'***************************************************
'Author: ZaMa
'Last Modify Date: 30/11/2009
'Deselect the currently selected item
'***************************************************
    If InvSelectedItem = 0 Then Exit Sub
   
    Dim ClearSlot As Byte
   
    ClearSlot = InvSelectedItem
   
    'Select nothing
    InvSelectedItem = 0
   
    'Redraw old item to deselect it
    'Call DrawInventorySlot(ClearSlot)

End Sub

Public Sub ChangeSlotItemAmount(ByVal Slot As Byte, ByVal amount As Long)
'***************************************************
'Author: ZaMa
'Created Date: 30/11/2009
'Last Modify Date: 09/12/2009 (Budi)
'Change the amount of the required item, and update the slot.
'***************************************************
   
    Inventory(Slot).amount = amount
   
    'Update Amount
    'Call DrawInventorySlot(slot)

End Sub

Public Property Get SelectedItem() As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item index
'***************************************************
    SelectedItem = InvSelectedItem
End Property

Public Property Get MaxHit(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the max hit of the selected item
'***************************************************
    MaxHit = Inventory(Slot).MaxHit
End Property

Public Property Get MinHit(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the min hit of the selected item
'***************************************************
    MinHit = Inventory(Slot).MinHit
End Property

Public Property Get MaxDef(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the defense of the selected item
'***************************************************
    MaxDef = Inventory(Slot).MaxDef
End Property

Public Property Get MinDef(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Budi
'Last Modify Date: 02/1209
'Retrieves the defense of the selected item
'***************************************************
    MinDef = Inventory(Slot).MinDef
End Property

Public Property Get GrhIndex(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the grh index of the selected item
'***************************************************
    GrhIndex = Inventory(Slot).GrhIndex
End Property

Public Property Get Valor(ByVal Slot As Byte) As Single
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the value of the selected item
'***************************************************
    Valor = Inventory(Slot).Valor
End Property

Public Property Get amount(ByVal Slot As Byte) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's amount
'***************************************************
    If Slot = FLAGORO Then
        amount = UserGLD
    ElseIf Slot >= LBound(Inventory) And Slot <= UBound(Inventory) Then
        amount = Inventory(Slot).amount
    End If
End Property

Public Property Get OBJIndex(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object index
'***************************************************
    OBJIndex = Inventory(Slot).OBJIndex
End Property

Public Property Get OBJType(ByVal Slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object type
'***************************************************
    OBJType = Inventory(Slot).OBJType
End Property

Public Property Get ItemName(ByVal Slot As Byte) As String
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's name
'***************************************************
    ItemName = Inventory(Slot).name
End Property

Public Property Get Equipped(ByVal Slot As Byte) As Boolean
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves True if the item at the given pos is eqiupped
'***************************************************
    Equipped = Inventory(Slot).Equipped
End Property

Public Property Get MaxObjs() As Byte
'***************************************************
'Author: Torres Patricio (Pato)
'Last Modify Date: 09/16/09
'Retrieves the capacity of the Inventory
'***************************************************
    MaxObjs = UBound(Inventory)
End Property

Public Sub SetMaxObjs(ByVal MaxObjs As Byte)
'***************************************************
'Author: Torres Patricio (Pato)
'Last Modify Date: 09/16/09
'Set the capacity of the Inventary
'***************************************************
    If UBound(Inventory) = MaxObjs Then Exit Sub
   
    ReDim Preserve Inventory(1 To MaxObjs) As Inventory
End Sub

Public Sub ToggleShowValue(ByVal bShow As Boolean)
'***************************************************
'Author: ZaMa
'Last Modify Date: 11/12
'Indicates if the amount of the items in the inventory is shown
'***************************************************
    ShowValue = bShow
   
    Dim Slot As Integer
    ' Update Inventory
    'For slot = 1 To Me.MaxObjs
        'DrawInventorySlot (slot)
    'Next slot
End Sub

Public Sub ClearAllSlots()
'***************************************************
'Author: ZaMa
'Last Modify Date: 15/03/2011
'Clear All Slots.
'***************************************************

    Dim Slot As Long
    For Slot = 1 To Me.MaxObjs
        Call SetItem(Slot, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, vbNullString)
    Next Slot

End Sub

Public Sub SetItem(ByVal Slot As Byte, ByVal eOBJIndex As Integer, ByVal eAmount As Long, ByVal eEquipped As Byte, _
                        ByVal eGrhIndex As Integer, ByVal eObjType As Integer, ByVal eMaxHit As Integer, ByVal eMinHit As Integer, _
                        ByVal MaxDef As Integer, ByVal MinDef As Integer, ByVal eValor As Single, ByVal eName As String)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 12/04/06
'Sets all data for a given inventory slot
'***************************************************
    If Slot < 1 Or Slot > UBound(Inventory) Then Exit Sub
   
    With Inventory(Slot)
        .amount = eAmount
        .MaxDef = MaxDef
        .MinDef = MinDef
        .Equipped = eEquipped
        .GrhIndex = eGrhIndex
        .MaxHit = eMaxHit
        .MinHit = eMinHit
        .name = eName
        .OBJIndex = eOBJIndex
        .OBJType = eObjType
        .Valor = eValor
    End With
   
    'If InventoryWindow.Visible = False Then InventoryWindow.Visible = True
   
    'Render inventory slot (we don't need to render the whole inventory)
    'Call DrawInventorySlot(slot)
End Sub

Private Function ClickItem(ByVal X As Long, ByVal Y As Long) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Selects the item clicked if it's valid and return's it's index
'***************************************************
    Dim TempItem As Long
    Dim temp_x As Long
    Dim temp_y As Long
   
    temp_x = X \ ownTilePixelWidth
    temp_y = Y \ ownTilePixelHeight
   
    TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
   
    'Make sure it's within limits
    If TempItem <= UBound(Inventory) Then
        'Make sure slot isn't empty
        If Inventory(TempItem).GrhIndex Then
            ClickItem = TempItem
        Else
            ClickItem = 0
        End If
    End If
End Function

Private Sub DrawInventory()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Renders the inventory to the given PictureBox
'***************************************************
    Dim LoopC As Long

    Dim destRect As RECT
    Dim Inv_Color(0 To 3) As Long
    Dim Sel_Color(0 To 3) As Long
   
    With destRect
        .bottom = InventoryWindow.Height
        .Right = InventoryWindow.Width
    End With

   
    'Clear the inventory window
    Engine_BeginScene
   
        For LoopC = InventoryOffset * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1 To UBound(Inventory)
           
            startdX = ((LoopC - 1) Mod (frmMain.picInv.Width / 32)) * 32
            startdY = ((LoopC - 1) \ (frmMain.picInv.Width / 32)) * 32
           
           
            Call Engine_Long_To_RGB_List(Inv_Color(), -1)
           
            Call Engine_Long_To_RGB_List(Sel_Color(), D3DColorARGB(100, 255, 128, 0))
           
            'Call DDrawTransGrhIndextoSurface(24664, startdX, startdY, 0, Inv_Color(), 0, False)
           
            If Inventory(LoopC).GrhIndex Then
               
                Call DDrawTransGrhIndextoSurface(Inventory(LoopC).GrhIndex, startdX, startdY, 0, Inv_Color())
               
                If LoopC = SelectedItem Then
                    Call DDrawTransGrhIndextoSurface(2, startdX, startdY, 0, Sel_Color())
                End If
           
                'If equipped we render "E"
                If Inventory(LoopC).Equipped Then
                    'Fonts_Render_String "E", startdX + 20, startdY + 20, -1, 2
                    DrawText startdX + 20, startdY + 20, "+", -1
                End If
               
                'Render the item grh and the amount
                'Fonts_Render_String Inventory(LoopC).Amount, startdX, startdY, -1, 2
                DrawText startdX, startdY, Inventory(LoopC).amount, -1
            End If
        Next LoopC
       
    Engine_EndScene destRect, InventoryWindow.hWnd
End Sub

Private Sub InventoryWindow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse move event of the inventory picture box
'Displays a ToolTip of the item under the mouse
'***************************************************
    Dim temp_x As Integer
    Dim temp_y As Integer
    Dim TempItem As Integer
   
    'Exit if it got outside the control's areanv
    If X < 0 Or Y < 0 Or X > InventoryWindow.Width Or Y > InventoryWindow.Height Then _
        Exit Sub
   
        temp_x = X \ ownTilePixelWidth
        temp_y = Y \ ownTilePixelHeight
       
        TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
   
        If TempItem <= UBound(Inventory) Then
            InventoryWindow.ToolTipText = Inventory(TempItem).name
        End If
End Sub

Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim temp_x As Integer
    Dim temp_y As Integer
    Dim TempItem As Integer
   
    If dragAndDropOn Then
        'Exit if it got outside the control's area
        If X < 0 Or Y < 0 Or X > InventoryWindow.Width Or Y > InventoryWindow.Height Then Exit Sub
       
        If Button = vbRightButton Then
            temp_x = X \ ownTilePixelWidth
            temp_y = Y \ ownTilePixelHeight
       
            TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
           
            slotDragged = TempItem
        End If
    End If
End Sub


Public Sub DrawInv(Optional ByVal r As Boolean = False)
    If GetTickCount - InventoryTickCount > 100 Then
        Call DrawInventory
        InventoryTickCount = GetTickCount
    End If
End Sub
Public Sub Initialize(ByRef DirectD3D As D3DX8, ByRef InvPic As PictureBox, ByVal MaxObjs As Byte, _
                            Optional ByVal FontSize As Integer = 7, Optional ByVal TileWidth As Integer = 32, _
                            Optional ByVal TileHeight As Integer = 32, Optional ByVal startX As Integer = 0, _
                            Optional ByVal startY As Integer = 0, Optional ByVal bImgContainer As Boolean = True, _
                            Optional ByVal bShowText As Boolean = True)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 03/12/09
'Sets the reference to the picture box on which to render the inventory
'03/12/09: I added the optionals args FontSize, TileWidth, TileHeight, startX and startY. (Budi)
'***************************************************
    Set InventoryWindow = InvPic
   
    'Make sure auto-redraw is set to true
    InventoryWindow.AutoRedraw = True
   
    'Set apropiate scale (pixel)
    InventoryWindow.ScaleMode = 3
   
    ReDim Inventory(1 To MaxObjs) As Inventory
   
    'Make sure DirectD3D was correctly initialized
    If DirectD3D Is Nothing Then Exit Sub

    ownTilePixelHeight = TileHeight
    ownTilePixelWidth = TileWidth
    startdX = startX
    startdY = startY
   
    ImgContainer = bImgContainer
    ShowValue = bShowText
   
    If ImgContainer Then _
        InvSelectedItem = ClickItem(1, 1)   'If there is anything there we select the top left item

End Sub

Private Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse up event of the inventory picture box
'Check outs which item was clicked
'***************************************************
    'Store previously selected item
    Dim prevSelItem As Long
    Dim TempItem As Long
    Dim temp_x As Long
    Dim temp_y As Long
   
    'Exit if it got outside the control's area
    If X < 0 Or Y < 0 Or X > InventoryWindow.Width Or Y > InventoryWindow.Height Then _
        Exit Sub
   
    prevSelItem = InvSelectedItem
   
    If Button = vbRightButton Then
        If dragAndDropOn Then
            temp_x = X \ ownTilePixelWidth
            temp_y = Y \ ownTilePixelHeight
       
            InvSelectedItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
           
            Call DrawInventory
           
            If InvSelectedItem <> slotDragged Then
                'RaiseEvent dragDone(slotDragged, InvSelectedItem)
            End If
        End If
    Else
        'Get the currently clickced item
        InvSelectedItem = ClickItem(CInt(X), CInt(Y))
   
        'Update needed inventory slots
        If prevSelItem <> InvSelectedItem Then
            'If prevSelItem <> 0 And prevSelItem <> FLAGORO Then Call DrawInventorySlot(prevSelItem)
            'If InvSelectedItem Then Call DrawInventorySlot(InvSelectedItem)
        End If
    End If
End Sub
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
Dudo que esto pueda ser la solución, pero probá:

Código:
startdX = ((LoopC - 1) Mod (frmMain.picInv.Width / 32)) * 32
            startdY = ((LoopC - 1) \ (frmMain.picInv.Width / 32)) * 32
Por esto

Código:
startdX = ((LoopC - 1) Mod (InventoryWindow.Width / 32)) * 32
            startdY = ((LoopC - 1) \ (InventoryWindow.Width / 32)) * 32
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
Es muy raro jaja. Los picture de los otros sistemas (comercio, boveda, etc) andan bien?
 

CUICUI

Oráculo Lvl 4
Sisi, me fijé la bóveda y anda bien.
Creo que voy a hacer el sistema desde 0 copiando tal cual la bóveda, la función es la misma, dibujar el inventario y el otro inventario de la bóveda (en mi caso, un inventario vacio que sería donde voy a poner cosas a vender we)
 

CUICUI

Oráculo Lvl 4
pasame la inicializacion de ventas_inv
Código:
Option Explicit

Public user_inv As New clsGrapchicalInventory
Public venta_inv As New clsGrapchicalInventory

Public Sub Iniciar_Venta()

   Call user_inv.Initialize(DirectD3D8, frmIniciarVentas.picUserInv, MAX_INVENTORY_SLOTS)
   Call venta_inv.Initialize(DirectD3D8, frmIniciarVentas.picVentaInv, MAX_INVENTORY_SLOTS)


   ' Código innecesario


End Sub
y lo llamo en el form_load del formulario
 

El_santo43

Programador de vb6
Ex-Staff
Código:
Option Explicit
Public user_inv As clsGrapchicalInventory
Public venta_inv As clsGrapchicalInventory
Public Sub Iniciar_Venta()
   Set user_inv as new clsGrapchicalInventory
   Set venta_inv as new clsGrapchicalInventory

   Call user_inv.Initialize(DirectD3D8, frmIniciarVentas.picUserInv, MAX_INVENTORY_SLOTS)
   Call venta_inv.Initialize(DirectD3D8, frmIniciarVentas.picVentaInv, MAX_INVENTORY_SLOTS)
   ' Código innecesario
     'Cuando termines la venta setea los dos inv en nothing (Set inv = nothing)

End Sub
 

CUICUI

Oráculo Lvl 4
Ya tengo el Set user_inv = Nothing , sigo con el mismo problema. Insisto, no sé por qué los demás formularios andan bien y el mio renderiza demasiado pequeño, es una cosa de locos jaja

EDIT: Listo, bendito problema era una tontera mía, el form tenía scalemode=1
Pensé que solamente iba el scalemode=3 en los picturebox.
Cierren we
 
Última edición:

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
Lel, no tendria que tener nada que ver el scalemode del form, pero bueno, se solucionó xd.

Closea2
 
Estado
Cerrado para nuevas respuestas.
Arriba