VB增强版ListView ComBox下拉列表控件，属性说明：
1.LVHead:列标题字符串，各列标题间用半角逗号“,”隔开
2.LVWidth:列宽度，也用“,”隔开,数目应与LVHead相同,值的大小取要显示的字符数
3.Style:下列方式
4.BindCol:邦定列
5.DispCol:显示列,即LVComBox中所显示的列值
6.Value:对应BindCol所对应的列值
7.Text:对应DispCol所对应的列值
8.DataSource:所要显示行的数据集
9.GetSource:包含所选资料行的所有列值
2021-09-11 11:02:56
46KB
1
国外大神制的开源作品，其完全用 Office 自带的标签 Label 控件 和 Frame 控件制作的 TreeView 组件。这不同于VBE 工程窗口中工具箱中的【附加控件】 部分的 Microsoft TreeView Control，它适用于适用于所有版本的 Excel、Access 和 Word；不论是 Office 2007、2019还是365，以及 Windows 和 Mac，32位还是64位。并且它也可以做一些适当的修改适用于一些更早的版本。
2021-09-10 19:06:18
302KB
1
//显示任意一个目录的文件到TReeview中
unit uTreeViewDemo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, FileCtrl;
const
SELDIRHELP = 1000;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;
IncludeFiles: Boolean);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode;
IncludeFiles: Boolean);
var
SearchRec: TSearchRec;
ItemTemp: TTreeNode;
begin
TreeView1.Items.BeginUpdate;
if Directory[Length(Directory)] '\' then
Directory := Directory + '\';
if FindFirst(Directory + '*.*' , faDirectory, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
Item := Tree.Items.AddChild(Item, SearchRec.Name);
ItemTemp := Item.Parent;
GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);
Item := ItemTemp;
end
else
if IncludeFiles then
if SearchRec.Name[1] '.' then
Tree.Items.AddChild(Item, SearchRec.Name);
until FindNext(SearchRec) 0;
FindClose(SearchRec);
TreeView1.Items.EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strOpenDir: string;
begin
if SelectDirectory(strOpenDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
try
GetDirectories(TreeView1, strOpenDir, nil, True);
except
ShowMessage('错误信息');
end;
end;
end.
2021-09-09 17:14:47
200KB
1
angular.treeview, 基于AngularJS的Treeview ( 无 jQuery ) Angular Treeview纯 AngularJS 基于树菜单指令。 安装将脚本和css复制到项目中，并向页面中添加脚本和链接标记。<script type="text/javascript" src="/
2021-09-09 09:00:03
188KB
1
利用TreeView自定义模板，实现了流程图效果，可实现多级绑定。
采用MVVM模式，通过绑定数据源来控制界面显示，使得流程控制更加方便。
原文链接：https://blog.csdn.net/wsadcg/article/details/107230210
2021-09-07 11:21:52
71KB
1
jquery中jquery-3.1.1.js和jquery-3.1.1.min.js两个工具类。bootstrap的treeview插件用到了，找到就传上来备忘。
2021-09-05 17:53:36
106KB
1
点击保存按钮，将treeview1中树状结构以二进制形式保存于d盘mytest.txt文件中
点击读取按钮，将d盘mytest.txt文件中记录的树状模型结构显示到treeview2中
2021-09-04 15:31:53
38KB
1