关于CtListBar控件

gxy1000

怎样在CtListBar控件设置分组中的项目当鼠标点击某项目跳出某窗体

xjb_test

gxy1000

回复 xjb_test 的帖子

不懂吗？

gxy1000

难道真的没人能做？？？:

鱼儿游游

'以下代码，经测试无误。希望能解决楼主的问题。
Private Sub ctListBar0_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
Dim strArgument As String
    strArgument = ctListBar0.ItemText(nList, nItem)
    Select Case strArgument
    Case "计算器"
         Dim stAppName As String
         stAppName = "calc.exe"
         Call Shell(stAppName, 1)
    Case "发货查询"
         DoCmd.OpenForm "窗体1"
    Case "支付查询"
         DoCmd.OpenForm "窗体2"
    Case "退出系统"
         DoCmd.Close acForm, Me.Name
    Case Else
    End Select
End Sub

TNHTJ

bu ming bai

gxy1000

真的好感谢！鱼儿游游！！谢谢

鱼儿游游

不客气。

赌鬼

好东东

yanwei82123300

请gxy1000 将控件上传，否则我无法看看，