Graymalkin

Não, provavelmente o arquivo já terá o ENTER (chr(13) & chr(10)), que é o vbCrLf, no final de cada linha (se foi gravado em um editor de textos no Windows). Não, você está confundindo com a função Len(). No caso aí, é a propriedade Length, que todo array possui e que diz a quantidade de elementos contidos no mesmo. Abraços, Graymalkin

Você pode me dizer porque esse trecho de código gerou uma exception? Falows! Porque você está tentando alterar a propriedade Text de um objeto (no caso, o form) que foi criado por outro thread. Não é permitido que um thread mexa com objetos de outro thread, a não ser por delegates (por isso que tive que utilizar uma delegate no outro exemplo). Abraços, Graymalkin

Leia ele todo (com o método ReadToEnd() de um objeto StreamReader) para uma string e divida esta pelo caracter separador de linhas (vbCrLf, vbCr ou vbLf) o que vai resultar em um array. Daí basta verificar o tamanho do array (propriedade Length do mesmo). Abraços, Graymalkin

Bom, daqui a aproximadamente um mês vai fazer 2 anos que eu enviei um artigo para ser publicado no sub-portal de VB e até hoje ele não apareceu por lá (nesta mensagem eu até comento sobre isso: http://scriptbrasil.com.br/forum/index.php?showtopic=17505). Aliás, os artigos que estão lá até hoje são os mesmos da época que eu enviei o meu... Por isso, não se preocupe. É provável que o seu artigo não apareça. Abraços, Graymalkin

Para fazer aparecer os checkboxes basta habilitar a propriedade CheckBoxes da ListView. E, para saber os itens marcados, dê uma olhada neste exemplo: For Each elemento As ListViewItem In ListView1.Items If elemento.Checked Then MessageBox.Show(elemento.Text) End If Next Certo? Graymalkin

Basta você alterar os campos (através da coleção Fields do objeto Recordset do ADODC) e depois chamar o método Update(). Exemplo: Adodc1.Recordset.Fields("campo").Value = "novovalor" Adodc1.Recordset.Update Isso supondo, é claro, que você já está com o cursor posicionado no registro desejado. Abraços, Graymalkin

Você pode colocar ambas as classes em um mesmo projeto para poder debugar passo-a-passo o problema, não? Abraços, Graymalkin

Por exemplo: SELECT DateValue(data) AS ndata FROM tabela; Ou: INSERT INTO tabela (data) VALUES DataValue('01/02/2006'); Onde "data" é o campo data. Abraços, Graymalkin

Já experimentou utilizar a função DateValue() dentro das instruções SQL? Talvez ela te retorne a data correta e permita que você cadastre a data corretamente também. Abraços, Graymalkin

Como assim as Matrizes declaradas na Estrutura não foram declaradas com um tamanho inicial? O que eu tenho que fazer? Não é "não foram" e sim "não podem". Experimente declarar tirando o que está entre parênteses (mas deixando estes). O que eu ponho no lugar, ou eu posso tirar, já que não suporta? Experimente colocar As RasConn(). Não sei se vai dar certo, mas eu tentaria isso. Abraços, Graymalkin

Talvez se você sumir com ele da tela (Visible = False), mas não testei. Experimente aí e dê um retorno. Abraços, Graymalkin

Porque é assim: Private Structure RasConn Dim dwSize As Integer Dim hRasConn As Integer Dim szEntryName(RAS_MAXENTRYNAME) As Byte Dim szDeviceType(RAS_MAXDEVICETYPE) As Byte Dim szDeviceName(RAS_MAXDEVICENAME) As Byte End Structure Certo? Graymalkin

Aqui você encontra um jeito de fazer isso se você estiver utilizando o InnoSetup para a criação do programa de instalação: http://www.vincenzo.net/isxkb/modules.php?...=article&sid=82 Abraços, Graymalkin

O antigo Type do VB6 virou Structure no VB.NET. Abraços, Graymalkin

O seu programa nem vai ser iniciado se a .NET Framework não estiver presente. Vai logo dar falta de um arquivo DLL (acho que é "MSCOR" alguma coisa). Abraços, Graymalkin

Aqui você encontra uma idéia geral sobre ambos os tipos: http://www.woodmann.com/crackz/Tutorials/Vbpcode.htm Abraços, Graymalkin

Você tem que observar que este código aí em cima é VB6 e não .NET (se bem que a maior parte vai ser aproveitável). Além disso, acredito que você não vai precisar disso tudo, uma vez que provavelmente você só vai ter uma conexão (e o código acima desconecta mais de uma se for o caso). API significa Application Programming Interface e é um conjunto de funções e rotinas que uma determinada biblioteca ou programa expõe para que sejam utilizadas em outros programas/bibliotecas. No caso, a DLL do código acima (rasapi32.dll) expõe as duas funções que são declaradas no código. Por isso ela é chamada de API. Abraços, Graymalkin

Dê uma olhada na função RasHangUp() da API RAS. No API-Guide (http://www.allapi.net/ ou http://www.mentalis.org/) tem um exemplo dela. Eu mesmo nunca a utilizei. Abraços, Graymalkin

Pela descrição que aparece naquela janelinha amarela (da dica) a classe ThreadPool tem várias utilizações. Se você pudesse dizer exatamente o que quer fazer com ela ficaria mais fácil de ajudar. Abraços, Graymalkin

Uma delegate é um meio de você criar um protótipo para uma função ou rotina que pode ser passada como um parâmetro. É uma delegação porque você estará passando a responsabilidade para a função que quiser. Se quiser depois eu posto um exemplo simples aqui. Imagine a seguinte classe: Public Class ExemploDelegate Public Delegate Function Calcular(ByVal x As Integer) As Integer Private _valor As Integer = 0 Public ReadOnly Property Valor() As Integer Get Return _valor End Get End Property Public Sub New(ByVal c As Calcular, ByVal i As Integer) _valor = c.Invoke(i) End Sub End Class A delegate aí no caso se chama "Calcular". Note que é somente a declaração da função. O que "Calcular" faz? O código acima não nos diz isso, mas a função é chamada no método construtor (c.Invoke(i) é a chamada). Temos a plena certeza de que "Calcular" recebe um inteiro e retorna um inteiro, mas não sabemos o que ela faz com o inteiro recebido e qual vai ser o inteiro retornado. Ou seja, a delegate permite que chamemos uma função que teoricamente não existe, mas que sabemos que irá existir. Se em outra classe qualquer, criarmos as seguintes funções... Public Function ElevarAoQuadrado(ByVal i As Integer) As Integer Return i ^ 2 End Function Public Function ElevarAoCubo(ByVal i As Integer) As Integer Return i ^ 3 End Function Public Function Incrementar(ByVal i As Integer) As Integer Return i + 1 End Function Public Function Decrementar(ByVal i As Integer) As Integer Return i - 1 End Function ... poderemos passá-las para a delegate de forma que a função que realmente vai ser chamada será uma delas. Note que todas as funções acima tem exatamente a mesma assinatura da delegate (recebe um inteiro e retorna um inteiro). Portanto, poderemos fazer o seguinte: Dim obj As ExemploDelegate obj = New ExemploDelegate(AddressOf ElevarAoQuadrado, 2) Debug.WriteLine(obj.Valor) obj = New ExemploDelegate(AddressOf ElevarAoCubo, 2) Debug.WriteLine(obj.Valor) obj = New ExemploDelegate(AddressOf Incrementar, 2) Debug.WriteLine(obj.Valor) obj = New ExemploDelegate(AddressOf Decrementar, 2) Debug.WriteLine(obj.Valor) Estaremos criando objetos da classe ExemploDelegate passando para eles uma função e um valor (como pede o método construtor da classe). No caso da função, na verdade passamos o endereço dela (por isso o operador AddressOf). Dentro da classe, ao chamar um objeto do tipo da delegate, na verdade estaremos chamando a função que foi passada. Sacou? É semelhante ao que existe em C++ sob o nome de "ponteiros para funções". Abraços, Graymalkin

Experimente o seguinte: Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Sub Command1_Click() BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy End Sub Seria isso? Abraços, Graymalkin

com .net é assim tb? Sim, também. Por isso a necessidade de ter a .NET Framework instalada. Abraços, Graymalkin

Sim, também é possível fazer assim: Private WithEvents BW As New System.ComponentModel.BackgroundWorker Private Sub BW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BW.DoWork Do While True DefinirTexto(Now.ToString()) Loop End Sub Abraços, Graymalkin

ele quis dizer q no caso do visual basic, você pode testar o codigo sem compilar. ou seja, o vb interpreta o codigo, sendo q você pode alterar enquanto o progrma esta em execucao. não é isso, graymalkin? Sim, programas em VB não são completamente compilados (daí a necessidade da biblioteca MSVBVM6, que é a Máquina Virtual do VB) e sim interpretados. Rola a compilação para byte-codes, é claro, mas estes byte-codes são interpretados (daí o termo "semi-interpretado"). Abraços, Graymalkin

Você não pode definir isso no seu "sistema de upload"? Abraços, Graymalkin