- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何判断窗口的类型 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65613)
-- 发布时间：2015/3/19 11:19:00
-- 如何判断窗口的类型
For Each Frm As Winform.Form In Forms
Frm.?????
Next
如何判断返回窗体的类型：模式窗口，独立窗口，停靠窗口。。。。。
-- 发布时间：2015/3/19 11:23:00
--
msgbox(forms("窗口1").FormStyle)
-- 发布时间：2015/3/19 12:06:00
--
此主题相关图片如下：窗口类型.png
有谁知道，1，2，3，4，5，6 分别代表什么窗口类型吗？
-- 发布时间：2015/3/19 12:06:00
--
For Each Frm As WinForm.Form In Forms
OUTPUT.SHOW(Frm.FormStyle)
Next
-- 发布时间：2015/3/19 12:14:00
--
以下是引用9EQ98在2015/3/19 12:06:00的发言：
For Each Frm As WinForm.Form In Forms
OUTPUT.SHOW(Frm.FormStyle)
Next
For Each Frm As WinForm.Form In Forms
OUTPUT.SHOW(Frm.FormStyle)
Next
msgbox([Enum].getName(Gettype(FormStyleEnum), 1))
msgbox([Enum].getName(Gettype(FormStyleEnum), 0))
-- 发布时间：2015/5/15 14:32:00
--
返回窗口的类型与设置不一致。
Forms("123")的类型设置为 ：独立
用
MessageBox.Show([Enum].getName(Gettype(FormStyleEnum),Forms("123").FormStyle)）
返回为：并列
-- 发布时间：2015/5/15 14:35:00
--
要打开窗口，才能得到正确的 FormStyle
-- 发布时间：2015/6/2 19:40:00
--
这样还原
Dim style As FontStyle = [Enum].Parse(Gettype(FontStyle), 5)
Dim size As Single = 12.5
Dim name As String = "宋体"
Dim ft As New Font(name, size, style)