MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Aumentar numero de paginas do shop

3 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Suporte e pedidos :: Assuntos resolvidos

Ir para baixo

Aumentar numero de paginas do shop Empty Aumentar numero de paginas do shop

Mensagem por williamg12 Sáb 26 maio 2012, 16:32

é o seguinte to fazendo uns ajustes no pribution e não estou consiguindo aumentar o numero de paginas lá são 5 paginas o max , eu quero pra 9 , eu vo por o codigo ai todos que estão 9 foi o q eu alterei e que não deu resultado.
Código:
' Shows the specified page
Public Sub showPage(ByVal page As Integer)
    Dim I As Integer
    Dim itemName As String
    Dim shopCurrency As String

    On Error GoTo showPage_Error

    lblPage.Caption = "Page: " & (page + 1)

    For I = 1 To 9
        If Shop(shopNum).ShopItem(page * 9 + I).ItemNum = 0 Then
            imgBox(I - 1).Visible = False
            lblItem(I - 1).Visible = False
        Else
            imgBox(I - 1).Visible = True
            lblItem(I - 1).Visible = True

            itemName = Trim$(Item(Shop(shopNum).ShopItem(pageIndex * 9 + I).ItemNum).Name)
            shopCurrency = Trim$(Item(Shop(shopNum).currencyItem).Name)
            lblItem(I - 1).Caption = itemName & vbNewLine & "Price: " & STR(Shop(shopNum).ShopItem(pageIndex * 5 + I).Price) & " " & shopCurrency

            Me.iconn(I - 1).Cls

            Call BltIcon(I - 1, Shop(shopNum).ShopItem(pageIndex * 9 + I).ItemNum)
        End If
    Next I

    ' If numItems / 5 - (pageIndex * 9) > 1 Then
    If page < maxpages Then
        cmdNext.Visible = True
    Else
        cmdNext.Visible = False
    End If

    If pageIndex > 0 Then
        cmdBack.Visible = True
    Else
        cmdBack.Visible = False
    End If

    On Error GoTo 0
    Exit Sub

showPage_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure showPage of Form frmNewShop"
    If MsgBox("Could not show page.", vbRetryCancel) = vbRetry Then
        Call showPage(page)
    Else
        frmNewShop.Visible = False
    End If
    Exit Sub
End Sub


Olhem o codigo pf , é pequeno so pra ver se acha e me ajuda aqui .
williamg12
williamg12
Membro
Membro

Mensagens : 143

Ir para o topo Ir para baixo

Aumentar numero de paginas do shop Empty Re: Aumentar numero de paginas do shop

Mensagem por Eduardo Sáb 26 maio 2012, 16:38

esse e o local errado para vc postar isso aki e eclipise origins e vc usa elcipise enginer favor algum mod mover o topico ao local certo
Eduardo
Eduardo
Membro Veterano
Membro Veterano

Mensagens : 1178

Ir para o topo Ir para baixo

Aumentar numero de paginas do shop Empty Re: Aumentar numero de paginas do shop

Mensagem por Sαkurαy Sáb 26 maio 2012, 16:43

Se você falou que está modificando uma Pributon, está no local errado.
Membro punido e movido para o local certo.
Caso eu esteja errado, avise-me por mp, que verei oquê posso fazer.
Ah é, também arrumei o ícone.
Sαkurαy
Sαkurαy
Membro Veterano
Membro Veterano

Mensagens : 1386

Ir para o topo Ir para baixo

Aumentar numero de paginas do shop Empty Re: Aumentar numero de paginas do shop

Mensagem por williamg12 Sáb 26 maio 2012, 16:58

Desculpa n reparei isto


alguem pode me ajudar com este problema?
williamg12
williamg12
Membro
Membro

Mensagens : 143

Ir para o topo Ir para baixo

Aumentar numero de paginas do shop Empty Re: Aumentar numero de paginas do shop

Mensagem por williamg12 Dom 27 maio 2012, 12:57

ALGUEM?
williamg12
williamg12
Membro
Membro

Mensagens : 143

Ir para o topo Ir para baixo

Aumentar numero de paginas do shop Empty Re: Aumentar numero de paginas do shop

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Suporte e pedidos :: Assuntos resolvidos

 
Permissões neste sub-fórum
Não podes responder a tópicos