Visual Basic

Re: having problems (Public Shared Sub ShowTcpStatistics) Statement cannot within method body. End of method assumed// which is affecting my txtbox.Text

2-Aug-09 10:59

Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Text

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Public Shared Sub ShowTcpStatistics(ByVal version As NetworkInterfaceComponent)
Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Dim tcpstat As TcpStatistics = Nothing
txtbox.Text("")
Select Case version
Case (NetworkInterfaceComponent.IPv4)
tcpstat = properties.GetTcpIPv4Statistics()
txtbox.Text("TCP/IPv4 Statistics:")
Exit Select
Case (NetworkInterfaceComponent.IPv6)
tcpstat = properties.GetTcpIPv6Statistics()
txtbox.Text("TCP/IPv6 Statistics:")
Exit Select
Case Else
Throw (New ArgumentException("version"))
' break;
End Select
txtbox.Text(" Minimum Transmission Timeout............. : {0}", tcpstat.MinimumTransmissionTimeout)
txtbox.Text(" Maximum Transmission Timeout............. : {0}", tcpstat.MaximumTransmissionTimeout)

txtbox.Text(" Connection Data:")
txtbox.Text(" Current ............................ : {0}", tcpstat.CurrentConnections)
txtbox.Text(" Cumulative .......................... : {0}", tcpstat.CumulativeConnections)
txtbox.Text(" Initiated ........................... : {0}", tcpstat.ConnectionsInitiated)
txtbox.Text(" Accepted ............................ : {0}", tcpstat.ConnectionsAccepted)
txtbox.Text(" Failed Attempts ..................... : {0}", tcpstat.FailedConnectionAttempts)
txtbox.Text(" Reset ............................... : {0}", tcpstat.ResetConnections)

txtbox.Text("")
txtbox.Text(" Segment Data:")
txtbox.Text(" Received ........................... : {0}", tcpstat.SegmentsReceived)
txtbox.Text(" Sent ................................ : {0}", tcpstat.SegmentsSent)
txtbox.Text(" Retransmitted ....................... : {0}", tcpstat.SegmentsResent)

txtbox.Text("")
End Sub

Christian Graus2-Aug-09 11:45

Re: having problems (Public Shared Sub ShowTcpStatistics) Statement cannot within method body. End of method assumed// which is affecting my txtbox.Text

2-Aug-09 11:45

You should buy a very basic book and work through it berfore continuing this task.

You have a sub inside a sub. Remove the button4_click sub, or put an end sub at the bottom of it.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Dave Kreskowiak2-Aug-09 11:46

Dave Kreskowiak

2-Aug-09 11:46

I think the cause of the error is really quite obvious. You didn't terminate your Protected Sub Button4_Click() method with an End Sub before you started with Public Shared Sub ShowTcpStatistics().

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

that_dude_tj2-Aug-09 12:32

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 12:32

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
ShowTcpStatistics(txtB.Text)
End Sub
Public Shared Sub ShowTcpStatistics(ByVal version As NetworkInterfaceComponent)
Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Dim tcpstat As TcpStatistics = Nothing
txtbox.Text = ""
For Each tcp As TcpStatistics In tcpstat
txtbox = tcp.ToString()

Next
Select Case version
Case (NetworkInterfaceComponent.IPv4)
tcpstat = properties.GetTcpIPv4Statistics()
txtbox.Text("TCP/IPv4 Statistics:")
Exit Select
Case (NetworkInterfaceComponent.IPv6)
tcpstat = properties.GetTcpIPv6Statistics()
txtbox.Text("TCP/IPv6 Statistics:")
Exit Select
Case Else
Throw (New ArgumentException("version"))
' break;
End Select
txtbox.Text(" Minimum Transmission Timeout............. : {0}", tcpstat.MinimumTransmissionTimeout)
txtbox.Text(" Maximum Transmission Timeout............. : {0}", tcpstat.MaximumTransmissionTimeout)

txtbox.Text(" Connection Data:")
txtbox.Text(" Current ............................ : {0}", tcpstat.CurrentConnections)
txtbox.Text(" Cumulative .......................... : {0}", tcpstat.CumulativeConnections)
txtbox.Text(" Initiated ........................... : {0}", tcpstat.ConnectionsInitiated)
txtbox.Text(" Accepted ............................ : {0}", tcpstat.ConnectionsAccepted)
txtbox.Text(" Failed Attempts ..................... : {0}", tcpstat.FailedConnectionAttempts)
txtbox.Text(" Reset ............................... : {0}", tcpstat.ResetConnections)

txtbox.Text("")
txtbox.Text(" Segment Data:")
txtbox.Text(" Received ........................... : {0}", tcpstat.SegmentsReceived)
txtbox.Text(" Sent ................................ : {0}", tcpstat.SegmentsSent)
txtbox.Text(" Retransmitted ....................... : {0}", tcpstat.SegmentsResent)

txtbox.Text("")
End Sub

Christian Graus2-Aug-09 13:58

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 13:58

that_dude_tj wrote:
txtbox.Text("TCP/IPv4 Statistics:")

Does this work ? What does it do ?

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

nlarson112-Aug-09 16:26

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 16:26

