Decio

Ve se é isso que você precisa: No evento GotFocus: Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)

O que você vai precisar mesmo é de uma boa documentação da impressora. No caso da Bematech , pode ser mais simples pois o fabricante disponibiliza drivers para seus produtos para vários sistemas operacionais. da uma olhada no site deles: http://www.bematech.com.br/suporte/dwn_fisc.asp Quanto a Daruma, eu não conheço. No mais, Boa Sorte.

porque Vb com MySql ?? A partir da hora que você criou a conexão ,você usa os mesmos comando que você usaria com SQL, Access etc... Se você quer aprender a lidar com MySql , deve procurar apostilas apenas para este banco de dados ,que existem várias.

Tenho este código simples: Function Criptografia(ByVal StrTexto As String) As String Dim i Dim nCar Dim cCar ChavePar = 256 ChaveImpar = 255 If ChavePar < 1 Or ChavePar > 255 Then ChavePar = 25 If ChaveImpar < 1 Or ChaveImpar > 255 Then ChaveImpar = 33 cCar = "" For i = 1 To Len(StrTexto) If i / 2 = Int(i / 2) Then nCar = Asc(Mid(StrTexto, i, 1)) Xor ChavePar Else nCar = Asc(Mid(StrTexto, i, 1)) Xor ChaveImpar End If cCar = cCar + Chr(nCar) Next Criptografia = cCar End Function para fazer a chamada: 'Cript. Cript = Criptografia("SuaSenha") MsgBox Cript 'Des. DCrip = Criptografia(Cript) MsgBox DCrip PS: A Aline e a @line são a mesma pessoa?

Claro. Eu pessoalmente não conheço uma forma de alterar o botão do InputBox, e também não gosto da cara dele. Quando eu preciso que algum usuario entre com dados, eu faço desta forma que lhe falei. você perde um pequeno tempo para fazer , mas depois pode reaproveitar em outros programas.A vantagem é que você pode fazer o que quizer no form: incluir figuras,cor,som,etc...

você pode fazer um outro formulario da forma que você quizer para substituir o inputbox.Basta chama-lo no lugar do inputbox como modal e declarar as váriaveis como publica para recupera-las em qualquer formulario do seu programa.

Nosso amigo FRANCISCO BRITO respondeu a sua pergunta. Entre no site e baixe uma versão do API-GUIDE que com certeza você tera uma boa fonte de pesquisa. o site que o lxl_igor_lxl indicou também é legal.Vale uma visita.

Acho que a sua dúvida foi respondida em outro tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=31062

Legal. É assim que se aprende.

Segundo as informações do Site Api-Guide, esta API funciona para todas as versões do Windows. No meu caso eu testei no Windows 2000 e funcionou. A unica observação é que a fonte do micro tem que ser padrão ATX , é claro , pois caso contrário , não tem como o micro ser desligado.

A atualização esta em segundos.No caso você colocaria 1 para cada segundo. Quanto a outra pergunta, acho que já foi bem respondida pelos nossos colegas.

Tenta fazer assim: No form 2 crie a seguinte função: Public Sub testeObj(ByVal myObj As Object) MsgBox myObj("seuCampo") End Sub No formulario que você já criou o resultset passe o parametro desta forma: Form2.testeObj (rs) Note que para passar um parametro de um objeto, a função deve estar preparada para isso. Espero que resolva seu problema.

Para ficar sempre atualizado, você pode usar este código HTML: <meta http-equiv="refresh" content="100;URL=index.asp"> Altere o content=xx para o tempo que você quer para dar refresh. Quanto a outra pergunta, não entendi direito. você vai fazer tipo uma lista com todas as ligações para a telefonista dar baixa?? Se for o caso, acho que ficaria mais legal você criar um link na lista de ligações ao invéz de botões.

você pode olhar na Brasoftware. Faça uma busca por "Crystal Reports" . http://www.brasoftware.com.br/

O que você precisa fazer mais precisamente??

O Crystal Report não é exatamente um software free. Qualquer versão que achar por ai deve ser pirata. você pode usar o ReportX , que tem uma versão grátis . Caso não conheça , da uma olhada aqui: http://www.joinbit.com/reportx/index.asp

Da uma olhada neste link: http://www.techgear007.net/pageslite/infor...issingfiles.php Registre-se na comunidade.

Na verdade, sera mostrado todos caracteres de 0 a 255 que não forem de A a Z

Minha sugestão é: SQL = "SELECT Nome,ID,Senha FROM Recursos " ...etc... Se você fizer um select somente pelo campo nome, os campos ID e Senha não podem ser usados.

você pode fazer isso com a API ExitWindows do Windows: 'In general section Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title) If msg = vbCancel Then End 'reboot the computer ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0) End Sub

você tentou fazer o que o nosso colega sugeriu para ver o que acontece? você pega o texto da mesma forma que pegaria se não tivesse mudado esta propriedade.O que muda é apenas a visualização na tela.

Tentou declara-la como "extern" no outro form??

Da uma olhada neste site: http://www.netfontes.com.br/ Na busca digite interleave.

você pode usar um if a mais: If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then If KeyAscii <> 8 Then KeyAscii = 0 End If

'Digite o código abaixo , copile o programa e quando chama-lo, passe um parametro. Private Sub Form_Load() Dim ParRec As String ParRec = Command$ MsgBox ParRec End Sub 'Crie um form1 e um form2: ' Coloque o código abaixo no form1: Private Sub Form_Load() Form2.Teste ("Ola") End Sub ' Coloque o código abaixo no form2: Public Function Teste(ByVal strValor As String) MsgBox strValor End Function