[center]Bom Segundo tutorial esse e para add Pontos bom vamos Lah
Primeio Crie uma PictureBox Com Nome de PicAddPonto e Nela Crie 4 Label e TextBox
Nomei e adicione os Item pedido a Acima da Seguinte Forma:
Primeio Crie uma PictureBox Com Nome de PicAddPonto e Nela Crie 4 Label e TextBox
Nomei e adicione os Item pedido a Acima da Seguinte Forma:
Aprimeira Label Mude Caption para Força e renomei de LblForça e adicione nela:
- Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If
- Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If
- Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If
- Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If
No TextBox Renomei de txtPontos
E Fim do Tutorial
O meu Fikou Assim A Caption da Label Fika a Sua Escolha Vou deixar uma imagen de como o meu fikou !
Edit: Bom Muitos deve saber mais vo Posta Como Colokar um uma label Para Abrir e Fexar a Tabela de Add Pontos Vamo Lah'
Cliente:
crie uma Label Na FrmMirage Com Caption:ADD PONTOS de 2 Clikes e adicione
- Código:
If PicAddPonto.Visible = True Then
PicAddPonto.Visible = False
Else
PicAddPonto.Visible = True
End If
e Pronto Ao Clikar na Label Add Pontos você Podera Abri e Fexar a Tabela de add Pontos Lembrado Coloke a PicAddPonto Em False "