If Text1.Text = "" Then
MsgBox "留言内容不能为空", 64, "警告"
Else
MsgBox "发言成功了!", 64, "谢谢"
End If
Dim a1 As String
Open "\\server\food$\留言板.txt" For Append As #1
a1 = Text1.Text
Write #1, a1
Close #1
Text2.Text = Text1.Text
Text1.Text = ""
End Sub
这是vb的代码 我搬到vb.net里面怎么用啊？

大神啊 大神~~快出来 小弟求救~~

写入文件的那一块改成my.computer.filesystem.writealltext(),参数自己写代码的时候有提示的，好像是text1.text,true,看一下吧，我有可能记错了

你是不是把end sub输进去了