Andersonjb

E ai pessoal, vocês podem me dizer qual é o Operador de Concatenação de Strings no C#? E olhem esse IF no C#: if (chrtemp = "b") chrdec = chrdec + "2"; Ta dando erro, porque? Fala que eu não posso converter String para Booleano! :S ! Qual é a maneira correta então de se comparar strings?

E ai pessoal, beleza? Eu estou querendo fazer o seguinte: Digamos que eu tenha dois formulários. Quando um está selecionado, o outro está decelecionado, correto? Eu queria que, ao selecionar o outro formulário (descelecionado), ele executasse uma ação, como mostrar uma MessageBox, por exemplo, e vice e versa, entenderam? Mas bem, qual é o evento que me permite fazer isso?

Voce tem certeza, Gray? Porque aqui isso não mudou em nada... ... Mas olha só, eu digito tres letras, por exemplo A, B e C. "A" eu coloco na primeira linha na primeira coluna, "B" eu coloco na sugunda linha na segunda coluna, e "C" eu coloco na erceira linha na terceira coluna, e na hora de exibir ou salvar, só o "A" e o "B" são mostrados, o "C" desaparece!

Opa, olha o código ai, com o numero de colunas (nc) zerado e a exibição numa TextBox com a propriedade MultLine como True: Dim nc As Integer = 0 Dim texto As String dt = dgdtemte.DataSource For Each linha As DataRow In dt.Rows For Each coluna As DataColumn In dt.Columns nc = nc + 1 If linha(coluna) <> "" Then texto = linha(coluna) If nc <= 16 Then dtemtes = dtemtes & "0" & Hex(nc - 1) & "=" & texto & vbCrLf Else dtemtes = dtemtes & Hex(nc - 1) & "=" & texto & vbCrLf nc = 0 End If End If Next Next MsgBox(dtemtes) TextBox1.Text = dtemtes E não deu certo...

Como é uma caixa Multiline? E outra, tenta gravar o valor da váriavel em um arquivo, ele não vai gravar a ultima String tambem!

E ai, pessoal, olha só que estranho, eu estou atribuindo todos os valores de uma datagrid em uma variavel. Mas o engraçado, é que, se eu tenho 10 valores para serem armazenados, só armazenam os nove primeiros, e o ultimo não é armazenado. não importa quantos conteúdos de células que você tente guardar, o último não é guardado. Deem uma olhada no código: Dim nc As Integer = 0 Dim texto As String Dim dtemtes as string dt = dgdtemte.DataSource For Each linha As DataRow In dt.Rows For Each coluna As DataColumn In dt.Columns nc = nc + 1 If linha(coluna) <> "" Then texto = linha(coluna) If nc <= 16 Then dtemtes = dtemtes & "0" & Hex(nc - 1) & "=" & texto & vbCrLf Else dtemtes = dtemtes & Hex(nc - 1) & "=" & texto & vbCrLf End If End If Next Next MsgBox(dtemtes) Porque isso acontece? Eu estou fazendo alguma coisa de errado ou é normal?

Hé, eu me enganei! Mas assim, os arquivos são abertos como Unicode, correto? Mas e se o arquivo for ASCII, ele tambem, abre normal? E na hora de salvar, ele converte ou salva como Unicode tambem?

Rapaz, há cada dia aprendendo mais! Eu nem imaginava que esse Split Existia... Aproveitando o Post, Gray, pra não cometer Flood, deixa eu perguntar uma coisa: Quando eu abor o arquivo usando uma StringReader, dessa maneira: Dim f As New IO.StreamReader("c:\pasta\arquivo.txt") eu estou abrindo um Arquivo com o formato Ascii, correto? Mas e se eu quissese abrir qualquer tipo de arquivo Unicode, como eu faria???

texto.Split(vbCrLf) O que é isso ? A função Split !

Hum, entendi... mas tem como se me mostrar isso em código pra ficar mais claro ???

Eu tenho que colocar um VbcrLf no final de cada linha, certo? Mas me diz uma coisa: a propriedade Lenght retorna o numero de caracteres, como eu vou saber o numero de linhas dessa maneira?

E ai, pessoal, beleza? É uma duvida besta que eu quebrei a cabeça aqui e não consegui fazer... como eu faço para mim saber a quantidade de linhas do meu arquivo ???

