Office中国论坛/Access中国论坛

标题: 请帮忙翻译一下下面的代码,谢谢! [打印本页]

作者: maxtor2008 时间: 2008-9-11 21:59
标题: 请帮忙翻译一下下面的代码,谢谢!
Private Sub Form_Open(Cancel As Integer)
ctListBar1.AddList "业务查询"
ctListBar1.AddList "采购部门"
ctListBar1.AddList "资料管理"
ctListBar1.AddList "系统管理"
ctListBar1.AddList "用户管理"

ctListBar1.AddListImage 1, "化肥出库单", 3
ctListBar1.AddListImage 1, "化肥叫货单", 7
ctListBar1.AddListImage 1, "化肥入库单", 7
ctListBar1.AddListImage 1, "介绍信录入", 2
ctListBar1.AddListImage 1, "化肥运输录入", 4
ctListBar1.AddListImage 1, "农药入库登记", 5
ctListBar1.AddListImage 1, "配送计划录入", 1
ctListBar1.AddListImage 1, "车辆保养记录", 1
Dim cn As ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim sql As String
Set cn = CurrentProject.Connection
sql = "select * from 1"
Rs.Open sql, cn, 3, 3, 1

End Sub

作者: ice_xin 时间: 2008-9-12 09:33
参阅CtListBar 控件使用方法.一个类似qq窗口的优秀控件.

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