Decio
-
Total de itens
797 -
Registro em
-
Última visita
Tudo que Decio postou
-
Nem testei pra ver se funciona, mas achei o código abaixo: ' =- Ferramentas VB ' http://www.geocities.com/SiliconValley/Sector/1496/ ' ' Abre o programa associado a um tipo de arquivo. ' ' há duas maneiras para se fazer isso: ' ' 1. Usando o programa Start ValorRetorno = Shell("C:\Windows\Command\Start nomearquivo.extensao") ' ou ValorRetorno = Shell("C:\Windows\Command\Start usuario@provedor.com") ' ou ainda ValorRetorno = Shell("C:\Windows\Command\Start http://www.aaa.com") ' 2. Usando o código abaixo ' Num módulo declare: #If Win32 Then Public Declare Function ShellExecute Lib _ "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long #Else Public Declare Function ShellExecute Lib _ "shell.dll" _ (ByVal hwnd As Integer, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Integer) As Integer #End If Public Const SW_SHOWNORMAL = 1 ' No evento Click de qualquer controle: Dim iret As Long iret = ShellExecute(Me.hwnd, vbNullString, Label1.Caption, vbNullString, "C:\", SW_SHOWNORMAL) ' Exemplos de uso: ' ' -- Substituindo o Label1.Caption por "http://www.vbtools.home.ml.org" irá ' abrir o browser padrão na página da Ferramentas VB. ' ' -- Por "d:\teste.txt" irá abrir o Notepad com esse arquivo.
-
Da uma olhada neste site: http://casadosprogramadores.com.br/compiladores.html No site da Borland você também encontra os softwares que são de dominio publico.
-
Valeu, se alguém souber onde encontrar (se for free) me avisem.
-
Segundo o Help do vbscript: -1 = Valor Opcional. Número das substrings a serem retornadas; indica que todos as substrings serão retornadas. PS:???????? 1 = É igual a constante vbTextCompare que quer dizer que você esta comparando como texto . Poderia também ser de forma binaria.
-
Para tentar te ajudar você precisa colocar um trecho maior do código, tipo como você esta criando o objeto da conexão , o comando SQL que esta usando , etc...
-
Ola, Mostra como você esta abrindo a conexão, no exemplo que eu mostrei, a conexão deve ser aberta com o cursor 3, senão não funciona: RS.CursorType = 3 RS.Open SQL,conn,3,3
-
Eu usei o código abaixo e funcionou: Atenção especial ao servidor de SMTP.Usando um servidor pela internet eu não tentei ainda. Dim Mail As MailSender Set Mail = New MailSender 'Se tudo deu certo, quando teclar o ponto apos digitar Mail , devera aparecer 'todos os métodos disponíveis. Você precisa especificar o endereço e opcionalmente o numero da porta: Mail.Host = "smtp.mycompany.com" Mail.Port = 25 ' Opcional. Porta e 25 por default 'E possível especificar mais de um servidor SMTP . Separe por ponto e virgula: Mail.Host = "smtp.mycompany.com;smtp2.mycompany.com;host.someothercompany.com" 'Neste caso, o AspEmail tenta se conectar com o primeiro servidor, se não for 'possível , tenta se comunicar com o segundo, e assim por diante. 'Se não for possível se conectar com nenhum servidor , será gerado um erro de 'exceção. 'Digite o endereço do remetente: Mail.From = "fulano@mycompany.com" 'Você pode especificar um nome para o remetente (opcional): Mail.FromName = "Sales Department" ' Optional Mail.AddAddress "jsmith@company1.com", "John Smith" Mail.AddCC "bjohnson@company2.com" ' Nome é opcional Mail.Subject = "Sales Receipt" Mail.Body = "Dear John:" & VbCrLf & "Thank you for your business. Here is your receipt." ou Mail.Subject = "Sales Receipt" Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Dear John:....</BODY></HTML>" Mail.IsHTML = True 'Para enviar um anexo junto com a mensagem , use o método de AddAttachment. 'Use este comando quantas vezes forem necessárias para inserir todos os anexos. Mail.AddAttachment "c:\dir\receipt.doc" On Error Resume Next Mail.Send If Err.Number <> 0 Then MsgBox "Ocorreu um erro:" & Err.Description Else MsgBox "Sucesso" End If
-
você esta somando strings e não um valor numérico. tente deixar sua váriavel assim: If strcurso = "Graduação" then strvalor= 70.00 end if '................................. CONFIGURAÇÃO DA TAXA DO BANCO strtaxa = 1.90 ' Define taxa a ser cobrada pelo banco (LINHA 411) '................................. VALOR TOTAL DO BLOQUETO (não alterar) vtotal = strvalor + strtaxa desta forma vtotal será : 71,9
-
Alguém sabe me dizer se o Borland 4.0 é free? E se é para MS-DOS também?? Se for free , onde posso arrumar??
-
Para desabilitar a barra de tarefas pode ser usado o código abaixo: Obs:Não vai resolver todos os problemas , pois se o usuario teclar Ctrl + Esc ,aparece o menu iniciar... ' =- Ferramentas VB ' http://www.geocities.com/SiliconValley/Sector/1496/ ' ' Mostra/Oculta a Barra de Tarefas ' ' Num módulo declare: Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Const SWP_HIDEWINDOW = &H80 Public Const SWP_SHOWWINDOW = &H40 ' Em qualquer ponto do programa chame: ' Para Ocultar: Call SetWindowPos(FindWindow("Shell_TrayWnd", vbNullString), 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ' Para Mostrar: Call SetWindowPos(FindWindow("Shell_TrayWnd", vbNullString), 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
-
Existe duas formas: Existe um arquivo no windows chamado start.exe , que não sei se ele é instalado junto com o Windows por padrão , mas se não for você pode copiar ele de algum que já tenha ele instalado. Este comando abre um artquivo de acordo com a sua extenção. Ai bastaria usar o comando abaixo: X = Shell("start.exe doc.pdf", vbHide) Outra forma seria criar um browser: No VB, vá em Project\components e faça refêrencia para o "Microsoft Internet Controls" Crie um formulário e coloque o componente nele. Para abrir um PDF bastaria digitar a URL browser1.Navigate "c:\meus Doc\Doc.pdf" Em ambos o caso é preciso ter o Acrobat Reader instalados
-
Pra mim esta correto. Antes de enviar a página , tente ver se tem alguma coisa em rstSorteio("dt_sorteio") Como você esta recuperando a informação em em "dt" na outra página?? Tem que ser algo assim: <%MyVar=Request.QueryString("dt")%>
-
Eu faria esta função salvando em banco de dados.Não tem outro jeito melhor. Para saber a quantidade de registro você pode abrir o recordset assim: Dim TotalRegistro Set RS = Server.CreateObject("ADODB.Recordset") SQL = "select * From Tabela WHERE Campo = 'xxx'" RS.CursorType = 3 RS.Open SQL,conn,3,3 TotalRegistro=RS.recordcount
-
Me explica o que você precisa fazer para ver se eu posso te ajudar.Como você faz para incluir o binario em uma variavel char?? No exemplo que eu lhe passei por exemplo se você ler o registrador de status(ready = _inp(Status) e em ready tiver o valor 0x90 por exemplo , em binario seria 1001 0000 , ou seja bastaria converter o valor recebido em hexa para binario . O contrario (de binario para hexa) eu nunca utilizei )
-
Ola. Desculpe se estou falando besteira.É que estou temporariamente sem micro para testar o código, mas você já tentou primeiro dar um Open-Update-Close para depois dar um Open-AddNew-Close??
-
Vou fazer uma pergunta besta: É para rodar no XP ou em outros sistemas ??? Se for para rodar no XP , qualquer aplicação feita em VB vai ficar com a cara do XP.
-
Criar um browser é simples: No VB, vá em Project\components e faça refêrencia para o "Microsoft Internet Controls" Crie um formulário e coloque o componente nele. Alguns comando básicos: Para visitar uma URL: WebBrowser1.Navigate "www.scriptbrasil.com.br" Para voltar: brwWebBrowser.GoBack Para ir uma URL visitada adiante: brwWebBrowser.GoForward Para Atualizar: brwWebBrowser.Refresh Para voltar a págin ainicial: brwWebBrowser.GoHome Para parar: brwWebBrowser.Stop Quanto a desabilitar as teclas, eu vou pesquisar.Eu já vi algumas API's que fazem isso. Não se esqueça: Registre-se em nossa comunidade
-
Bom , fazer sua aplicação carregar junto com o Windows , acho que você pode esquecer .Quem tem estas caracteristicas são os drivers de dispositivos. O máximo que se pode fazer é colocar sua aplicação no iniciar e desabilitar algumas teclas ou a barra de tarefas sei la, algo assim. Para centralizar um form no MDI bastaria você deixar a propriedade dos formularios BorderStyle = 5 que vai entrar maximizado (não sei se é isso que você precisa) Para visualizar páginas você pode fazer refêrencia ao controle Microsoft Internet Control e montar um navegador.Se não souber como se faz isso avisa ai.
-
Você precisa colocar uma variavel no seu código: Tipo assim: Do While Not frmreladia.Data1.Recordset.EOF xlSheet.Cells(5, x) = frmreladia.Data1.Recordset("Tel") x = x + 1 frmreladia.Data1.Recordset.MoveNext Loop
-
Para saber a resolução você pode tentar destas duas formas: Dim sRes As String sRes = (Screen.Width \ Screen.TwipsPerPixelX) & "x" & (Screen.Height \Screen.TwipsPerPixelY) Msgbox " Sua resolução é: " & sRes Ou Dim Largura as Integer, Altura as Integer Largura = Screen.Width / 15 Altura = Screen.Height / 15 Msgbox "Sua resolução é " & Largura & "x" & Altura
-
Me corrijam se eu tiver errado: Eu acho que não tem jeito, pois se você fechar o primeiro form, vai fechar o programa inteiro.O que se pode fazer é deixar este form oculto enquanto se chama outros.