Alenaldo Membro
Mensagens : 38 Moeda : 104 Pontos : 4 Data de inscrição : 05/01/2013 Idade : 31 Localização : São luis MA
| Assunto: Arrumando carregamento dos itens do Shop Seg Jan 14, 2013 9:04 am | |
| Client~Side modGameEditors Mude toda a ShopEditorInit para: CÓDIGO: - 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 Créditos eu Ricardo | |
|