- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 临时表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110647)
-- 发布时间：2017/12/6 22:42:00
-- 求助 临时表
老师:
-- 发布时间：2017/12/6 22:54:00
--
1、你可以删除
DataTables("表名").DeleteFor("")
2、有动态窗口，如代码
Dim frm As New Windows.Forms.Form
frm.Text = "abcdefg"
frm.width = 500
frm.height = 500
Dim web As new Windows.Forms.Webbrowser
\'web.width = 500
\'web.height = 200
\'web.Top = 150
\'web.left = 10
web.dock = 5
web.Navigate("http://www.baidu.com")
frm.Controls.Add(web)
frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
-- 发布时间：2017/12/6 23:32:00
--
谢谢老师!
-- 发布时间：2017/12/7 23:07:00
--
老师:
-- 发布时间：2017/12/7 23:20:00
--
老师:
去除边框，参考 frm.FormBorderStyle = 0
编写代码，参考
| 下载信息 [文件大小：296.0 KB 下载次数：122] | |
 点击浏览该文件:beforeopenproject创建窗口.table |
-- 发布时间：2017/12/8 0:21:00
--
谢谢老师!!!
-- 发布时间：2017/12/8 0:28:00
--
老师:
-- 发布时间：2017/12/8 8:47:00
--
Dim frm As New Windows.Forms.Form
frm.Text = "abcdefg"
frm.width = 300
frm.height = 80
frm.FormBorderStyle = 0
Dim clr As Color = Color.Red
frm.BackColor = clr
frm.name = "wkdh"
Dim ct As New Windows.Forms.Label
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Text = "Foxtable"
frm.Controls.Add(ct)
frm.Show
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(5)
Application.DoEvents
End While
frm.close
-- 发布时间：2017/12/8 12:30:00
--
谢谢老师!!!
-- 发布时间：2018/3/4 16:21:00
--
老师: