[DUVIDA DUVIDAS] CONTROLE EM TEMPO DE EXECUCAO.

JOSEC 26/12/2009 18:01:06
#330499
Como inicie esse topico e DUVIDA + DUVIDAS.... Mais essa n e por causa da minha burrice de n saber programar e por que eu numa achei uma resposta que saciace minha duvida,

Eu queria criar varios Command Button de acordo com que o Usuario Precisase tipo assim

quando eu digitasse 50 ele criava 50 command button tudo alinhado e um embaixo do outro,
mais se eu escolhece por exemplo 25 ele criace os vinte e cinco, mais o problema maior e vincular os codigos para serem executado.... se n fui muito claro na minha duvida por favor poste que eu tentarei explicar melhor....

Obrigado
TECLA 26/12/2009 18:53:01
#330500 Resposta escolhida
  • Insira um TEXTBOX e um COMMANDBUTTON no FORM
  • Altere a propriedade INDEX do COMMANDBUTTON para 0 (zero)
  • Insira mais um COMMANDBUTTON, copie o código abaixo e cole no editor

    • [txt-color=#007100][ô]Declare a variável no General Declarations[/txt-color]
    Dim x As Integer

    Private Sub Command2_Click()
    Dim i As Integer
    If CInt(Text1) = 0 Then Exit Sub
    x = Text1
    For i = 1 To x
        Load Command1(i)
        Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width + 50
        Command1(i).Visible = True
    Next
    End Sub


    Private Sub Form_Load()
    i = 1
    End Sub


  • Digite um valor na TEXTBOX e clique no segundo COMMANDBUTTON

    é um exemplo simples, mas dá pra se ter uma idéia de como trabalhar com componente vetorizado.
    •
    JOSEC 26/12/2009 19:01:07
    #330501
    Gostei desta maneira e minha Duvida mas e para colocar os codigos dentro desses novos butões criados como colocar os nomes neles e principalmente se eu criar 50 butoes, eu gostaria que gerasse assim por xemplo

    [ 1 ] [ 2 ] [ 3 ] [ 4 ] [ 5 ] [ 6 ] [ 7 ] [ 8 ] [ 9 ] [ 10 ]
    [ 11 ] [ 12 ] [ 13 ] [ 14 ] .... Até 50
    JOSEC 26/12/2009 19:42:49
    #330504
    Bom bom estamos progredindo so mais uma coisa exemplo novamente....

    Vamos Supor que eu adicione os 50 Butões como faço para que quando atigir 10 botoes ele dicionar uma nova linha exemplo...

    [ 1 ] [ 2 ] [ 3 ] [ 4 ] [ 5 ] [ 6 ] [ 7 ] [ 8 ] [ 9 ] [ 10 ]
    [ 11 ] [ 12 ] [ 13 ] [ 14] [ 15 ] [ 16 ] [ 17 ] [ 18 ] [ 19 ] [ 20 ]
    [ 21 ] [... ] Até 50 entederão o codigo que o tecla me deu ele so cria em 1 linhas eu queria com linhas e colunas LOL [Ô] VB Virou Execel[Ô] Brincadeira... Obrigado Ao Barros e Tecla
    DANIKULL 26/12/2009 20:31:26
    #330507
    JOSEC, boa noite.

    Me desculpe mais quem está com dúvidas sou eu. Me diga algumas coisas.
    Programar é definir ações que ajude o usuário em suas tarefas com base nas suas própias informações, agora com qual intúito você precisa que o usuário diga quantos botões ele precisará ter em sua aplicação e qual é ou quais serão as instruções que conteram os botões???? Cada um trabalhará de forma independente??? Você estará tratando somente o evento Click dos botões????

    Não consgui entender o motivo seu para chegar em uma resposta clara.
    TECLA 26/12/2009 20:52:17
    #330508
    Fiz mais algumas alterações no código, teste e veja se é isso que precisa:
    [txt-color=#007100][ô]Declare no General Declarations[/txt-color]
    Dim x As Integer, t As Long, l As Long


    Private Sub Command1_Click(Index As Integer)
    [txt-color=#007100][ô]Exibir o número do botão[/txt-color]
    MsgBox Command1(Index).Index
    End Sub


    Private Sub Command2_Click()
    [txt-color=#007100][ô]Rotina para criar e ajustar os botões no seu devido lugar[/txt-color]
    Dim i As Integer
    If CInt(Text1) = 0 Then Exit Sub
    x = Text1
    t = Command1(0).Top
    l = Command1(0).Left + Command1(0).Width + 50
    For i = 1 To x
        Load Command1(i)
        Command1(i).Left = l
        Command1(i).Top = t
        Command1(i).Caption = i
        Command1(i).Visible = True
        If i Mod 10 = 0 Then
            t = Command1(i - 1).Top + (Command1(i - 1).Width / 2)
            l = Command1(0).Left
        Else
            l = l + Command1(0).Width + 50
        End If
    Next
    End Sub


    Private Sub Form_Load()
    [txt-color=#007100][ô]Inicializar variável[/txt-color]
    i = 1
    End Sub
    JOSEC 27/12/2009 13:16:37
    #330530
    Exatamente Tecla Muito Obrigado Viu Abraço..
    Tópico encerrado , respostas não são mais permitidas
    Voltar