Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期时间框外形


  共有2900人关注过本帖树形打印复制链接

主题：[求助]日期时间框外形
帅哥哟，离线，有人找我吗？
lzzhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		[求助]日期时间框外形  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2016/9/6 17:14:00 [只看该作者]

请老师看看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/6 17:16:00 [只看该作者]

这个代码测试不会这样，上例子看看

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2016/9/6 17:41:00 [只看该作者]

问题不在这段代码中，在一个设置窗体的函数中，但原因找不到

遍历一下窗体中的所有控件，用消息框查看，发现第一个日期框有，没有第二个日期框
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/6 17:45:00 [只看该作者]

上例子说明

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2016/9/7 9:04:00 [只看该作者]

控件遍历有问题，请老师看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:遍历控件.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/7 9:37:00 [只看该作者]

工具栏折叠了，这个没有办法。把工具栏拉长

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2016/9/7 10:46:00 [只看该作者]

请问如何把工具栏拉长？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/7 11:23:00 [只看该作者]

把窗口拉宽

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2016/9/7 11:38:00 [只看该作者]

窗口很宽，工具栏中的控件只占了窗口宽度的一半都不到

 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询