[分享][原创]组合框的又一用法

宿命的风

新尝试的一个用法,可以快速录入数据,不知道有没有已经在用了!



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

好贴，收藏。

tmtony

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



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



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





关键代码:

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





效果图:



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

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

宿命的风

今天算长了见识了。.....谢谢站长的指教!

phililee

好！非常谢谢！顺便问问，查询拼音首字的方法可否做到从任何位置开始？这样可以避免漏查。

lfxwolf3

来学习学习

of384

收藏起来!

sxm16998

1231321321321321321321321321321321

sxm16998

dfdasfdsfdsfadsafdsfdsaaaaaadsf

sxm16998

dfffdfdsfsadfffffffffffffffffffffffffffffffffffffffffffffffffffffff