Graymalkin

Acho que você pode usar uma API para, literalmente, "cortar" o form de forma a deixar o caption de fora. Nessa semana mesmo o William postou um código para isso (a diferença é só que o código dele toma como base uma imagem). Abraços, Graymalkin

Use SQL para isso (SELECT INTO ou INSERT INTO). Abraços, Graymalkin

Essa já é uma outra maneira, sem ser com o SaveSettings... então do que precisas, exatamente? Abraços, Graymalkin

Dê uma olhada no componente Microsoft Internet Controls (menu Project -> Components...). Abraços, Graymalkin

Dá pra copiar sim, você só não consegue substituir o programa sendo executado. Abraços, Graymalkin

O ideal é que as informações de logon do Windows fossem as mesmas do compartilhamento (primeiro ele tenta com elas). Entretanto, acho que você pode fazer algo do tipo: Shell "net use * \\server\share senha /USER:usuário /y" Nunca testei isso de forma, mas talvez dê certo. Abraços, Graymalkin

Pesado? Não seria a imagem que estaria com uma resolução muito alta (além do necessário)? Abraços, Graymalkin

Declare essas duas APIs no Form (se quiser declará-las em um módulo fica melhor ainda - você poderá utilizá-las em outros forms - só troque o "Private" por "Public"): Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long No evento MouseMove da PictureBox coloque: If ((X < 0) Or (Y < 0) Or (X > Picture1.Width) Or (Y > Picture1.Height)) Then ReleaseCapture Debug.Print "out" Else SetCapture Picture1.hwnd Debug.Print "in" End If Ok? Graymalkin

Brother, esse assunto já passou aqui pelo fórum. Dê uma procurada a respeito. Abraços, Graymalkin

Compreendo. Então acho que a solução seria usar a função FileCopy para fazer uma cópia do banco de dados atualmente usado (o que está aberto pelo DAO) para o novo nome de arquivo escolhido. Essa ação ocorreria no "Salvar como". Entendeu? Abraços, Graymalkin

Brother, sempre faça uma busca no fórum. Essa pergunta já apareceu aqui antes. Use a função Dir() informando o nome do arquivo como argumento e depois verique o retorno dela: se for "" (vbNullstring) é porque o arquivo não existe. Abraços, Graymalkin

Sim, a local tem a preferência. Abraços, Graymalkin

Acredito que depois da linha... Rewrite(MemoFile); ... você deveria colocar: writeln(MemoFile, 'DELPHI É MUITO BOM!!'); Veja aí se dá certo. Abraços, Graymalkin

Dê uma procurada sobre os comandos MCI (Multimedia Command Interface) pois acho que talvez você possa obter essas informações (pelo menos a duração do vídeo eu tenho certeza de que dá pra obter). Abraços, Graymalkin

Para imprimir uma figura você usa o método PaintPicture do objeto Printer. O que você quer dizer por "salvar o arquivo com extensão mdb"? Você quer criar um novo banco de dados? Copiar um existente? E, como você está fazendo isso? Abraços, Graymalkin

Aqui funciona corretamente. Qual a versão da Framework (ou do Visual Studio) que você está utilizando? Abraços, Graymalkin

Seria esse daqui então: Text1.text = Text1.text & "<title></title>" Abraços, Graymalkin

Então creio que seja por isso. A transparência de gifs não conta no VB (veja que o mesmo, por exemplo, só tem suporte a gifs estáticos (sem animações)). Abraços, Graymalkin

Fiz um teste aqui e strtok() funciona perfeitamente com strings de mais de um caracter como separadores. Aí não funciona? Abraços, Graymalkin

Sim, as Common Dialogs são apenas caixas bonitinhas e já preparadas, mas que não fazem praticamente nada sozinhas. Basicamente, a caixa de diálogo para abrir e salvar só servem para você saber o *nome* do arquivo a ser aberto ou salvo. Como e o quê será salvo ou aberto é você quem vai definir. O mesmo se dá com a caixa de diálogo de impressão. Basicamente, eu acho que ela só informa a impressora escolhida e a quantidade de cópias. O que vai ser impresso e como vai ser impresso é você quem vai decidir e fazer (utilizando o objeto Printer, de preferência). Abraços, Graymalkin

A figura em questão é um ícone ou uma imagem gif? Abraços, Graymalkin

Sim, creio que ele esvazie a área de memória utilizada para alocar a string toda (exceto pelos bytes necessário para definir que a variável existe). Em todo caso, ao chegar no final do procedimento a memória é liberada de um jeito ou de outro (já que o tempo de vida dessa variável é só dentro da rotina). Abraços, Graymalkin

Não, não há nada de errado com o exemplo. Rnd() * 6 gerará sempre de 0 até 5 e se você somar +1 sempre, terá: 0+1 = 1 1+1 = 2 2+1 = 3 3+1 = 4 4+1 = 5 5+1 = 6 Ou seja, só terá de 1 até 6, de fato. O problema é que você quer começar de um número maior do que 1. Note que se você quiser de 2 até 6, por exemplo, a regra acima não vale. E o mesmo se dará com qualquer número maior que 1. Acho que você ainda não pegou o espírito da coisa. Quanto ao meu exemplo, ele não gera só o número 8. O que pode estar ocorrendo é estar gerando os mesmos números a cada vez que você executa, o que pode ser sanado com o uso de Randomize (antes do uso de Rnd()). Abraços, Graymalkin

Sim. Veja que você manda ele gerar números de 0 a 10 e depois soma 7 aos mesmos. Quando sair um 10 e você soma 7 você obterá 17. Quando sair um 7 e você somar o outro 7 você terá 14. E assim por diante. Só há como especificar o máximo ao utilizar Rnd(), por isso o ideal seria fazer: a = 0 While a < 7 a = Int(Rnd() * 12) Wend Debug.Print a Enquanto o número for menor que 7 ele gerar outros. E, como coloquei *12 é garantido que o número não passará de 11. Abraços, Graymalkin

Isso porque você está criando outro form pai. Você só precisa fazer: Dim Au As New AdUsuario() Au.MdiParent = Me.ParentForm Au.Show() Isso porque o form "pai" (MdiParent) do novo form será o mesmo do form atual (ou seja, Me.ParentForm). Abraços, Graymalkin