InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se
Os que mais criam tópicos
Sonart
 
Alenaldo
 
Over~
 
Warrior
 
Caio~
 
SSO
 
newbie123
 
Kaue
 
Jim
 
yuri godinho
 
Conectar-se
Nome de usuário:
Senha:
Conexão automática: 
:: Esqueci minha senha

Compartilhe | 
 

  Arrumando carregamento dos itens do Shop

Ir em baixo 
AutorMensagem
Alenaldo
Membro
Membro


Mensagens : 38
Moeda : 104
Pontos : 4
Data de inscrição : 05/01/2013
Idade : 25
Localização : São luis MA

MensagemAssunto: 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

_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Arrumando carregamento dos itens do Shop
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» script para arrastar itens
» Função de carregamento em páginas
» Ajuda com o fundo da área de postagens e itens abaixo do avatar.
» Perfil com itens
» Página de carregamento

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
 :: Desenvolvimento de Jogos :: Engines :: Eclipse Origins :: Tutoriais-
Ir para: