[Resolvido]Distribuir numeros

[ribeiro55]

Falta algum bocado de codigo! Bem visto falta codigo onde esta a seta, que nem faz a verificação do numero que esta na textbox

F1.NumeroMax = NumeroMaximo

Substituí o NumeroMaximo por o tal sitio onde escreves o valor antes de carregar na seta.

Dei-te, obviamente, código para não dar erro. Terás sempre de fazer alterações.

Até porque não sei o que está por aí à volta...

Antes de te enviar o projecto, posta aqui todo o código que tens na seta.

[Batista15]

F1.NumeroMax = NumeroMaximo

Substituí o NumeroMaximo por o tal sitio onde escreves o valor antes de carregar na seta.

Dei-te, obviamente, código para não dar erro. Terás sempre de fazer alterações.

Até porque não sei o que está por aí à volta...

Antes de te enviar o projecto, posta aqui todo o código que tens na seta.

Ate meti tambem no nome da minha numeromaximo mas nao esta a funcionar 

[ribeiro55]

Mostra lá o código todo da seta.

[Batista15]

Mostra lá o código todo da seta.

Dim NumeroMaximo As Integer = 2
        Dim F1 As New Form11
        F1.NumeroMax = NumeroMaximo
        F1.Show()

[ribeiro55]

E dizes que deste o nome à textbox onde tens o número a distribuír, NumeroMaximo?

Se o fizeste, o que tens de fazer é:

        Dim F1 As New Form11
        F1.NumeroMax = CInt(NumeroMaximo.Text)
        F1.Show()

E já tens o resto do código todo lá no Form11 ?

[Batista15]

E dizes que deste o nome à textbox onde tens o número a distribuír, NumeroMaximo?

Se o fizeste, o que tens de fazer é:

        Dim F1 As New Form11
        F1.NumeroMax = CInt(NumeroMaximo.Text)
        F1.Show()

E já tens o resto do código todo lá no Form11 ?

Sim tenho!

E esse codigo no botao continua a nao dar.

Este é o codigo que tenho na form11

Private NumeroMaximo As Integer = 0

    Public WriteOnly Property NumeroMax()
        Set(ByVal value)
            NumeroMaximo = value
        End Set
    End Property

    Private Sub Distribuí()
        For i As Integer = 1 To NumeroMaximo
            ProcuraEPreencheCaixaDeTexto(i)
        Next
    End Sub

    Private Sub ProcuraEPreencheCaixaDeTexto(ByVal Numero As Integer)
        For Each C As Control In Me.Controls
            If C.Name = "TX" & Numero Then
                Dim EstaTX As TextBox = CType(C, TextBox)
                EstaTX.Text = Numero.ToString
            End If
        Next
    End Sub
    Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Distribuí()

    End Sub

[ribeiro55]

Parece bem.

Afinal o que chamas a "não dar" ?

Devolve um erro ou coisa parecida?

Já agora, nem reparei numa borrada que fiz ali. Tira os assentos do "i" em Distribuí.

[Batista15]

Nao erro nao da! clico no botao aparece a form e nao aparece nada nas textboxs

[ribeiro55]

Mesmo sem os assentos em Distribuí?

Faz upload disso tudo num ZIP para o rapidshare ou coisa quje o valha.

Linka-me depois.

[Batista15]

Enviei.lhe uma mensagem pessoal