兄弟能给我套源码学习学习吗？？？我是个菜鸟哦！

@永恒一生
照着我那个画个界面,下面就是全部代码,只有一点点,很简单的,我也是菜鸟.有空多交流
Dim Mp3Path As String

Private Sub DIC_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsOnLine() Then
MsgBox("未联上网络不能使用")
Me.Close()
Exit Sub
End If
Me.txtWord.Focus()
Me.picMP3.Visible = False
Me.lblPron_1.Visible = False
Me.lblResult_1.Visible = False
End Sub

Function IsOnLine() As Boolean
If SystemInformation.Network Then
Return True
Else
Return False
End If
End Function

Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
Me.txtWord.Text = ""
Me.picMP3.Visible = False
Me.lblWord.Visible = False
Me.lblPron_1.Visible = False
Me.lblResult_1.Visible = False
Me.lblPron.Visible = False
Me.lblResult.Visible = False
End Sub

Private Sub btnResult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResult.Click
On Error GoTo ERR_FLAG
If Me.txtWord.Text.Trim = "" Then
MsgBox("请输入您要查询的单词")
Exit Sub
End If

Dim dSet As New DataSet
Dim dRow As DataRow
Dim xmlPath As String
xmlPath = "http://dict.cn/ws.php?utf8=true&q=" & Me.txtWord.Text.Trim
dSet.ReadXml(xmlPath)
dRow = dSet.Tables(0).Rows(0)

If dSet Is Nothing Then
GoTo ERR_FLAG
End If

If dRow.Item("def") = "Not Found" Then
MsgBox("未能找到单词:" & Me.txtWord.Text.Trim & vbCrLf & "请确认拼写正确")
Exit Sub
End If

Me.lblPron.Text = IIf(IsDBNull(dRow.Item("pron")), "", dRow.Item("pron"))
Me.lblResult.Text = IIf(IsDBNull(dRow.Item("def")), "", dRow.Item("def"))
Mp3Path = IIf(IsDBNull(dRow.Item("audio")), "", dRow.Item("audio"))
dSet.Dispose()

Me.lblWord.Visible = True
Me.picMP3.Visible = True
Me.lblPron_1.Visible = True
Me.lblResult_1.Visible = True
Me.lblPron.Visible = True
Me.lblResult.Visible = True
Me.lblWord.Text = Me.txtWord.Text.Trim

Exit Sub
ERR_FLAG:
MsgBox("发生异常错误" & vbCrLf & "错误信息：" & Err.Description)
End Sub

Private Sub lbtnUrl_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lbtnUrl.LinkClicked
System.Diagnostics.Process.Start("http://boylee.net")
End Sub

Private Sub picMP3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picMP3.Click
Process.Start(Mp3Path)
End Sub

呵呵，谢谢，这么点代码就成一个词典软件了，好棒哦，呵呵！我看看能用C#给写出来吗！谢谢兄弟

呵呵，看了你的代码后，原来只要是支持XML的我们是不是都能调用啊！学了一招，太棒了，呵呵

c#和vb.net一样啊,很简单的.
用Reflector看代码,设置显示c#就OK了
他提供的xml的web api,直接调用就可以了,呵呵

兄弟，我问问你，你那个喇叭按钮是什么按钮？？
你有QQ吗？

Process.Start(Mp3Path)
在C#里没有啊

@永恒一生
喇叭按钮是个imagebutton
Process.Start在c#中也有的,这个是.net FrameWork下的一个方法
c#的用法是:
public static Process Start (
ProcessStartInfo startInfo
)
我在公司用的都是日文开发环境,上不了QQ,郁闷

呵呵MSN该有吧？吼吼，写出来了只是很简单，比你的简单，而且发音的喇叭好像不能发音啊！

@永恒一生
我很少上IM软件啊.呵呵.
这个程序本来就很简单啊,一点点东西.
MP3发音Process.Start是调用,系统默认用什么程序打开mp3,就会用什么程序的.没写成发音的.改天有时间改成调用API直接发音不另外打开其他程序的那种

跟我一样的人，有时候喜欢写一些小软件给自己用用的人

@Shark Xu
是啊.觉得这样挺好玩的.以前在学校自学c#,就弄了好多小玩意

你的程序我套用了，怎么不行啊，程序运行时出现异常，提示“pron”不是dict表的列，不懂。

他提供的xml的web api文件你是怎么获取的？谢谢！

picMP3是什么啊，是一个控件吗？我怎么没找到啊，我太笨了。

@海为天蓝
你的程序我套用了，怎么不行啊，程序运行时出现异常，提示“pron”不是dict表的列，不懂。
----------------------------------------
我没做错误处理,有些简单单词没这个节点的


他提供的xml的web api文件你是怎么获取的？谢谢！
----------------------------------------------
海词提供的一个api接口

@一只小鼠
那是我加的一个imagebutton