Office中国论坛/Access中国论坛

标题: [分享][原创]组合框的又一用法 [打印本页]

作者: 宿命的风 时间: 2005-7-28 02:26
标题: [分享][原创]组合框的又一用法
新尝试的一个用法,可以快速录入数据,不知道有没有已经在用了!

rivate Sub Combo0_GotFocus()

Me.Combo0.ColumnWidths = "1.2厘米;2.544厘米" '显示第一列

Me.Combo0.Dropdown '展开列表

End Sub

rivate Sub Combo0_LostFocus()

Me.Combo0.ColumnWidths = "0厘米;2.544厘米" '隐藏第一列,使组合框显示为第二列的内容

End Sub

作者: wuaza 时间: 2005-7-28 03:16
好贴，收藏。

作者: tmtony 时间: 2005-7-28 05:26
不错,原来都想到一块儿了,我以前也作做尝试, 思路一样,只是写成模块, 调用相对简单一些,但方法一样. 见猎心喜,也放上来. 只因是公司软件产品, 不便分享其它源码了.(原理完全一样)

设置自动编码与名称切换只换在组合框的标记属性中设置为(autocbo23) 即可, 如果只有两列则为autocbo12

不过,相对宿命的风的方法,增加一个判断,就是如果窗体是不可编辑的,则不显示编码,而只显示中文.

[attach]12051[/attach]

关键代码:

Public Function gt_SetCboEnterEvent(Optional rctrComboBox As Control, Optional rintType As Integer = 0, Optional rstrTemp As String)

Dim blnCancel As Boolean

Dim frm As Form

On Error Resume Next

If TypeOf rctrComboBox.Parent Is Form Then

Set frm = rctrComboBox.Parent

Else

If TypeOf rctrComboBox.Parent.Parent Is Form Then

Set frm = rctrComboBox.Parent.Parent

Else

      If TypeOf rctrComboBox.Parent.Parent.Parent Is Form Then

      Set frm = rctrComboBox.Parent.Parent.Parent

      Else

         Exit Function

      End If

End If

End If

If frm Is Nothing Then Exit Function

If Nz(rctrComboBox.ControlSource) <> "" Then

If frm.AllowEdits = False Or rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then

blnCancel = True

End If

Else

If rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then

blnCancel = True

End If

End If

If blnCancel Then Exit Function

If InStr(rctrComboBox.Tag, "autocbo") > 0 Then

   gt_SetComboColumnWidth rctrComboBox, rstrTemp

End If

   Select Case rintType

   Case 2

      gt_ComboAutoExpand rctrComboBox, True

   Case 1

      gt_ComboAutoExpand rctrComboBox, False

   Case 0



   End Select

End Function

Public Function gt_SetCboExitEvent(Optional rctrComboBox As Control, Optional rintType As Integer = 0, Optional rstrTemp As String)

Dim blnCancel As Boolean

Dim frm As Form

On Error Resume Next

If TypeOf rctrComboBox.Parent Is Form Then

Set frm = rctrComboBox.Parent

Else

If TypeOf rctrComboBox.Parent.Parent Is Form Then

Set frm = rctrComboBox.Parent.Parent

Else

      If TypeOf rctrComboBox.Parent.Parent.Parent Is Form Then

      Set frm = rctrComboBox.Parent.Parent.Parent

      Else

         Exit Function

      End If

End If

End If

If frm Is Nothing Then Exit Function

If Nz(rctrComboBox.ControlSource) <> "" Then

If frm.AllowEdits = False Or rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then

blnCancel = True

End If

Else

If rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then

blnCancel = True

End If

End If

If blnCancel Then Exit Function

If InStr(rctrComboBox.Tag, "autocbo") > 0 Then

   gt_SetComboColumnWidth rctrComboBox, rstrTemp

End If

End Function

效果图:

获得焦点变成编码,可选择编码,失去焦点变成中文

[attach]12052[/attach]

[attach]12053[/attach]

[attach]12054[/attach]

[attach]12055[/attach]

[attach]12056[/attach]

[attach]12057[/attach]

[此贴子已经被作者于2005-7-27 21:32:29编辑过]

作者: 宿命的风 时间: 2005-7-28 20:16
今天算长了见识了。.....谢谢站长的指教!

作者: phililee 时间: 2006-3-20 11:05
好！非常谢谢！顺便问问，查询拼音首字的方法可否做到从任何位置开始？这样可以避免漏查。

作者: lfxwolf3 时间: 2006-3-20 22:47
来学习学习

作者: of384 时间: 2006-3-21 00:53
收藏起来!

作者: sxm16998 时间: 2006-3-24 21:03
1231321321321321321321321321321321

作者: sxm16998 时间: 2006-3-24 21:03
dfdasfdsfdsfadsafdsfdsaaaaaadsf

作者: sxm16998 时间: 2006-3-24 21:03
dfffdfdsfsadfffffffffffffffffffffffffffffffffffffffffffffffffffffff

作者: wang1950317 时间: 2006-3-25 01:12
都是大师级的水平！佩服佩服！

