- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]日期时间框外形 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90153)
-- 发布时间：2016/9/6 16:40:00
-- [求助]日期时间框外形
用同样的代码在窗体的工具栏内添加了两个日期时间框，为什么样式不一样？
部分代码如下：
i = i + 1
Dim DateStart As WinForm.DateTimePicker = e.Form.CreateControl("DateStart" ,ControlTypeEnum.DateTimePicker)
DateStart.text = system_Mydate
gc = basemainform.CreateGraphics
size = gc.MeasureString(DateStart.text,DateStart.Font)
DateStart.Width = size.width + 48
DateStart.visualstyle = VisualStyleEnum.Office2007Silver
e.Form.Strips("上工具栏").Items.InsertControl(DateStart.name,DateStart,i)
i = i + 1
Dim LblEnd As WinForm.Label = e.Form.CreateControl("LblEnd" ,ControlTypeEnum.Label)
LblEnd.text = "--"
gc = basemainform.CreateGraphics
size = gc.MeasureString(LblEnd.text,LblEnd.Font)
LblEnd.Width = size.width
LblEnd.TextAlign = ContentAlignment.BottomRight
e.Form.Strips("上工具栏").Items.InsertControl(LblEnd.name,LblEnd,i)
i = i + 1
Dim DateEnd As WinForm.DateTimePicker = e.Form.CreateControl("DateEnd" ,ControlTypeEnum.DateTimePicker)
DateEnd.text = system_Mydate
gc = basemainform.CreateGraphics
size = gc.MeasureString(DateEnd.text,DateEnd.Font)
DateEnd.Width = size.width + 48
DateEnd.visualstyle = VisualStyleEnum.Office2007Silver
e.Form.Strips("上工具栏").Items.InsertControl(DateEnd.name,DateEnd,i)
此主题相关图片如下：1.png
-- 发布时间：2016/9/6 17:14:00
--
请老师看看
-- 发布时间：2016/9/6 17:16:00
--
这个代码测试不会这样，上例子看看
-- 发布时间：2016/9/6 17:41:00
--
问题不在这段代码中，在一个设置窗体的函数中，但原因找不到
遍历一下窗体中的所有控件，用消息框查看，发现第一个日期框有，没有第二个日期框
-- 发布时间：2016/9/6 17:45:00
--
上例子说明
-- 发布时间：2016/9/7 9:04:00
--
控件遍历有问题，请老师看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:遍历控件.foxdb |
-- 发布时间：2016/9/7 9:37:00
--
工具栏折叠了，这个没有办法。把工具栏拉长
-- 发布时间：2016/9/7 10:46:00
--
请问如何把工具栏拉长？
-- 发布时间：2016/9/7 11:23:00
--
把窗口拉宽
-- 发布时间：2016/9/7 11:38:00
--
窗口很宽，工具栏中的控件只占了窗口宽度的一半都不到