none
Ajudar a atribuir posicionamento para Labels criadas dinamicamente RRS feed

  • Pergunta

  • Estou criando um Multipage dentro do formulario e adicionando labels dinamicas, mas quando eu executo a rotina de vba as labels aparecem no expaço, preciso atribuir valores para posicionar as labels na posição correta dentro da Multipage, como faço isso? Alguém poderia me ajudar? Segue o código abaixo.

    \\\\\\\

    Private Sub ComboBoxEngine_Change()


    'Variaveis

    Dim RPMEngine As String
    Dim labelRPM(1 To 200) As Control


    RPMEngine = ComboBoxEngine.Value

    I = 1
    Do While I < 200

    If RPMEngine = Range("A" & I).Value Then


    Set labelRPM(I) = MultiPage1.Pages(0).Controls.Add("Forms.label.1")

    labelRPM(I).Caption = Range("B" & I).Value

    End If

    I = I + 1

    Loop

    End Sub

    \\\\\

    Valeu

    Eduardo




    terça-feira, 28 de julho de 2015 18:25

Respostas