Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

Zim

RichTextBox

Mensagens Recomendadas

Zim    0
Zim

Ola , não manjo muito vb.net e queria fazer um sistema de sorteio aleatório com RichTextBox por exemplo :

cySGG0T.png

Quero que alguns dos nomes (RichTextBox1) aleatoriamente vão para o sorteados(RichTextBox2) e outros para o eliminados (RichTextBox3) ao clicar no botão gerar (button1) , alguem pode me passar o codigo desse sistema basico ? obrigado !

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
vikcch    17
vikcch

era mais facil usares listbox em vez de richtextbox...

com listbox:

Option Explicit On
Option Strict On

Public Class Form1

   'botão para inserir nome
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim nome As String = InputBox("Nome")

    If nome <> String.Empty Then
	    Me.ListBox1.Items.Add(nome)
    End If

   End Sub

   'botao para sortear para que listbox vai
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    If Me.ListBox1.Items.Count = 0 Then
	    Exit Sub
    End If

    Dim rnd As Random = New Random()

    Dim n As Integer = rnd.Next(0, 2)

    Dim item As String = Me.ListBox1.Items(0).ToString
    Me.ListBox1.Items.RemoveAt(0)

    If n = 0 Then
	    Me.ListBox2.Items.Add(item)
    Else
	    Me.ListBox3.Items.Add(item)
    End If

   End Sub

End Class

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.