Como importar um arquivo texto para uma tabela do Access
Nesta matéria do WebMundi.com, você aprenderá como importar um arquivo texto para uma tabela do Access utilizando a linguagem de programação Visual Basic.
-
-
Como Criar um Formulário sem Barra de Título no Visual Basic
Em algumas aplicações, pode ser útil criar uma janela sem barra de título, especialmente para telas de login, splash screens ou interfaces personalizadas. No Visual Basic, isso pode ser feito ajustando algumas propriedades do formulário. Configuração do Formulário Para ocultar a barra de título, configure as seguintes propriedades do Form no Visual Basic: Explicação das…
-
Ativando o Caps lock via código
Ativando o Caps lock via código 1a. Parte: Insira o seguinte código nas declarações gerais de um módulo .BAS Public Const VK_CAPITAL = &H14 Public Type KeyboardBytes kbByte(0 To 255) As Byte End Type Public kbArray As KeyboardBytes Public Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Long Public Declare Function GetKeyboardState Lib…
-
Verificar a existência de placa de som
Verificar a existência de placa de som Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long Dim res As Integer res = waveOutGetNumDevs() If res > 0 Then msgbox “Existe Placa de Som” Else msgbox “Não Existe Placa de Som” End If
-
Como Alterar o Cursor do Mouse para Ampulheta no Delphi
Alterando o Cursor do Mouse no Delphi Se você precisa indicar visualmente que um processo está em execução, uma boa prática é alterar o cursor do mouse para uma ampulheta. No Delphi, isso é muito simples e pode ser feito com o comando: Após a finalização do processo, é importante restaurar o cursor para a…
-
Verificando a conexão de Internet via Delphi
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um componente TCP no Form, e digite o código: if (TCP1.LocalIP = ‘0.0.0.0’ or TCP1.LocalIP = ‘127.0.0.1’) then ShowMessage(‘Computador não está conectado na Internet’) else ShowMessage(‘Computado conectado na Internet’)
-
Como Ocultar e Mostrar o Cursor do Mouse em Delphi
Como Ocultar e Mostrar o Cursor do Mouse em Delphi Controlar a visibilidade do cursor do mouse pode ser útil em várias situações, como em jogos, aplicações de tela cheia, ou interfaces personalizadas. Em Delphi, podemos fazer isso utilizando a função ShowCursor da API do Windows. Este post mostrará como você pode ocultar e exibir…
-
Converte String em Pchar
Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex] of PChar; RingIndex: TRingIndex; Ptr: PChar; begin Ptr := @Str[Length(Str)]; Inc(Ptr); if Ptr^ = #0 then begin Result := @Str[1]; end else begin Result := StrAlloc(Length(Str)+1); RingIndex := (RingIndex + 1) mod (High(TRingIndex) + 1);…
-
Escreve na diagonal
Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf : TFont; begin with Form1.Canvas do begin Brush.Style := bsClear; Font.Name := FName; Font.Size := Fsize; Font.Color := Fcor; tf := TFont.Create; tf.Assign(Font); GetObject(tf.Handle, sizeof(lf), @lf); lf.lfEscapement := Pos; lf.lfOrientation := Land; lf.lfQuality := 1; tf.Handle…
-
Enviando arquivos para a lixeira
Enviando arquivos para a Lixeira Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina abaixo: uses ShellAPI; {insira na cláusula uses de sua unit} function MandaParaALixeira (Arquivo : String) : Boolean; var FOS : TSHFileOpStruct; begin FillChar(FOS, sizeof(FOS), 0); with FOS do begin wFunc := FO_DELETE; pFrom := PChar…
-
5 Dicas de Delphi
5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. Verificando se uma data esta em um final de semana Esta função testa se a data informada como parâmetro está em um fim de semana (Sábado ou Domingo).Em caso de positivo retorna True. Se não retorna False Function FimdeSemana (dData :…
-
Formata valor numérico inserindo mascaras de ponto.
Formata valor numérico inserindo mascaras de ponto. function FormatNumber(l: longint): string; var len, count: integer; s: string; begin str(l, s); len := length(s); for count := ((len – 1) div 3) downto 1 do begin insert(‘.’, s, len – (count * 3) + 1); len := len + 1; end; FormatNumber := s; end;
