Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Posts postados por kuroi

  1. Olha, dependendo do q c quer, isso não é muito recomendavel. Tipo, se c quer passar todos os registros pra uma array, e o banco for muito grande o array pode não aguentar.

    Mas o esquema é criar um array sem definição de indices e depois redimensionar de acordo com a quantidade de registros.

    E depois faça um loop até chegar no fim do seu RecordSet.

    Exemplo:

    Dim array() as String 'Cria um vetor de definições de indice
    Dim Cont as Integer
    
    Redim array(RecordSet.RecordCount-1)
    Cont=0
    
    Do While Not RecordSet.EOF
        array(Cont) = RecordSet!Nome
    
        RecordSet.MoveNext
        Cont=Cont+1
    Loop
    

    Usando o comando ReDim, você redimensiona o seu vetor, a razão do -1 é q o indice comeca a ser contado do 0. Se o seu recordset tiver 5 registros, você vai querer q seu array tb tenha 5 indices, de 0 a 4.

  2. Olha cara, usando programas para windows, não tem como você limpar a tela assim.

    Talvez a sua dúvida seja exatamente a mesma q a minha.

    O q eu quero não é maximizar, e sim fazer com q o programa ocupe toda a tela, desprezando as bordas e as limitações do formulário e sumir com a barra de ferramentas.

    O esquema pra fazer o q c quer seria ocupar toda a tela com seu programa.

    Como se por exemplo, eu tivesse rodando um jogo.

    ....

    ....

    ....

    Pensando melhor... se eu interpretar diferente sua dúvida, talvez dê pra resolver deixando seu form como MDIChild...

    Dê uma olhada no post:

    http://scriptbrasil.com.br/forum/index.php?showtopic=49417

    Talvez o q c queira, seja isso. O Mdi principal será o fundo do seu form, e dentro dele você exibe os forms q você quer. O fundo do Mdi estará em branco...

    Da uma olhada e ve se é isso mesmo...

  3. Qual seu objetivo ao fazer isso? O DOS é diferente do Windows. O q exatamente c quer ao limpar a tela? Quer montar um tipo de prompt? Ou você quer deixar a tela zerada, como s o windows tivesse desligado?

    Se você quer só deixar a tela preta, cria um form com fundo preto e faca com q ele ocupe a tela toda...

    Vou aproveitar seu post pra tirar uma dúvida minha, já q ta relacionada com a sua, e q talvez tb possa te ajudar:

    Alguém sabe como fazer uma janela q ocupe a tela inteira, tipo o Media Player com a opção Tela Cheia, ou uma apresentação de Power Point?

  4. Nesse caso ele procura todos os controles (textbox,command buttons,ect) de um form. Ele cria uma variável controle e procura todos os controle do form.

    Por isso usa-se "each" e "in".

    For Each Control In Form = Para Cada Controle no Formulário

    Você só usa o each pra procurar algo dentro de outra coisa. No caso controles dentro de um form.

    Para acessar arrays faça:

    Dim Cont as Integer
    varArray(10) as string
    For Cont = 0 to 10
         msgbox varArray(Cont)
    Next
    A Variavel Cont comeca com 0, e cada vez q passar no next soma 1 até chegar em 10. Se você não sabe quantos indices tem o array, use a funcao ubound.
    Dim Cont as Integer
    For Cont = 0 to UBound(varArray)
         msgbox varArray(Cont)
    Next

  5. Use a propriedade backcolor.

    Por código, faça:

    Command1.BackColor = H8000000F
    Onde H8000000F é o valor hexadecimal q representa a cor do botão. Para saber qual é o código da cor q c quer, abra a proprieda backcolor do botão (ou de qualquer objeto), ponha em pallete, clique com botao direito, escolha a cor, ponha Add Color, e copie o código q voltou no campo backcolor. Depois pode voltar o botão pra cor original. Para as cores simples você pode usar as constantes vbRed, vbBlack, vbWhite, ect.
    Command1.BackColor = vbRed

    Perceba tb q a propriedade backcolor, quando c abre tem 2 abas. Uma é a system e a outra é pallete. A system usa as cores do windows. C você pegar Button Face por exemplo, a cor padrão do windows é H8000000F. Mas isso pode ser alterado no painel de controle. Pra pegar a cor do sistema c pode usar constantes como vbButtonFace, vbHighLightText, ect.

  6. Q erro ele dá?

    Na hora de fechar o form2 tente por:

    Set x = Nothing

    Não mexo com vb.net, isso é como eu faria no vb. Não sei se no .net é diferente. Provavelmente você deve conseguir fazer isso, mas a sintaxe deve ser diferente.

  7. Graymalkin, tava lendo sua resposta, mas não entendi:

    1 - Como funciona a função split?

    Entendi q você divide a variável s onde ele encontrar o espaço. Mas elementos é uma variável string? Que valor ela recebe, o q está antes do espaço? E se eu quiser pegar o q está depois?

    2 - O q é a variável elemento? Como funciona esse for q c fez?

  8. você digita o texto q quiser na propriedade tooltiptext do objeto. Quando você posicionar o mouse em cima do objeto, ele vai mostrar o texto q você digitou.

    Pra alterar o tooltiptext via codigo faça:

    objeto.ToolTipText="Texto"

    É bem simples, o você tava querendo dizer outra coisa com sua pergunta?

  9. É o seguinte, c adiciona um timer (reloginho na barra de componentes).

    O timer funciona assim:

    c poe na propriedade interval um valor em milsegundos (1 segundo dividido por mil) q representa o tempo q você quer marcar.

    Exemplo:

    Coloque 1000 no interval.

    Clique duas vezes no timer pra criar o evento timer1_timer.

    Toda vez q se passarem 1000 milisegundos (= 1 segundo), o programa vai chamar esse evento.

    Entendeu?

    O timer serve pra chamar um evento toda vez q se passar um tempo q você determinar.

    No caso do programa q c quer fazer, c precisa chamar o evento a cada 15 minutos.

    O problema é que a propriedade interval do timer só aceita valores até um certo limite (q eu não sei qual é, mas não é superior a 5 digitos).

    O esquema é chamar o evento timer1_timer a cada 15 segundos.

    Quando passar por esse evento pela 60ª vez é por q se passaram 15 minutos.

    Entendeu?

    Ou seja, crie uma variavel no general e toda vez que ele passar pelo evento do timer, você soma 1 nela. Quando chegar a 60, você apaga a pasta e zera a variavel, pra poder apagar de novo daqui a 15 minutos.

    Resumindo:

    -Ponha o timer no form.

    -Ponha 15000 na propriedade Interval

    -Clique 2x nele, pra chamar o evento do timer.

    -O seu codigo vai ficar mais ou menos assim:

    Private Sub Timer1_Timer()
        A = A + 1
        If A = 60 Then
            A = 0
            - Apaga Pasta -
        End If
    End Sub
    

×
×
  • Criar Novo...