Suporte no desenvolvimento de jogos


    Máximo e mínimo de caracteres para criar char.

    Nãner
    Nãner
    Iniciante
    Iniciante

    Mensagens : 64
    Créditos : 21
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Máximo e mínimo de caracteres para criar char. Left_bar_bleue0/0Máximo e mínimo de caracteres para criar char. Empty_bar_bleue  (0/0)
    Vida:
    Máximo e mínimo de caracteres para criar char. Left_bar_bleue30/30Máximo e mínimo de caracteres para criar char. Empty_bar_bleue  (30/30)

    Máximo e mínimo de caracteres para criar char. Empty Máximo e mínimo de caracteres para criar char.

    Mensagem por Nãner em Qui Nov 10, 2011 7:36 pm

    Tipo: Eu ponho o máximo de 8. Ai quando o cara for criar seu personagem, e botar nome com mais de 8 letras, aparecerá uma mensagem dizendo que o máximo de caracteres é 8.

    Vamos ao que interessa.

    Cliente-Side.

    Na frmNewChar procure pela label picAddChar. De dois clicks para abrir o código, irá abrir a sub:
    Código:
    Private Sub picAddChar_Click()

    Nela procure por:
    Código:
    If Len(Trim(txtName.Text)) < 3 Then
                MsgBox "Nomes de personagens precisam ser de no mínimo 3 caracteres."
                Exit Sub
            End If

    Abaixo adicione:
    Código:
    If Len(Trim(txtName.Text)) > 8 Then
                MsgBox "Nomes de personagens precisam ser de no máximo 8 caracteres."
                Exit Sub
            End If

    E basta mudar o 8 do código para o máximo de caracteres que quiser.
    E na mensagem também!

    Créditos:
    RenanR.

    Bom, um tutorial bem simples. Apenas para ensinar aos novatos a como mudar o mínimo de caracteres necessários para criar um char.

    Em Cliente-Side vá na frmNewChar e de dois clicks na label "picAddChar" e aparecendo assim, a sub:
    Código:
    Private Sub picAddChar_Click()

    Nela procure por:
    Código:
    If Len(Trim(txtName.Text)) < 3 Then
                MsgBox "Nomes de personagens precisam ser de no mínimo 3 caracteres."
                Exit Sub
            End If
    ~

    Agora Explicando!

    If Len(Trim(txtName.Text)) < 3 Then - Mude o 3 para o mínimo de caracteres!
    MsgBox "Nomes de personagens precisam ser de no mínimo 3 caracteres." - mude a mensagem que irá aparecer!
    Exit Sub - Isso faz com que saia da sub. Não mecha.
    End If - Isso tira o If que botamos no começo do código! Não mecha.

    Créditos:
    Kkg2007

      Data/hora atual: Ter Dez 10, 2019 7:33 pm