Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

Você não está conectado. Conecte-se ou registre-se

Sistema de sorteio

Ir em baixo  Mensagem [Página 1 de 1]

1Normal Sistema de sorteio em Qua Fev 15, 2012 11:51 pm

Kisuke

Kisuke
Organizador
Organizador
Client~Side

Na frmadmin crie 2 labels, 2 TextBox e 1 comandbutton. Altere as suas configurações para:

Label1

[/b][/font]
Caption: Número Máximo:


TextBox1

Name: txtMax
Caption: 50


Label2

Caption: Número Sorteado:


TextBox2

Name: txtSorteio
Locked: True


Comand Button

Name: cmbSorteio
Caption: Sortear


Agora dentro do cmbSorteio adicione:

Código:
txtSorteio.Clear
    With txtSorteio
        .Text = .Text & vbNewLine & Int(Rnd() * txtMax.Text)
        .SelStart = Len(.Text) + 1
MsgBox ("O Sorteado foi o número& txtSorteio.Text")
    End With




Creditos:

Ricardo
[/center]

Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum