- 博客(9)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 VB的Treeview控件复选框如何做到可见不可用
VB的Treeview控件复选框本身是无法做到可见不可用的，如果只想让用户看到某一项节点是否被选中，却不可进行更改，这时可以用一种变通的方法实现，即在Treeview控件关联的ImageList控件的图像中插入一个未选中的方框图标和一个被选中的方框图标，然后加载Treeview的各个节点，通过代码判断是否被选中，然后赋予相应的选中或未选中的.Image属性。这两类图标可以在网上下载，也可以用PS自制。在节点可见不可用状态下，可通过代码改变节点的.Image属性，从而改变其选中或未选中的状态。至于这种状态下，
2022-12-07 17:22:36
442
1
原创 如何规避VB要求的“父菜单不能没有可视的子菜单项”，隐藏窗体所有菜单
因为VB要求“父菜单不能没有可视的子菜单项”，所以菜单必须至少有一个子菜单可见，否则将提示“不能在该控件中设置Visible属性”。此时在子菜单中夹杂一个可见的分割线，这样就可以规避VB的要求，实现隐藏所有菜单的目的。至于如何为用户分配不同的窗体菜单使用权限，请参见我的另一篇分享【VB为用户分配不同的窗体菜单使用权限】，里面有详细的代码及说明。
2022-12-07 16:29:08
264
原创 vb6将Excel表导入到Access中
aa = IIf(IsNumeric(Left(List1.List(List1.ListIndex), 1)), "'" & List1.List(List1.ListIndex) & "$'", List1.List(List1.ListIndex) & "$") 从Access中直接将Excel导入 Conn2.Open "Provider=M...
2019-07-12 10:07:40
1301
原创 VB6中Access调用Excel文件
Dim ConnExcel Dim Rs1 As New ADODB.Recordset Set ConnExcel = CreateObject("ADODB.Connection") ConnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data So...
2019-07-12 09:59:08
358
原创 Excel中调用Access数据库
'引入ado,工程,引用,microsoft activex data objects 2.8 Dim Conn1 As New ADODB.Connection Dim Rs1 As New ADODB.Recordset Sub 提取() Set Conn1 = CreateObject("ADODB.CONNECTION") Conn1.Open "provider...
2019-07-12 09:57:43
4976
原创 VB6生成Word文件
'生成Word文件,先VBE工具-引用-micorsoft word Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = Documents.Add Dim mySelection As Word.Selection Set mySel...
2019-07-12 09:53:08
2412
原创 可在WPS环境中通用的vb6代码修改方法
在“工程”中没有“引用”Excel时，进行排序等操作，必须先对一些常数进行赋值，常用的一些常数为： Public Const xlUp = -4162 '这几条常量赋值语句如果是Excel在引用中先期绑定，是不需要的，但是如果Excel是后期绑定的，则是必须的。 Public Const xlWhole = 1 Public Const xlPart = 2 Public Const xl...
2019-07-12 09:49:41
1242
VB的Treeview控件复选框如何做到父子多级节点联动代码实例
2022-12-07
VB导出SQLserver数据库表到Excel或WPS的代码
2022-12-07
用批处理文件修改SqlServer登录验证模式
2022-12-07
VB中的Controls存在的BUG及解决方法程序实例
2022-12-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人