Desabilitando o botão Fechar nos forms

Desabilitando o botão Fechar nos forms Adicione o código a seguir em um módulo .BAS: Public Const MF_BYPOSITION = &H400& Public Declare Function RemoveMenu Lib “user32” _ (ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Public Declare Function GetSystemMenu Lib “user32” _ (ByVal hWND As Long, _

Continuar lendo »

Função de arredondamento

Função de arredondamento no Visual Basic A função a seguir efetua o arredondamento em um determinado valor dependendo no número de casas decimais que se entra como parâmetro: Function Arredonda(Valor as double, Casas as integer) as double Arredonda = Int ( Valor * 10^Casas+0.5) / 10^Casas End Function ‘Use desta forma: Arredonda (45.3246, 3) para

Continuar lendo »

Criando Credits Scroll

Criando Credits Scroll Para criar um formulário com que os créditos rolem no Form proceda da seguinte forma: Crie um Form. Adicione um timer ao seu form com o valor do intervalo =1 Tenha 1 label ou mais em seu form (esse código pode rolar figuras, textboxes …) Private Sub Timer1_Timer() Label1.Top = Label1.Top –

Continuar lendo »

Operações via SQL

Operações via SQL A princípio deve-se declarar a variáveis de database e dynaset: Global DBanco as database Global DyRec as dynaset Abrindo o Banco de Dados: Set DBanco = Opendatabase (app.path & “\banco.mdb”) ‘onde banco é o banco de dados Selecionando registros: Set DyRec = DBanco.Createdynaset(“select * from func”) ‘onde func é uma tabela do

Continuar lendo »
Pages:«1...89101112131415