Jump to content
Fórum Script Brasil

Lameira

Membros
  • Content Count

    77
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Lameira

  • Birthday 05/18/1962

Contatos

Perfil

  • Gender
    Male
  • Location
    Hortolandia / SP
  1. É verdade..., estive pesquisando outros tópicos e na net também, a melhor saída e a mais prática é ter uma tabela só que faça todo o fluxo. valeu!!!
  2. Olá Galera!!! Preciso da ajuda de Mestre!!! Estou montando um projetinho em VB6 de fluxo de caixa, criei duas tabelas, sendo uma para entrada (ent -> numin, codcli, datin, bcoin, chein, valin) e outra para saída (deb -> numout, desout, datout, banout, cheout, valout). Introduzi vários registros em cada uma das tabelas. Eu preciso agora jogar esses registros numa grid demonstrando o fluxo de caixa ($$), os registros devem mostrar por período e deve ser pelo mês anterior, mês atual e por período aleatório. Para os registros de entrada eu estou usando o seguinte código: mês atual: 'pr
  3. Vê se dá certo assim: 'declarações Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const HWND_TOP = 0 Private Const SWP_SHOWWINDOW = &H40 Private Sub Form_Resize() Dim cx As Long Dim cy As Long Dim RetVal As Long Me.WindowsState = vbNormal 'retorna a largu
  4. Ok, Kuroi, abri um novo projeto e segui tua dica e, deu pau também. Será que a última versão do controle activeX (flash.ocx e swflash.ocx) é compatível com o XP SP3??? Minha pergunta é porque depois que formatei a máquina eu baixei esses arquivos da adobe e depois disso eu não posso fazer nenhuma alteração no form que tem o shockwavesplash, se não mexo nele, roda belezinha, mas qualquer alteração, tenho que salvar e ai dá erro, não sei como checar essa compatilibidade... :huh:
  5. Olá feras!!! Mais uma vez apelo aos Mestres deste forum. Eu tinha dificuldade em ajustar as dimensões do meu form com o tamanho do monitor, para cada monitor era necessário ajustar o código: ' ajusta dimensão do componente Image de acordo com a tela imgpri.Width = Me.Width + 2550 imgpri.Height = Me.Height + 1200 imgpri.Left = Me.Left - 2000 imgpri.Top = Me.Top + 2300 ..., achei um código na net e colei no meu form, como segue: ' declarações para ajustar dimensão do formulário com o monitor * http://www.daniweb.com/forums/thread140757.html Private Declare Function SetWin
  6. Tenho um form Splash no meu projeto VB6 e nele coloquei um componente ShockwaveFlash para apresentar um videozinho em flash, baixei o arquivo swflash.ocx e instalei na pasta Windows/system. Adicionei o componente na Caixa de Ferramentas e colei o componente no form; usei o seguinte código: AnimaFlash.Movie = (App.Path & "\arquivo.swf") AnimaFlash.Play AnimaFlash.Loop = False A princípio funcionou bem... Tive que formatar minha máquina, refiz todo procedimento quanto aos arquivos .ocx, porem notei que na Caixa de ferramentas a opção SlockwaveFlash ficou como se fosse uma folha
  7. Kuroi, é o seguinte... o form Principal, quando minimizado, minimiza também os outros formulários; a idéia é deixar os formulários mais independentes do form Principal, deixando-o apenas para chamar os outros forms. Vamos supor que o usuário vai copiar informações de uma tabela, como o form Principal toma toda a tela o ideal seria minimiza-lo e ficar apenas com o form de Cadastro, que é bem menor, aberto. O que acontece é que quando o form Principal é minimizado o de cadastro também é. Pelo que entendi isso não será possível porque o form Cadastro é chamado como "modal", certo? Como então e
  8. ...o form Principal está sendo mostrado como modal principal.Show os demais forms também. A propriedade MDIChild de todos os formulários estão marcados com 'false'. :wacko:
  9. vlw Kuroi, vou colar no meu sistema e testar..., brigadão por mais esta ajuda. :rolleyes:
  10. Olá Kurói!!! realmente eu ainda estou precisando dessa ajuda, e sinceramente eu não sei como fazer esses replaces, se tiver algum exemplo fico grato. vlw
  11. Olá Galera!!! É possível minimizar o form Principal e deixar os outros forms na tela??? Vamos supor, através do form Principal é chamado o form de Cadastro e o usuário queira deixar somente o form de Cadastro na tela; é possível minimizar o form Principal e continuar com o form de Cadastro na tela??? Tenho um sisteminha que quando o form Principal é minimizado todos os outros forms também são (???). Tem como evitar isso??? :rolleyes:
  12. 'imgpri' é um componente Image do Form Principal. Consegui fazer um teste e funcionou, tanto num monitor normal como no widescreen, o form ficou bem dimensionado e posicionado. Vlw pela dica da API GetSystemMetrics. :rolleyes: Só ficou o 'pisca' quando o formulário é iniciado. :blink:
  13. Olá Kurói!!! Valeu pela força (+1x) Dei uma pesquisada e encontrei um código, dá uma olhada como ficou... na declaração do Form foi colocado: Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const HWND_TOP = 0 Private Const SWP_SHOWWINDOW = &H40 e, no Form_Load: Di
  14. Olá galera do bem!!! Tenho mais uma para esse fórum. Existe alguma forma do sistema identificar quando a tela é widescreen ou normal??? Explico..., fiz um sistema no meu notebook que possui tela widescreen e apresentei num computador com monitor normal, ficou bem visível que o sistema não entendeu a mudança e as telas não cabiam na tela do computador. Existe alguma forma disso não acontecer??? Qual é o melhor formato de tela para se elaborar um sistema, widescreen ou normal??? fico no aguardo e agradeço mais essa ajuda. :wacko:
×
×
  • Create New...