Pergunte aqui
0

combobox obter valores

perguntadas 2013-04-23 16:14:43 +0200

imagem do gravatar de m0t0tud0

updated 2019-03-01 18:38:27 +0200

Boas pessoal, tenho a seguinte duvida: Tenho uma planilha que tem uma coluna que tá com numeros, e eu queria ir buscar esses valores através de uma combobox que tá colocada numa form, ou seja, quando mando abrir uma form, ela abre, dps tem lá uma combobox, e quando clico nela, ela me mostra os valores que estao numa determinada planilha. já vi uma questão semelhante que foi aqui tb postada e resolvida, mas o que lá foi feito foi criar uma combobox numa planilha que tava a chamar os valores de outra planilha. e eu quero é chamar aqueles valores numa form atraves de uma combobox como foi referido no inicio do post. Se alguem poder ajudar agradeço, visto que tenho alguma urgencia. cumps..

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

5 Respostas

0

respondidas 2013-05-01 17:43:04 +0200

imagem do gravatar de Grafeno

Olá,

A rotina abaixo é um costura de diversos "retalhos" de códigos da ajuda do LibreOffice.

Mostra uma forma de carregar os dados da "Planilha1", mais precisamente os que estão em "A1:A10", e inserí-los no combobox do diálogo.

Os requisitos para funcionar são:

  • Planilha chamada "Planilha1" com o intervalo "A1:A10" preenchido;
  • Um diálogo chamado "Dialog1";
  • Uma caixa de combinação chamada "ComboBox1".

...

REM  *****  BASIC  *****

'Declarar Objetos
Dim oDialogo as Object
Dim oComboBox as Object

Sub Iniciar_Dialogo
Dim Inc as Integer
Dim sItem as String

  'Carregar o diálogo
   oDialogo = CarregarDialogo( "Standard", "Dialog1" )

  'Iniciar os controles
   oComboBox = oDialogo.GetControl( "ComboBox1" )

  'Povoar a Caixa de Combinação    
   For Inc = 9 to 0 step -1    
      sItem = ThisComponent.Sheets.getByName("Planilha1").getCellByPosition( 0,Inc ).String
      oComboBox.additem( sItem,0 )
   Next Inc

  'Exibir o diálogo
   oDialogo.Execute()
End Sub

   'Função global para carregar diálogos 
Function CarregarDialogo(Libname as String, DialogName as String, Optional oLibContainer)
Dim oLib as Object
Dim oLibDialog as Object
Dim oRuntimeDialog as Object
    If IsMissing(oLibContainer) Then
        oLibContainer = DialogLibraries
    End If
    oLibContainer.LoadLibrary(LibName)
    oLib = oLibContainer.GetByName(Libname)
    oLibDialog = oLib.GetByName(DialogName)
    oRuntimeDialog = CreateUnoDialog(oLibDialog)
    CarregarDialogo() = oRuntimeDialog
End Function


At.te,
Grafeno

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2013-04-30 12:29:28 +0200

imagem do gravatar de m0t0tud0

vá lá pessoal tenho outros caras meus amigos que tambem têm este problema e eu nao estou conseguindo solucionar este problema. Alguem me pode ajudar a chamar valores de uma planilha para uma form com uma combobox? aguardo... cumps

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2013-05-02 13:12:41 +0200

imagem do gravatar de m0t0tud0

obrigadão companheiro, já agora se não é pedir muito como é que eu faço para ter um sistema de password num dialogo atraves de uma textfield, ou seja, tenho um dialogo e depois tenho uma textfield onde se tem de colocar uma password para ter acesso a algumas opçoes do ficheiro. penso que nao dve ser muito diferente da combo. eu nao uso acesso a nenhuma database, so queria ter uma pass de entrada, para desbloquear certas opçoes do programa que eu estou criando. Aguardo resposta.. cumps.

editar assinalar como ofensivo Excluir Link mais

Comentários

Para retornar o valor de um textfield, primeiro é preciso carregar o controle com "" oTextField = oDialogo.GetControl( "TextField1" ) "" e depois recuperar o valor com "" sUmaString = oTextField.Text "".

imagem do gravatar de GrafenoGrafeno ( 2013-05-03 17:38:52 +0200 )editar
0

respondidas 2013-04-24 12:36:23 +0200

imagem do gravatar de m0t0tud0

pois mas isso foi o que foi resolvido num dos posts. o que eu quero é colocar uma combobox num form e depois ir buscar para essa combobox os valores que estão colocados numa determinada planilha. Isso que você me esclareceu cria numa planilha uma combobox que chama os valores que estão noutra planilha.

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2013-04-24 01:28:01 +0200

imagem do gravatar de Olivier

Utilize a Validação de dados no menu Dados - Validação.

Escolha Intervalo de células no item Permitir e defina o intervalo.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

Estatísticas

Perguntadas: 2013-04-23 16:14:43 +0200

Lidas: 1,037 vezes

Última atualização: May 02 '13