-
Apr 29th, 2006, 05:02 PM
#1
Thread Starter
Member
help translating to vb.net
i found this code in c#.net and i need help translating it vb.net
VB Code:
{
// query the selected server
GameServerInfo.GameType type = (GameServerInfo.GameType)Enum.Parse( typeof( GameServerInfo.GameType ), cbGametype.SelectedValue.ToString() );
GameServerInfo.GameServer server = new GameServerInfo.GameServer( tbHost.Text, Int32.Parse(tbPort.Text), type );
server.DebugMode = true;
server.QueryServer();
// Clear old stuff
tbInfos.Text = "";
lvPlayers.Items.Clear();
lvParams.Items.Clear();
if ( !server.IsOnline )
{
MessageBox.Show( "server is offline or not responding" );
return;
}
foreach ( GameServerInfo.Player player in server.Players )
{
ListViewItem lvItem = new ListViewItem( new string[] {
GameServer.CleanName( player.Name ), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString()
} );
lvPlayers.Items.Add( lvItem );
}
foreach ( DictionaryEntry de in server.Parameters )
{
ListViewItem lvItem = new ListViewItem( new string[] {
de.Key.ToString(), de.Value.ToString()
} );
lvParams.Items.Add( lvItem );
}
PropertyInfo[] props = server.GetType().GetProperties( BindingFlags.Public | BindingFlags.GetField | BindingFlags.Instance );
foreach ( PropertyInfo prop in props )
{
try
{
object obj = prop.GetValue( server, null );
if ( obj.ToString().IndexOf( "Collection" ) != -1 )
{
continue;
}
tbInfos.Text += prop.Name + " - " + obj.ToString() + "\r\n";
}
catch ( TargetInvocationException )
{ }
catch ( NullReferenceException )
{ }
}
}
private void tbHost_TextChanged(object sender, EventArgs e)
{
if ( tbHost.Text.IndexOf(":") == -1 )
{
return;
}
int sep = tbHost.Text.IndexOf( ":" );
tbPort.Text = tbHost.Text.Substring( sep + 1 );
tbHost.Text = tbHost.Text.Substring( 0, sep );
}
}
}
please reply with any questions needed to help resolve this...
-
Apr 29th, 2006, 05:08 PM
#2
Addicted Member
Re: help translating to vb.net
these should help you initially convert the code, and then any problems that arise you might post back here
http://www.developerfusion.co.uk/uti...sharptovb.aspx
http://www.carlosag.net/Tools/CodeTr...r/Default.aspx
Dreaming men are haunted men.
-
Apr 29th, 2006, 05:39 PM
#3
Re: help translating to vb.net
Our Instant VB C# to VB converter produces:
(you were missing the first method header, so I used 'MissingMethodHeader')
VB Code:
Private Sub MissingMethodHeader()
' query the selected server
Dim type As GameServerInfo.GameType = CType(System.Enum.Parse(GetType(GameServerInfo.GameType), cbGametype.SelectedValue.ToString()), GameServerInfo.GameType)
Dim server As GameServerInfo.GameServer = New GameServerInfo.GameServer(tbHost.Text, Int32.Parse(tbPort.Text), type)
server.DebugMode = True
server.QueryServer()
' Clear old stuff
tbInfos.Text = ""
lvPlayers.Items.Clear()
lvParams.Items.Clear()
If (Not server.IsOnline) Then
MessageBox.Show("server is offline or not responding")
Return
End If
For Each player As GameServerInfo.Player In server.Players
Dim lvItem As ListViewItem = New ListViewItem(New String() { GameServer.CleanName(player.Name), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString() })
lvPlayers.Items.Add(lvItem)
Next player
For Each de As DictionaryEntry In server.Parameters
Dim lvItem As ListViewItem = New ListViewItem(New String() { de.Key.ToString(), de.Value.ToString() })
lvParams.Items.Add(lvItem)
Next de
Dim props As PropertyInfo() = server.GetType().GetProperties(BindingFlags.Public Or BindingFlags.GetField Or BindingFlags.Instance)
For Each prop As PropertyInfo In props
Try
Dim obj As Object = prop.GetValue(server, Nothing)
If obj.ToString().IndexOf("Collection") <> -1 Then
Continue For
End If
tbInfos.Text += prop.Name & " - " & obj.ToString() & Constants.vbCrLf
Catch e1 As TargetInvocationException
Catch e2 As NullReferenceException
End Try
Next prop
End Sub
Private Sub tbHost_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
If tbHost.Text.IndexOf(":") = -1 Then
Return
End If
Dim sep As Integer = tbHost.Text.IndexOf(":")
tbPort.Text = tbHost.Text.Substring(sep + 1)
tbHost.Text = tbHost.Text.Substring(0, sep)
End Sub
-
Apr 29th, 2006, 06:03 PM
#4
Thread Starter
Member
Re: help translating to vb.net
one more problem... by the way... thanks for the code... it helped alot... anyways... here is the finally vb.net code im using... it all works but i dont understand one thing...
VB Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim server As New GameServerInfo.GameServer("70.87.83.155", 27960, GameServerInfo.GameType.WolfensteinEnemyTerritory)
MessageBox.Show(server.IsOnline)
server.Timeout = 1500
server.QueryServer()
If (Not server.IsOnline) Then
MessageBox.Show("server is offline or not responding")
Return
End If
For Each player As GameServerInfo.Player In server.Players
Dim lvItem As ListViewItem = New ListViewItem(New String() {GameServerInfo.GameServer.CleanName(player.Name), player.Score.ToString(), player.Ping.ToString(), player.Time.ToString()})
lvPlayers.Items.Add(lvItem)
Next player
Dim props As Reflection.PropertyInfo() = server.GetType().GetProperties(BindingFlags.Public Or BindingFlags.GetField Or BindingFlags.Instance)
For Each prop As Reflection.PropertyInfo In props
Try
Dim obj As Object = prop.GetValue(server, Nothing)
If obj.ToString().IndexOf("Collection") <> -1 Then
Continue For
End If
tbInfos.Text += prop.Name & " - " & obj.ToString() & Constants.vbCrLf
Catch e1 As Reflection.TargetInvocationException
Catch e2 As NullReferenceException
End Try
Next prop
End Sub
it saying "BindingFlags" is not declared... can someone help me with this?... i dont quite understand whats going on with the props part...
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|