none
BOTÃO QUE CRIA DUAS FERRAMENTAS AO MESMO TEMPO RRS feed

  • Pergunta

  • Boa noite; alguém saberia informar qual é o erro do código abaixo?

    PS: Conforme o título sugere, com um botão de comando eu crio duas ferramentas ao mesmo tempo

    Private Sub CommandButton1_Click()

    Set Mycmd = Controls.Add("Forms.CommandButton.1") ',"CommandButton2", Visible)

    Mycmd.Left = 200
    Mycmd.Top = 180
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "This is fun." & Mycmd.Name

    Set Mycmd = Controls.Add("Forms.ComboBox.1") ',"ComboBox2", Visible)

    Mymcd.Left = 210
    Mycmd.Top = 198
    Mycmd.Width = 90
    Mycmd.Heigt = 30
    Mycmd.Caption = "STATUS." & Mycmd.Name

    End Sub


    quinta-feira, 14 de fevereiro de 2019 22:31

Todas as Respostas

  • Jhon_dantas,

        Criei um exemplo com "ComboBox", mas acredito que facilmente você pode trocar para botão... Por favor, veja meu código, você pode baixá-lo do VBMania:

    =============================

    CRIAR COMBOS DINAMICAMENTE
    Cria combos virtuais apartir de uma combo real que pode ficar 'visible = false'. se você tem uma necessidade de criar um número indeterminado de combos para uma determinada opção escolhida pelo usuário, segue a dica.

    http://www.vbmania.com.br/index.php?modulo=detalhe&id=9110
    =============================

    OBJETOS SEM REFERENCIA
    Criando componentes no código fonte sem usar o 'project / components' (sem referenciar no projeto). exemplos de como usar 'licenses.add', 'vbcontrolextender' e o 'objectevent'. cria em run-time uma label e uma imagecombo.

    http://www.vbmania.com.br/index.php?modulo=detalhe&id=7429
    =============================

    []'s,
    Fabio I.
    sábado, 16 de fevereiro de 2019 15:51