以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70998)

--  作者：zcgmxf --  发布时间：2015/7/2 22:30:00 --  [求助] 请哪位高手指点一下，论坛里分享的内部通讯整合到自己的系统后，可以查询到，但双击打不开未读消息，也无法设为已读的原因，谢谢！

--  作者：大红袍 --  发布时间：2015/7/2 22:41:00 --    上传具体的例子说明情况。

--  作者：zcgmxf --  发布时间：2015/7/2 22:53:00 --   一个ListBox1控件，DoubleClick的代码是：If e.Form.Controls("TextBox1").Value = Nothing Then     Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")     If lst.SelectedIndex >=0 Then         Dim s As String = lst.SelectedItem         e.Form.Controls("用户名").Text = s.Remove(s.IndexOf("("))  \'删除"("之后的字符     End If Else     Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")     If lst.SelectedIndex >=0 Then         Dim s As String = lst.SelectedItem         If s.Remove(s.IndexOf("("))  <> e.Form.Controls("用户名").Text Then             If MessageBox.Show("您确定要清空聊天记录吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then                 e.Form.Controls("TextBox1").Value = Nothing                 e.Form.Controls("TextBox3").Value = Nothing                 e.Form.Controls("用户名").Text = s.Remove(s.IndexOf("("))  \'删除"("之后的字符              Else                 e.Form.Controls("用户名").Text = s.Remove(s.IndexOf("("))  \'删除"("之后的字符  是我加上去的，在示例里运行没有影响             End If         End If     End If End If

--  作者：大红袍 --  发布时间：2015/7/2 23:18:00 --    具体项目发上来，或者做一个例子发上来。