App.TaskVisible = False

Em adição para evitar que o título de uma janela não apareça na barra de tarefas, configure a propriedade ShowInTaskBar do form para False.

Voltar

Você pode tratar o arquivo texto com se fosse uma tabela de um banco de dados. Para isso, crie um arquivo texto chamado "schema.ini". Esse arquivo vai descrever o arquivo "texto.txt". Veja o seu conteúdo:

[texto.txt]
format=FixedLength
Col1=campo1 Text Width 10
Col2=campo2 Text Width 10

A primeira linha informa o nome do arquivo. A segunda o formato e as demais, os campos.

Num formulário do VB,coloque 2 data control, um para o  texto e outro para o mdb, com as seguintes propriedades:

data1: Connect = "text", databasename="C:\", recordsource="texto.txt"
data2: Connect="access", databasename="teste.mdb", recorsource= "tabela1"

Coloque um botão de comando, para realizar a importação.

No evento click , digite:

Do Until Data1.Recordset.EOF
  Data2.Recordset.AddNew
  Data2.Recordset(0) = Data1.Recordset(0)
  Data2.Recordset(1) = Data1.Recordset(1)
  Data2.Recordset.Update
  Data1.Recordset.MoveNext
Loop

Isso vai importar o arquivo texto para a tabela.

Voltar

As vezes desenvolvemos aplicações que necessitam mostrar
a posição do mouse na tela.

Global
      

Type POINTAPI
x As Long
y As Long
End Type

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub GetCursorPos Lib "user32" (lpPoint As POINTAPI)
Global MOUSE_XY As POINTAPI
Global xy_mostrar As Boolean, xy_ocultar As Boolean
 

Sub GetMouse()
Call GetCursorPos(MOUSE_XY)
End Sub
 

Form
 

Call GetMouse
Label1.Caption=MOUSE_XY.y
Label2.Caption=MOUSE_XY.x

Voltar

Global

Declare Function SetSysColors Lib "user32"_ 
 (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Public Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Public Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Public Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Public Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Public Const COLOR_MENU = 4 'Menu
Public Const COLOR_WINDOW = 5 'Windows background
Public Const COLOR_WINDOWFRAME = 6 'Window frame
Public Const COLOR_MENUTEXT = 7 'Window Text
Public Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Public Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Public Const COLOR_ACTIVEBORDER = 10 'Border of active window
Public Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Public Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Public Const COLOR_HIGHLIGHT = 13 'Selected item background
Public Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Public Const COLOR_BTNFACE = 15 'Button
Public Const COLOR_BTNSHADOW = 16 '3D shading of button
Public Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Public Const COLOR_BTNTEXT = 18 'Button text
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Public Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button

Form

result = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(100, 0, 0))

Voltar

Uma das maneiras de testar se um arquivo específico existe é utilizando a função Dir$, com a identificação completa do caminho do arquivo. Dir$ irá retornar o exato nome do arquivo (se existir) ou um nulo, se não existir. Por exemplo:

Voltar

Para facilitar a digitação de maiúsculos, independente do pressionamento de CAPS LOCK, converta cada caracter no evento KeyPress.

Obs.:  Para que esta rotina funcione para todos os campos do form, altere a propriedade KeyPreview do mesmo para true.

Voltar