- 博客(2)
- 资源 (3)
- 收藏
- 关注
原创 菜单动态生成及菜单点击事件
主菜单加载 Private Sub LoadMenuStrip() For i = 0 To dt.Rows.Count - 1 If dt.Rows(i).Item("FRM_ID_LAST").Trim = "0" Then ’topMenuIte
2009-09-16 13:25:00 1095
原创 TreeView动态生成方法!
加载根节点 Private Sub LoadTreeView() Private sql As String SQL文 Dim ds As DataSet 记录集 Dim dt As DataTable
2009-09-11 15:30:00 494
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人