Promotor Advanced

Quando vou inserir meu banco de dados do Acess2000 no Crystal Report7 ele dá um erro: "Erro IDAPI: Não foi possível carregar ODAPIxx.DLL" será que isso tem a ver com a versão do banco de dados? pois quando eu coloco um arquivo do acess97 funciona corretamente...

Isso, mas é necessário mesmo o Frame? Eu gostaria de colocar tudo ao Formulário direto...

Alguém sabe me dizer como eu faço para ter 2 pares de options buttons mas se um par ter haver com o o outro? É porque quando eu coloco os quatros ai ficam todos eles ligados entre si de tal maneira que eu só posso escolher 1 de 4, enquanto quero escolhes 2 em 4... Valeu!

Eu custumo usar o "&vbcrlf& _" para quebrar linhas... 'Você digita o comentário &vbcrlf& _ e continua na linha abaixo...

Quando tem uma Combo box ComboX(0) podemos fazer mais dela... Então load comboX(1) Alguém sabe me dizer porque quando eu crio essas segunda ela não vem com a lista preenchida? Ou como fazer para a lista ser idêntica a da primeira?

Aperta F5...

Função retorna um valor...

Const Veneno19 = "Um dia como todos" MsgBox Mid(Veneno19, 1, InStr(1, Veneno19, "t")) Nesse caso ele vai mostrar tudo que está até na letra "t" que equivale a "Um dia como todos" se você colocar no lugar do "t" um espaço, ele vai retornar "Um "...

Coloque 5 image com o nome abaixo... imOpen, imSave, imPrint, imPrintSetup, imCopy e cole o código... Option Explicit Private Declare Function GetMenu Lib "user32" _ (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" _ (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function SetMenuItemBitmaps Lib "user32" _ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, _ ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Const MF_BYPOSITION = &H400& ' VB 5 doesn't need this declration, but VB 4 does. ' Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long Private Sub Form_Load() Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long mHandle = GetMenu(hwnd) sHandle = GetSubMenu(mHandle, 0) lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture) lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture) lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture) lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture) sHandle = GetSubMenu(mHandle, 1) sHandle2 = GetSubMenu(sHandle, 0) lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture) End Sub

É só você usar o imagem combo...

Aê pessoal, vocês perdoem a minha ignorância, mas vocês me deram exemplos aqui para fazer busca em recordset, eu não consegui, então upei esse arquivo aqui, se alguém animar, baixa ele aí, está com o código fonte em vb6... está zipado mas nem precisa de winzip... se conseguirem devolvam ele para mim em pacatoboca@bol.com.br http://www.puroagito.com/puroagito/tsoft/busca.exe

O Pigmeu, você mandou para o meu email?

Valeu aí velho, baixei os 2 links...

Aí pessoal, eu terminei de desenvolver um programa e estou querendo dar uma melhorada na interface dele... Alguém sabe onde eu consigo ícones para (botão salvar, novo, próximo, etc...) colocar no programa, valeu!

Usa o filelen MsgBox FileLen("C:\onda.zip") 'vai retornar o tamanho do arquivo em bytes...

http://vb.scriptbrasil.com/?class=2.3&id=8...tegoria=Imagens, Formulários e Sons

Especifique a sua dúvida... Seja mais claro, não entendo que tipo de conexão deseja fazer...

Você tem que alterar essas propiedades é antes de compilar, não é com código não...

Como assim fez um select? se não for encomodo alguém poderia me dar um exemplo...

Pode ser que o lugar onde ele está tentando criar o diretório está bloqueado ou já existe...

Ainda não está funcionando... eu estou usando DAO, estou colocando assim... TBLivro.FindFirst "NMLivro >= '" & "Faroeste" & "'"

Acho que não compreendi...

MkDir "C:\Pasta" para criar a pasta... RmDir usado para remover Name renomeia...

Aí é só você deixar a propiedade scrollbars = 2 deixa só a vertical e ativa o multiline, feito isso vai quebrar sozinho...

A quebra de tinha você coloca a propiedade multiline=true