窗口中的文本框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Table.current Is Nothing Then '这一句是为了防止表被筛选后是空表,造成current是空值而产生错误,重要!!

Return

Else If e.Table.current("rkey") = 0 Then '这一句是为了防止表被筛选后是空表,造成current是空值而产生错误,重要!!

Return

Else

If e.Table.Cols("收信内容").Visible = True Then '这段是赋值给显示容器.

Dim tb1 As WinForm.Table = e.Form.Controls("Table1")

Dim wb1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim web = e.form.controls("Webbrowser1").basecontrol

web.DocumentText = tb1.Table.current("收信内容")

Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")

tb2.value= tb1.Table.current("收信内容")

Dim pp As String = tb1.Table.current("收信内容")

msgbox(pp)

If e.Table.current("html类")= "文本" Then '这一段是为了按是文本内容还是HTMl内容来选显示容器.

tb2.Visible=True

wb1.Visible=False

Else

tb2.Visible=False

wb1.Visible=True

End If

tb1.Table.current("已读")= True '这句是点了行后就标记已读.

With tb1.Table '这段是赋值给邮件头,看是按收信,还是发信还定

Dim str As String = ""

str &= " 收件人: " & .current("收发信箱号") & ""

str &= " 发送人: " & .current("收信发送地址") & " "

str &= " 主题: " & .current("收信主题") & ""

str &= " 日期: " & .current("收信日期") & ""

str &= " 附件数: " & .current("收信附件数") & ""

Dim web2 = e.form.controls("Webbrowser2").basecontrol '把收到的内容放到浏览器上,

web2.DocumentText = str

End With

Else

Dim tb1 As WinForm.Table = e.Form.Controls("Table1")

Dim web = e.form.controls("Webbrowser1").basecontrol

web.DocumentText = tb1.Table.current("发信内容")

' tb1.Table.current("已读")= True

With tb1.Table

Dim str As String = ""

str &= " 发送人: " & .current("收发信箱号") & ""

str &= " 收信人地址: " & .current("发信邮箱") & " "

str &= " 主题: " & .current("发信主题") & ""

str &= " 日期: " & .current("发信发送时间") & ""

Dim web2 = e.form.controls("Webbrowser2").basecontrol '把收到的内容放到浏览器上,

web2.DocumentText = str

End With

End If

此主题相关图片如下：wbk.jpg

此主题相关图片如下：msgbox.jpg

主题：窗口中的文本框