not sure why he wrote that. it does not work. text has an overload but it only extracts the character position at the given number textbox1.text(3)

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

Christian Graus2-Aug-09 16:42

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 16:42

OK, that's interesting. It's a property AND a method ? I didn't know that. Either way, his response looked to me like a further question, but no question was present, so I was trying to guess the problem

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

nlarson112-Aug-09 17:13

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 17:13

I just tried it. It probably is 2 properties that are overloaded 'a' = text for the example

Public ReadOnly Property a(ByVal idx As Int16) As String
    Get
        'extracts character at position
    End Get
End Property

Public Property a() As String
    Get

    End Get
    Set(ByVal value As String)

    End Set
End Property

0x3c03-Aug-09 0:57

0x3c0

3-Aug-09 0:57

I'm not certain, but I think it's just a property. It returns String, and the String object has a built in indexer. Just like you could have a List(Of List(Of Integer)), and use lst(0)(1) and get an Integer back

Between the idea
And the reality
Between the motion
And the act
Falls the Shadow

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

that_dude_tj2-Aug-09 17:11

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 17:11

No not working yet it suppose to display Internet Protocol version 4 (TCP/IPv4) statistical data for the local computer to my textbox name txtbox. i used this in the ping and it worked fine

Dim ping As Ping = New Ping()
Dim pingreply As PingReply = ping.Send(txtHost.Text)
txtPing.Text &= "Address: " & pingreply.Address.ToString() & Constants.vbCr
txtPing.Text &= "Roundtrip Time: " & pingreply.RoundtripTime & Constants.vbCr
txtPing.Text &= "TTL (Time to Live): " & pingreply.Options.Ttl & Constants.vbCr
txtPing.Text &= "Buffer Size: " & pingreply.Buffer.Length.ToString() & Constants.vbCr

Dave Kreskowiak2-Aug-09 16:56

Dave Kreskowiak

2-Aug-09 16:56

So what's this?? You didn't ask a question and I'm not inclined to just start throwing test apps together to guess what you want out of this...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

that_dude_tj2-Aug-09 17:01

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 17:01

lol my question is then i would be. that im unable to display the tcp statistics in my text box

Christian Graus2-Aug-09 17:07

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 17:07

I responded four hours ago to try to keep helping you, but you didn't even reply ?

You need to read a pretty basic VB.NET book. You seem to be making code up instead of knowing what you're doing. The best way to do what you want, is use a StringBuilder to build the message, as it's multiline from what I can tell, and then set that text to the Text property.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

that_dude_tj2-Aug-09 17:12

Re: txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class.

2-Aug-09 17:12

Thanks ill get to reading

Dave Kreskowiak3-Aug-09 2:01

Dave Kreskowiak

3-Aug-09 2:01

Your textbox lines are a bit funny. You seem to think there is a .Text method on it, but .Text is actually a property. Since you keep replacing the .Text property with a new line of text, the last line you supply is blank, so nothing will show up in the textbox.

Serisouly, pickup a beginners book on VB.NET. You're missing some really basic concepts that we really can't describe to you in forum posts.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

string

john56322-Aug-09 8:46

john5632

2-Aug-09 8:46

Hi,

How to enum each charcter of string.

I am trying but getting error:

For i = 0 To Len(s) - 1
c = c Xor s[i] 'error here
Next i

Henry Minute2-Aug-09 9:13

Henry Minute

2-Aug-09 9:13

What is the error.

If you want people to help you, you must help them!

A lot of CP members would be able to guess the error correctly, but most can't.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Christian Graus2-Aug-09 11:46

2-Aug-09 11:46

You can use for each to more succinctly move through a string. VB does not use [] or <>, it's designed for non programmers and always uses ().

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Luc Pattyn2-Aug-09 12:03

Luc Pattyn

2-Aug-09 12:03

(

)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

nlarson112-Aug-09 13:38

2-Aug-09 13:38

you cannot use "for each" to go through the content of a string. if it was a string array then yes but not a single string.

"designed for non programmers" Dead | X|

Christian Graus2-Aug-09 13:55

2-Aug-09 13:55

Really ? I didn't realise VB sucked like that. In C#, we can use foreach to iterate through the chars of a string.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

Johan Hakkesteegt2-Aug-09 20:23

Johan Hakkesteegt

2-Aug-09 20:23

It doesn't actually suck that much, with VB you can iterate through the characters in a string no problem. I think Larson was just being nit picky. I.e. you would have to convert the string to an array of characters (SomeString.ToCharArray()) before you can iterate through it.

My advice is free, and you may get what you paid for.

nlarson112-Aug-09 13:36

2-Aug-09 13:36

You can't go through a string like that. You need to "extract" each character by using either substring or mid.

For i = 0 to s.length -1
c = c Xor s.substring(i,1)
Next

try that?

Christian Graus2-Aug-09 14:08

2-Aug-09 14:08

<br />
       Dim s As String = "this is a string"<br />
        Dim n As Integer = 0<br />
        Dim c As Char<br />
<br />
        For Each c In s<br />
<br />
            n = n Xor Microsoft.VisualBasic.Val(c)<br />
<br />
        Next<br />

VB is as nasty as I remember it, but it can indeed step through the characters of a string.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

nlarson112-Aug-09 16:21