PROBLEMAS COM MIGRACAO PARA VB.NET 2008
Ola pessoal mais uma vez esou aqui para requisitar informações.
Inciei a migração de meu sistema de controle de estoque, na verdade ainda estou migrando os modulos e funções e me deparei com duas que não encontri na net. Bom vamos la:
[txt-size=1]
1ª[/txt-size]: Antigamente em Vb6 eu usava assim para retornar alguma informação de meu site na web para o sistema sem tem que abrir o internet explorer:
With Inet1
.AccessType = icUseDefault
.Proxy = [Ô][Ô]
.Protocol = icHTTP
Temp = .OpenURL([Ô]http://www.meuendereco.com.br/teste.asp)
End With
Msgbox Temp
Dúvida: como que faz isso em Vb.net 2008;
[txt-size=1]
2ª[/txt-size] Estou penando na abertura do relatório em activereports (para vb.net) maximizado no mdiparent.
se alguem puder me ajudar com uma dessas informações fico grato
Boa noite a todos
Inciei a migração de meu sistema de controle de estoque, na verdade ainda estou migrando os modulos e funções e me deparei com duas que não encontri na net. Bom vamos la:
[txt-size=1]
1ª[/txt-size]: Antigamente em Vb6 eu usava assim para retornar alguma informação de meu site na web para o sistema sem tem que abrir o internet explorer:
With Inet1
.AccessType = icUseDefault
.Proxy = [Ô][Ô]
.Protocol = icHTTP
Temp = .OpenURL([Ô]http://www.meuendereco.com.br/teste.asp)
End With
Msgbox Temp
Dúvida: como que faz isso em Vb.net 2008;
[txt-size=1]
2ª[/txt-size] Estou penando na abertura do relatório em activereports (para vb.net) maximizado no mdiparent.
se alguem puder me ajudar com uma dessas informações fico grato
Boa noite a todos
1. Obter código fonte de uma página da web
Projeto em VB.NET que ilustra como obter o código fonte da página.
Download
2. Porque não utiliza o CRYSTAL REPORTS ou o REPORT VIEWER?
Projeto em VB.NET que ilustra como obter o código fonte da página.
Download
2. Porque não utiliza o CRYSTAL REPORTS ou o REPORT VIEWER?
Ola grande Tecla, assim o problema do inet ja resolv, segue o codigo pra que interessar:
Public Function Inet(ByVal tURL As String) As String
Dim url As String = tURL
[ô] Creates an HttpWebRequest for the specified URL.
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
[ô] Sends the request and waits for a response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
[ô] Calls the method GetResponseStream to return the stream associated with the response.
Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding([Ô]utf-8[Ô])
[ô] Pipes the response stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(receiveStream, encode)
Dim read(256) As [Char]
[ô] Reads 256 characters at a time.
Dim count As Integer = readStream.Read(read, 0, 256)
Dim str As New [String](read, 0, count)
While count > 0
[ô] Dumps the 256 characters to a string and displays the string to the console.
str = New [String](read, 0, count)
Console.Write(str)
count = readStream.Read(read, 0, 256)
End While
Return str
End Function
Com relação ao active reports, eu prefiro ele pois, o meu sistema em vb6, usa ele para todos os relatórios, então ficara facil a migração para a .net.
Agradecido assim mesmo
Public Function Inet(ByVal tURL As String) As String
Dim url As String = tURL
[ô] Creates an HttpWebRequest for the specified URL.
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
[ô] Sends the request and waits for a response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
[ô] Calls the method GetResponseStream to return the stream associated with the response.
Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding([Ô]utf-8[Ô])
[ô] Pipes the response stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(receiveStream, encode)
Dim read(256) As [Char]
[ô] Reads 256 characters at a time.
Dim count As Integer = readStream.Read(read, 0, 256)
Dim str As New [String](read, 0, count)
While count > 0
[ô] Dumps the 256 characters to a string and displays the string to the console.
str = New [String](read, 0, count)
Console.Write(str)
count = readStream.Read(read, 0, 256)
End While
Return str
End Function
Com relação ao active reports, eu prefiro ele pois, o meu sistema em vb6, usa ele para todos os relatórios, então ficara facil a migração para a .net.
Agradecido assim mesmo
Tópico encerrado , respostas não são mais permitidas