Question

C#代码转VB.Net代码

private void wmp_PlayStateChange(object sender, AxWMPLib._WMPOCXEvents_PlayStateChangeEvent e)
{

if ((WMPLib.WMPPlayState)e.newState == WMPLib.WMPPlayState.wmppsReady) wmp.Ctlcontrols.play();
}　　

private void axWindowsMediaPlayer1_PlayStateChange(object sender, AxWMPLib._WMPOCXEvents_PlayStateChangeEvent e)
{
if (axWindowsMediaPlayer1.playState == WMPLib.WMPPlayState.wmppsMediaEnded)
{
this.axWindowsMediaPlayer1.currentPlaylist.clear();
this.axWindowsMediaPlayer1.currentPlaylist.appendItem(this.axWindowsMediaPlayer1.newMedia(@"f:\b.wmv"));
axWindowsMediaPlayer1.settings.setMode("loop", true);
timer1.Enabled = true;
}
}
private void timer1_Tick(object sender, EventArgs e)
{
timer1.Enabled = false;
axWindowsMediaPlayer1.Ctlcontrols.play();
}

Answer 1

Private Sub wmp_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)

	If DirectCast(e.newState, WMPLib.WMPPlayState) = WMPLib.WMPPlayState.wmppsReady Then
		wmp.Ctlcontrols.play()
	End If
End Sub

Private Sub axWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)
	If axWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
		Me.axWindowsMediaPlayer1.currentPlaylist.clear()
		Me.axWindowsMediaPlayer1.currentPlaylist.appendItem(Me.axWindowsMediaPlayer1.newMedia("f:\b.wmv"))
		axWindowsMediaPlayer1.settings.setMode("loop", True)
		timer1.Enabled = True
	End If
End Sub
Private Sub timer1_Tick(sender As Object, e As EventArgs)
	timer1.Enabled = False
	axWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Answer 2

你要是实在不会，先用C#编译成DLL，然后用reflector 这个工具打开生成的DLL，在语言选项这里切换为VB.NET，就知道了，
这样别的代码你也可以知道了，
打字不易，如满意，望采纳。