Ir para conteúdo
Fórum Script Brasil

cassitos

Membros
  • Total de itens

    43
  • Registro em

  • Última visita

Posts postados por cassitos

  1. lembro de quando participei de um projeto aqui na empresa. tivemos um problema como esse...

    mas só que não era hardware nem outro programa que entrava em conflito ou coisa assim... era erro de programação... tongue.gif

    alguém num certo trecho do código pôs:

    Banco.Execute InstruçãoSQL,Conexão blink.gif

    pronto, foi o suficiente p/ dá este erro. demorou mas encontramos onde estava o erro.

    então, além das dicas acima, fica de olho se é sempre na mesma função ou tela.

  2. /* Bom Dúvido que será innoDB pois essas são mais utilizadas para FK e acho que não é o caso, sem contar as diretivas a serem editadas para utilização de innodb */

    positivo.

    trabalhar com innodb tem detalhes a mais, já que é uma estrutura específica p/ FK como foi citado.

    apanhei um pouco p/ me acostumar com InnoDB usando tanto tempo o MyISAM.

    então é isso aew.

  3. Ah, então é isso, só funciona no XP hehehe

    mas vem cá, isso funciona em todos os formularios né? não é só no principal não né...?

    até

    fará para todos os formulários.

    este principal é só para dar início ao programa.

  4. este estilo só funcionar se o sistema for executa no WindowsXP smile.gif

    num módulo crie as funções citadas acima.

    aki:

    FrmPrinicpal.Show

    ponha o nome do formulário inicial do seu projeto, este nome é só um exemplo.

    Nas propriedades do Projeto, em Startup Objetc selecione o Sub Main.

    Agora o mainfest, eu por exemplo deixo no mesmo diretório do sistema(projeto) com o mesmo nome: SISTES.exe.mainfest, este é o nome do arquivo.

    agora crie um executável do projeto e confira se está no estilo xp.

    no exemplo do site observem que:

    o nome do executável(sistema) é XPStylesTester.exe

    e o nome do arquivo mainfest é XPStylesTester.exe.manifest

  5. duas opções...

    tem.

    ex.:

    Msgbox "Teste",VbYesNo

    Msgbox "Teste",VbYesNoCancel

    Msgbox "Teste",vbOKCancel

    você pode ainda adicionar o ícone de interrogação, exclamação ou crítico.

    tipo

    Msgbox "Teste",VbYesNo + VbQuestion

    Msgbox "Teste",VbYesNo + VbExclamation

    Msgbox "Teste",VbYesNo + VbCritical

  6. eu também uso este estilo xp.

    no módulo tem estas declarações:

    'deixar o sistema com estilo XP

    Public Type tagInitCommonControlsEx

      lngSize As Long

      lngICC As Long

    End Type

    Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean

    Public Const ICC_USEREX_CLASSES = &H200

    Public Sub Main()

      ' we need to call InitCommonControls before we

      ' can use XP visual styles.  Here I'm using

      ' InitCommonControlsEx, which is the extended

      ' version provided in v4.72 upwards (you need

      ' v6.00 or higher to get XP styles)

      On Error Resume Next

      ' this will fail if Comctl not available

      '  - unlikely now though!

      Dim iccex As tagInitCommonControlsEx

      With iccex

          .lngSize = LenB(iccex)

          .lngICC = ICC_USEREX_CLASSES

      End With

      InitCommonControlsEx iccex

     

      ' now start the application

      On Error GoTo 0

      FrmPrinicpal.Show

    End Sub

    e no mesmo diretório do sistema, o mainfest. o nome do arquivo(mainfest) de preferencia estar igual ao executável(sistema).

    fonte: www.vbaccelerator.com

    http://www.vbaccelerator.com/home/VB/Code/...nifest_File.asp

    flws

×
×
  • Criar Novo...