Arrumando carregamento dos itens do Shop

modGameEditors

Mude toda a ShopEditorInit para:

Código:

Public Sub ShopEditorInit()
Dim i As Long
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If frmEditor_Shop.Visible = False Then Exit Sub
    EditorIndex = frmEditor_Shop.lstIndex.ListIndex  + 1
   
    With frmEditor_Shop
        .txtName.text = Trim$(Shop(EditorIndex).Name)
        If Shop(EditorIndex).BuyRate > 0 Then
            .scrlBuy.Value = Shop(EditorIndex).BuyRate
        Else
            .scrlBuy.Value = 100
        End If
   
        .cmbItem.Clear
        .cmbItem.AddItem "Nenhum"
        .cmbCostItem.Clear
        .cmbCostItem.AddItem "Nenhum"

        For i = 1 To MAX_ITEMS
            .cmbItem.AddItem i & ": " & Trim$(Item(i).Name)
            .cmbCostItem.AddItem i & ": " & Trim$(Item(i).Name)
        Next

        .cmbItem.ListIndex = 0
        .cmbCostItem.ListIndex = 0

        .cmbCostItem.ListIndex = Shop(EditorIndex).TradeItem(EditorIndex).CostItem
        .txtCostValue.text = Shop(EditorIndex).TradeItem(EditorIndex).CostValue
        .cmbItem.ListIndex = Shop(EditorIndex).TradeItem(EditorIndex).Item
        .txtItemValue.text = Shop(EditorIndex).TradeItem(EditorIndex).ItemValue
    End With
   
    UpdateShopTrade
   
    Shop_Changed(EditorIndex) = True
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "ShopEditorInit", "modGameEditors", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Parabéns ae vo usar + 1 xD

vou usar no meu dbz

Poderia me explicar mais sobre o código, qual o problema no carregamento, o que você fez? e

Código:

EditorIndex = frmEditor_Shop.lstIndex.ListIndex  1

Não seria?

Código:

EditorIndex = frmEditor_Shop.lstIndex.ListIndex + 1

Mesmo assim + 1 crédito

@Edit: Eu percebi que você adicionou isso

Código:

        .cmbCostItem.ListIndex = Shop(EditorIndex).TradeItem(EditorIndex).CostItem
        .txtCostValue.Text = Shop(EditorIndex).TradeItem(EditorIndex).CostValue
        .cmbItem.ListIndex = Shop(EditorIndex).TradeItem(EditorIndex).Item
        .txtItemValue.Text = Shop(EditorIndex).TradeItem(EditorIndex).ItemValue

Para que fique selecionado o item, preço e tal da listbox quando inicia, só que você poderia colocar para atualizar quando clicasse na lstTradeItem adicionando esse código na frmEditor_Shop:

Código:

Private Sub lstTradeItem_Click()
Dim i As Long
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    i = frmEditor_Shop.lstTradeItem.ListIndex + 1
   
    cmbCostItem.ListIndex = Shop(EditorIndex).TradeItem(i).CostItem
    txtCostValue.Text = Shop(EditorIndex).TradeItem(i).CostValue
    cmbItem.ListIndex = Shop(EditorIndex).TradeItem(i).Item
    txtItemValue.Text = Shop(EditorIndex).TradeItem(i).ItemValue
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "lstTradeItem_Click", "frmEditor_Shop", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Me salvou praticamente -.- , economiza tempo apesar do que fiz de um outro jeito .

Pad;*