Ir para conteúdo
Fórum Script Brasil

Danleonhart

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    574

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Danleonhart

  1. Interruptor Lampada Virtual

    em Visual Basic

    Postado · Editado por Danleonhart

    Olá !

    Como assim infinito ?

    Se é no evento "Click" do ToggleButton só vai ser executado quando o mesmo for "clicado"...sem falar que desconheço este componente :unsure:

    Em um botão funcionaria +/- assim:

    Private Sub CommandButton1_Click()

   If CommandButton1.Caption = "Acender !" Then
      Image2.Visible = True
      CommandButton1.Caption = "Apagar !"
   
   Elseif CommandButton1.Caption = "Apagar !" Then
      Image2.Visible = False
      CommandButton1.Caption = "Acender !"
   End If


End Sub

    Isso apenas com um objeto "Image".

    Se não for isso, dá uma explicada melhor... :rolleyes:

    VALEU !

  2. Pesquisa data grid

    em Visual Basic

    Postado · Editado por Danleonhart

    Olá !

    Qual o erro que está apresentando ?

    Analisando seu script vejo que você está usando o curinga nas extremidades da busca, e mais, em consulta a números de telefone...isso quer dizer que se o usuário digitar "7" por exemplo, não importa onde esteja o número 7, o número do telefone será apresentado.

    EX:

    8887-3589

    9930-4575

    9187-3569

    É isso mesmo que você quer ???

    Outro detalhe, utilize a tag "CODE" para colocar os script...fica melhor de entender o código... :rolleyes:

  5. Carregar dados Banco .mdb em textbox

    em Visual Basic

    Postado · Editado por Danleonhart

    Olá luis lpc

    Tem como sim e é até simples de fazer...

    só explique se esses dados que ficarão nas TextBoxes serão alterados...se irão, quando serão ? ao navegar nas linhas do ListView ? :rolleyes:

    Editado:

    Revendo sua dúvida, só para esclarecer, os dados que você quer que apareçam nas TextBoxes estão listadas na ListView ou não ??? :blink:

  8. Bloco txt e Uma unica linha(RESOLVIDO)

    em Visual Basic

    Postado

    Caro Robinho...

    Seguindo a linha de raciocínio segundo suas informações elaborei a seguinte função:

    Function FullText(ByVal caminho As String) As String
Dim FSO As Object
Dim sT As TextStream
Dim tempTexto As String

  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set sT = FSO.OpenTextFile(caminho, ForReading, True)
  
    Do Until sT.AtEndOfStream
       tempTexto = tempTexto & sT.ReadLine
    Loop

 FullText = tempTexto

End Function
    Para chamar a função (mostrando tudo em um TextBox): 
    txt2.Text = FullText("C:\Nada.txt")

    Isso se dentro do ".txt" só contiver as informações que você mostrou...

    se no ".txt" contiver diversas informações, posta aí uns 4 ou 5 blocos de informações para tentar corrigir o script :rolleyes:

  11. Tentaiva de login

    em Visual Basic

    Postado

    Tente deixar a variável que faz a contagem das tentativas "fora" do evento...

    pois toda vez que se pressiona o botão (evento clique) note que ela é "zerada" logo de inicio :rolleyes:

    Ponha no General Declarations:

    Public s As Integer
    E no evento Load do Form: 
    s = 0

    Na verdade coloca se quiser, pois como o VB não é uma linguagem fortemente tipada não é preciso alocar nenhum valor de inicio na variável...a não ser que declare-se o Option Explicit também no General Declarations :mellow: .

    Faz isso aí e dá um retorno...

    se der certo ou não dá um feedback :)

    pois assim saberemos se a ajuda foi útil ou não. Legal.gif

  14. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    Amigo, eu uso um servidor SQL 2008 local apenas para teste...e meu sistema é Win7 32Bits.

    Tenho uma aplicação onde preencho um DataGrid com dados de uma Tabela do BD...

    eu uso o script a seguir...veja se é igual ao seu...funciona 100% :

    Dim SQL As String
Dim con As ADODB.Connection, rs As ADODB.Recordset

Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB;Data Source=DANLEONHART-PC\SQLEXPRESS;Initial Catalog=BASE_USERS;Integrated Security=SSPI;"

SQL = "SELECT * FROM USUARIO"

  Set rs = New ADODB.Recordset
     rs.CursorLocation = adUseClient
     rs.Open SQL, con, adOpenKeyset, adLockReadOnly
     
      With DGrid1
          .Columns(0).Caption = "Nome :"
          .Columns(1).Caption = "Registro :"
          .Columns(2).Caption = "Senha :"
          .Columns(3).Caption = "Nível :"
          .Columns(0).Alignment = dbgLeft
          .Columns(1).Alignment = dbgCenter
          .Columns(3).Alignment = dbgCenter
          .Columns(0).Width = 4000
          .Columns(1).Width = 1000
          .Columns(2).Width = 1700
          .Columns(3).Width = 800
       
      Set .DataSource = rs
            .Refresh
End With

    Testei eliminar a linha ".Refresh" para ver se apresentava algum problema...mas funcionou do mesmo jeito.

    :!:

  21. Executável fecha sozinho

    em Visual Basic

    Postado

    Frata...

    O erro que vi de imediato foi no "Private Sub Command11_Click()"...

    você primeiro descarrega o formulário para depois chamar o outro...faça igual aos outros...

    Primeiro:

    Form3.Show
    Depois: 
    Unload Me
    Outro ponto é no código: 
    Private Sub Command8_Click(Index As Integer)
Form1.Show
Form1.wbrDesiredURL.Navigate "http://emec.mec.gov.br/"
Unload Me
Form6.Show
End Sub

    Porque chamar o "Form1" e depois descarregá-lo ???

    e em seguida chamar o "Form6" ???

    Está estranho...pelo menos para mim... :unsure:

  22. Executável fecha sozinho

    em Visual Basic

    Postado

    Frata...

    Podes ser mais específico ?!

    O quê faz o teu programa ? podes postar o script dele ?

    De dica, só posso te orientar a procurar nele os "desvio de Bug", ou seja, os tratamentos que contém o script ("On Error GoTo..." , "On Error Resume Next") e desabilitá-los para ver se é apresentado algo...

    Ou desinstale a IDE, faça uma limpeza no PC e também nos registros (com CCleaner por exemplo), reinicialize a máquina e reinstale a IDE.

    Bem, eu tentaria essas opções de inicio :rolleyes: .

×
×
  • Criar Novo...