Putz, e eu não percebi isso... Bem, eu colei isso aqui nas declarações da classe, assim: Const RAS_MAXENTRYNAME = 256 Const RAS_MAXDEVICETYPE = 16 Const RAS_MAXDEVICENAME = 128 Const RAS_RASCONNSIZE = 412 Public 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 E essa aqui no Evento Load do Formuário, porque a Sub Form_Load() do VB6 é mesma coisa do evento load do .NET, não é? Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long Dim lpcConnections As Long, hRasConn As Long 'Set the structure's size lpRasConn(0).dwSize = RAS_RASCONNSIZE lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize lpcConnections = 0 'Enumerate all the available connections returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections) If returncode = 0 Then For i = 0 To lpcConnections - 1 hRasConn = lpRasConn(i).hRasConn 'Hang up returncode = RasHangUp(ByVal hRasConn) Next i End If Mas ta dando erro aqui: Dim szEntryName(RAS_MAXENTRYNAME) As Byte Dim szDeviceType(RAS_MAXDEVICETYPE) As Byte Dim szDeviceName(RAS_MAXDEVICENAME) As Byte Ta falando assim: Como assim as Matrizes declaradas na Estrutura não foram declaradas com um tamanho inicial? O que eu tenho que fazer? E aqui, na declaração da Função: (ByVal lpRasConn As Any Erro: O que eu ponho no lugar, ou eu posso tirar, já que não suporta?

Bem, é assim? Private Structure RasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Structure Se for, continua dando errado, porque?

Mas não tem nenhum jeitinho de colocar isso na minha aplicação, ou outra maneira de verificar isso?

Então, me ajuda por partes ai, Gray: Private Type RasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type Como eu faço para declarar tipos no .NET?

E ai pessoal, todo mundo aqui sabe que para rodar uma aplicação da tecnologia .NET nós precisamos do Framework. Mas eu to com uma seguinte dúvida, tem como eu colocar algum arquivo no meu programa e ver se o usuário tem ou não o framework assim que ele é iniciado? Falows!

Achei esse código aqui, que eles falam que serve pra desconcetar: Const RAS_MAXENTRYNAME = 256 Const RAS_MAXDEVICETYPE = 16 Const RAS_MAXDEVICENAME = 128 Const RAS_RASCONNSIZE = 412 Private Type RasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'This program will close your Internet-connection, so to test this, you will have to open an Internet-connection. Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long Dim lpcConnections As Long, hRasConn As Long 'Set the structure's size lpRasConn(0).dwSize = RAS_RASCONNSIZE lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize lpcConnections = 0 'Enumerate all the available connections returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections) If returncode = 0 Then For i = 0 To lpcConnections - 1 hRasConn = lpRasConn(i).hRasConn 'Hang up returncode = RasHangUp(ByVal hRasConn) Next i End If End Sub Mas só falta um dilema aqui: aonde eu coloco isso? já tentei no botão, antes da declaração da classe, e nada... Se pode me falar gray? E aproveitando o tópico, outra duvida: você falou sobre a API RAS. Bem, RAS e o nome da API, correto? Mas o que é uma API? Uma classe?

E ai pessoal, existe alguma classe ou coisa do tipo, comando, função em que eu possa desconectar da internet? valeu, Falows!

Não, eu quero dizer "o projeto" todo, formulários, codigos, etc.

Sim, ele realmente substitui, ele deleta o executavel anterior! E o engraçado é que, mesmo substituindo ele não mudar, ele muda se eu mandar o projeto completo em vez de somente o executável!

Não! Por exemplo: eu to fazendo um programa e to passando o executavel pra um amigo meu testar, até ai beleza, só que quando eu modifico e passo de novo, continua dos mesmo jeito!

E ai Pessoal, queria tirar uma duvida: quando eu faço o meu programa, e quero lançar ele na Net, por exemplo, basta eu lançar o executavel, não é? Mas digamos que eu faça uma atualização no programa, e repasse uma versão 1.1. Mas o que acontece é que quando o usuário abre, o programa não se modifica, continua com a mesma aparencia do programa anterior. O que eu tenho que fazer para solucionar este problema? Falows!

Não entendi ainda, rsrs.

Putz, funcionou! valeu Gray! . Mas eu não entendi bulhufas, o que esse código diz ao meu programa?