Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]combobox 能不能事先默认一个值？


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

主题：[求助]combobox 能不能事先默认一个值？
帅哥哟，离线，有人找我吗？
dd6b
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		[求助]combobox 能不能事先默认一个值？  发帖心情 Post By：2013/8/1 23:43:00 [只看该作者]

combobox 能不能事先默认一个值？

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


加好友 发短信
等级：三尾狐 帖子：682 积分：5263 威望：0 精华：0 注册：2012/6/6 14:37:00 		  发帖心情 Post By：2013/8/1 23:53:00 [只看该作者]

http://www.foxtable.com/help/topics/0930.htm

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


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/8/2 8:44:00 [只看该作者]

你在设计窗口的时候，也可以在控件属性中，给ComboBox设置一个默认值

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


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 20:56:00 [只看该作者]

狐爸，这是我做的下拉菜单，我想实现的是自动默认上一个月的日期，比如现在是2013年8月，上面就默认为2013年7月，这好实现吗？
图片点击可在新窗口打开查看此主题相关图片如下：bn.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/3 21:22:00 [只看该作者]

 不难实现，你参考下

[此贴子已经被作者于2013-8-3 21:22:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dd6b
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 21:31:00 [只看该作者]

我用
Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
Dim d As Date = Date.Today
Select Case d.year
Case 2013
cmb.SelectedIndex = 0
Case 2014
cmb.SelectedIndex = 1
Case 2015
cmb.SelectedIndex = 2
Case 2016
cmb.SelectedIndex = 3
Case 2017
cmb.SelectedIndex = 4
Case 2018
cmb.SelectedIndex = 5
Case 2019
cmb.SelectedIndex = 6
Case 2020
cmb.SelectedIndex = 7
End Select
这种笨方法实现了，谢谢大家指导！
[此贴子已经被作者于2013-8-3 21:32:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/8/3 22:29:00 [只看该作者]

窗口的AfterLoad事件、控件的Enter事件

 

年：

e.Sender.Text = Date.Today.AddMonths(-1).Year

 

月：

e.Sender.Text = Date.Today.AddMonths(-1).Month

[此贴子已经被作者于2013-8-3 22:48:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dd6b
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：993 威望：0 精华：0 注册：2013/6/10 16:38:00 		  发帖心情 Post By：2013/8/3 23:42:00 [只看该作者]

谢谢，这个方法简单多了。
[此贴子已经被作者于2013-8-3 23:59:13编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 4 次数据查询