abertoletti

Consegui. Obrigado, André

É possível aplicar a opacity, apenas no background de um div, não afetando seus textos e divs filhos??

ah consegui foi só colocar a margin negativa =) obrigado

Como eu faço para colocar 2 "div" com ids diferentes um do lado do outro, sem que ocorra uma quebra de linha?? Estou aprendendo CSS agora, sou iniciante.

Lá no menu, em File, tem a opção Make 'Programa'.EXE

Também não entendi o que você está perguntando

Você quer criar um executavel?

Gostaria de saber se é possível fazer, no Microsoft Flex Grid, com que haja seleção de várias linhas, como é possível selecionar arquivos no windows, segurando o Ctrl, por exemplo, ou o Shift... E também gostaria de saber se é possível recuperar valores apenas das linhas selecionadas. Obrigado, Andre

Você pode definir no evento Resize do Form, o tamanho dele usando as propriedades Width e Height. Não desabilitará o Resize mas o tamanho continuará sempre o mesmo.

Você tem que fazer o msgbox normal e depois do texto colocar o parâmetro vbYesNo. Msgbox "a", vbYesNo

O Asc do "." é 46 Se você não souber o Asc de uma tecla, no VB você pode abrir o immediate Window (Ctrl + G) e usar a função Asc: ?Asc(".") Ao pressionar o Enter ele retorna o valor do asc que você procura

Já tentou usar Line?? Line (X1,Y1)-(X2,Y2)

select CAMPOS from TABELA where CAMPO like '%Nome%';

Gostei dessa idéia de contests, vocês não fazem mais?

Não lembro de alguma que arredonda para cima, então fiz a minha, acho que dá certo. Private Function Arredonda(Numero As Double) As Integer Dim Contador As Integer If InStr(1, Numero, ".") <> 0 Then For Contador = InStr(1, Numero, ".") To Len(Numero) If Mid(Numero, Contador, Contador) <> 0 Then Numero = Numero + 1 Exit For End If Next Arredonda = Mid(Numero, 1, InStr(1, Numero, ".")) Else Arredonda = Numero End If End Function

Round (Numero), mas o 3.1 ela arredondaria para 3 e não para 4 CInt(Numero) também arredonda.

Qual banco de dados?

Aquele Menu do form? Você pode verificar o usuário quando ele entrar, e desabilitar as opções que ele não tem acesso com Form.NomedaOpção(Indice).Enable Nome da Opção é aquele que você escreve no Menu Editor (Ctrl + E)

Você conecta dentro do form? Se for isso, crie um módulo de conexão e chame o form principal dentro dele. Veja se isso resolve o problema.

Sim, mas digo como você chamou ele? O código que você usou.

Como você está chamando esse form?

Ah me esqueci, antes você vai precisar usar o ReDim na string ReDim stringA(0 To 'quantidade de itens que o combo terá' ) Option Explicit Dim stringA() As String Private Sub Combo1_Click() Label1.Caption = stringA(Combo1.ListIndex) End Sub Private Sub Form_Load() ReDim stringA(0 To 2) Combo1.AddItem "1" stringA(Combo1.NewIndex) = "ola" Combo1.AddItem "2" stringA(Combo1.NewIndex) = "oi" Combo1.AddItem "3" stringA(Combo1.NewIndex) = "ui" End Sub

Você pode criar um array com uma String dessa forma Dim stringA () As String E quando for adicionar um item novo na combo, fazer isso: Combo.AddItem "1" stringA(Combo.NewIndex) = "ola" Combo.AddItem "2" stringA(Combo.NewIndex) = "oi" Combo.AddItem "3" stringA(Combo.NewIndex) = "ui" Quando selecionar um item na combo: Label.Caption = stringA(Combo.ListIndex) Acredito que assim funcione.

Não teria que ser ListView1.ListItems.Add? E eu não costumo usar o '.Fields' no Recordset. Não sei se pode ser identificado pelo nome. Eu costumo usar dessa forma: 'rs!produto' E da forma que está, eu acredito que ele adicionará 2 linhas na ListView, e não uma linha com duas colunas. Veja o exemplo que dei de como adicionar, na primeira resposta, em que utilizei SubItems da ListView.

Deixe-me ver se entendi. Você tem a ListView 1 com todos os produtos. Ao clicar na ListView 1, a ListView 2 deve mudar seu conteúdo para o produto que você escolheu, contendo também a quantidade? Se realmente isso, você pode criar um SubItem escondido na ListView contendo a quantidade desse produto, para que não seja necessário buscar novamente na base de dados. Algo assim: Private Sub ListView1_Click() Dim Objeto As ListItem ListView2.ListItems.Clear Set objeto = ListView2.ListItems.Add(, , ListView1.ListItems (ListView1.SelectedItem.Index).SubItems(2)) 'Quantidade de produtos Objeto.SubItems(1) = ListView1.ListItems (ListView1.SelectedItem.Index).Text 'Nome do produto Objeto.SubItems(2) = ListView1.ListItems (ListView1.SelectedItem.Index).SubItems(1) 'Preço End Sub