| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74966) |
| -- 作者：江南小镇 -- 发布时间：2015/9/23 16:03:00 -- [求助]代码 老师，窗口中的这段代码是什么意思。 Dim WS_SYSMENU As Integer = &H00080000 Dim Min As Integer = &H00020000 Dim windowLong As Integer = GetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16) SetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16, windowLong Or WS_SYSMENU Or min)
|
| -- 作者：大红袍 -- 发布时间：2015/9/23 16:22:00 -- 意思是在下面的任务栏那里，给窗口加上右键时候，系统菜单和最小化的菜单。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=55383&skin=0
|
| -- 作者：江南小镇 -- 发布时间：2015/9/24 8:16:00 -- If e.Form.opened =True And e.Form.Controls("树目录").Visible=True Then e.Form.Controls("树目录").Visible=False Else e.Form.Controls("树目录").Visible=True End If Tables("序号").Rows(1)("序号")=1 老师好，上面用黄色标注的代码在按钮中起什么作用。
|
| -- 作者：大红袍 -- 发布时间：2015/9/24 9:20:00 -- 给 序号表 第二行 序号列 赋值为1
具体作用不知道。 |
| -- 作者：江南小镇 -- 发布时间：2015/9/24 9:38:00 -- 谢谢 |
| -- 作者：江南小镇 -- 发布时间：2015/9/24 10:51:00 -- 老师，狐表字体设置能不调用系统的字体吗？ |
| -- 作者：大红袍 -- 发布时间：2015/9/24 10:52:00 -- 什么意思？不是系统的字体是哪里的字体啊 |