- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请狐狸爸爸解答WebBrowser问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57078)
-- 发布时间：2014/9/17 16:58:00
-- [求助]请狐狸爸爸解答WebBrowser问题
我用WebBrowser展示类似论坛的回复，请问：
如何在每条回复下面增加两个按钮修改和删除，用于对本条信息的修改和删除
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
-- 发布时间：2014/9/17 17:23:00
--
按钮代码参考
Dim s As String
s = "<html> <head>" & _
"<meta http-equiv=""Content-Language"" c">" & _
"<meta http-equiv=""Content-Type"" c">" & _
"<title>测试页页面</title> </head> <body>"
For Each dr As DataRow In DataTables("回复表").datarows
s =s & "<p><font size=""2"" color=""#0000FF"">标题:" & dr("任务编号") & "</font></p>"
s =s & "<p><font size=""2"" color=""#0000FF"">内容:" & dr("回复人") & "</font></p>"
s =s & "<p><font size=""2"" color=""#FF0000"">收件人:" & dr("回复内容") & "</font></p>"
s =s & "<p><font size=""2"" color=""#FF0000"">发件人:" & dr("回复时间") & "</font></p>"
s = s & "<p><button value=\'修改\'>修改</button><button value=\'删除\'>删除</button></p>"
s = s & "<p>----------------</p>"
Next
s = s &" <p> </p> <p> </p> </body> </html>"
Dim fl As String = ProjectPath & "smd.htm"
FileSys.WriteAllText(fl,s,False)
e.Form.Controls("WebBrowser1").Address = fl
Webbrowser和foxtable交互，参考例子
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=51086&replyID=335028&skin=1