作者: cqzm9 时间: 2006-5-18 23:20
标题: 如果在学生表前加ID后怎么处理呢
[attach]17863[/attach]
如题

作者: fan0217 时间: 2006-5-18 23:34
没有太明白楼上的问题.

请阅读系统关于ColumnWidths属性的帮助.

作者: huanghai 时间: 2006-5-30 16:38
这样做法足见聪明

作者: tzh1600 时间: 2007-6-15 23:29
挺巧妙的

作者: 苍蝇 时间: 2007-11-25 21:20
难度太高了，等以后慢慢学！

作者: dqsytmh 时间: 2007-12-2 13:35
这么多牛人
看来自己要奋发图强了

作者: feigao186 时间: 2007-12-2 15:57
标题: 好贴
看看，并学习

作者: songlin 时间: 2007-12-2 16:06
很好！学习！

作者: yori2007 时间: 2008-1-11 10:12

啥时候我也能作出这样的啊

作者: wxwwxw 时间: 2008-1-11 11:29
哈哈哈哈哈哈还会某某某

作者: wxwwxw 时间: 2008-1-11 11:30
反反复复反反复复反反复复反反复复反反复复分反反复复

作者: huangxiuwen 时间: 2008-1-13 13:26
顶你。顶你。顶你。顶你。顶你。顶你。顶你。

作者: u2f2 时间: 2008-12-8 10:20
什么东西，学习一下

作者: yuayua23 时间: 2008-12-9 00:04
[:26] [:50]

作者: kent_73 时间: 2009-1-20 10:30
学习[:12]

作者: 想做NO.1 时间: 2009-2-7 09:46

作者: chaojianan 时间: 2009-10-25 20:57
谢谢分享。

作者: xiaoyuzhi 时间: 2009-12-20 21:01
下来看看

作者: cjssxo 时间: 2010-2-28 02:03
都是经典著作

作者: muning2010 时间: 2010-3-2 23:25
隐藏得好深，看按

作者: luhao 时间: 2010-3-3 02:22
谢谢 3# tmtony

作者: dfnt11 时间: 2010-3-4 22:10
ding

作者: cjssxo 时间: 2010-3-24 13:48
找了半天终于找到了

作者: z12509258 时间: 2010-4-1 11:19
今天算长了见识了

作者: c101 时间: 2010-5-25 09:11
谢谢

作者: liangshiheng 时间: 2010-5-25 10:21
ddddd

作者: liaohk 时间: 2010-5-25 13:03

作者: xie62 时间: 2010-5-27 14:09
来学习学习

作者: xlyw 时间: 2010-5-29 11:29
学习学习再学习!

作者: danis 时间: 2010-7-8 20:55
[img][img][/img][/img]

作者: ZHENGLIAN 时间: 2010-8-18 16:24
好贴，收藏。

作者: h33691 时间: 2010-8-29 00:07
合框的又一用法

作者: yttzm 时间: 2010-9-2 15:35
看看！

作者: zhuhero 时间: 2010-10-5 17:24
www.office-cn.net

作者: njb8668 时间: 2010-10-5 21:39
ddddddddddd.学习学习，谢谢。

作者: li08hua 时间: 2010-10-19 02:33
长见识！

作者: lymin 时间: 2010-12-28 00:42

作者: gaofei186 时间: 2010-12-28 08:16
看看一下

作者: zhoudb2010 时间: 2010-12-28 10:11
很实用

作者: wjl936 时间: 2011-1-15 12:16
谢谢分享

作者: wdq 时间: 2011-1-16 08:18

作者: davidzzf 时间: 2011-1-18 21:26
多谢分享!

作者: combine38 时间: 2011-1-21 09:28
学习

作者: lwb_hao 时间: 2011-1-28 12:39
好贴，收藏

作者: bx19830825 时间: 2011-2-17 11:55
学习

作者: essenco 时间: 2011-3-1 19:56
学习一下

作者: yutin 时间: 2011-3-1 20:46
不错

作者: gochacc 时间: 2011-11-2 15:19
谢谢元老的指教!{:soso_e100:}

作者: YXH_YXH 时间: 2011-11-4 11:08
学习了！！！！！！！！

作者: smigu 时间: 2011-11-9 08:58
来学习学习

作者: licongli 时间: 2011-11-9 11:13
sdfsdf

作者: chshb 时间: 2012-6-12 15:23
好贴，收藏。

作者: seanone 时间: 2012-6-15 08:43
有一经典又好用的技巧

作者: dgmeihao168 时间: 2012-6-15 11:53
分享][原创]组合框的又一用法

作者: dfang 时间: 2012-8-26 22:57

作者: HOCKHE 时间: 2012-9-1 10:59
1024

作者: 心情如故 时间: 2015-3-21 19:49
谢谢

作者: xlb004 时间: 2015-3-22 08:55
3333333333333333333

作者: xlb004 时间: 2015-3-22 09:10
rrrrrrrrrrr

作者: songjh258 时间: 2017-1-8 18:30
谢谢分享

作者: netguestcn 时间: 2017-1-8 20:40
学习

作者: yanwei82123300 时间: 2023-4-15 20:42

收藏起来!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)