@创世魂 @飞扬工作室
本帖最后由 server 于 2024-3-28 18:31 编辑希望你能搞个提交代码的绿色通道，
每次更新或者修正一些代码，
只要一更新，替换了，那编译的时候报错无数。
烦死///
//文本数组类
<火山程序 类型 = "通常" 版本 = 1 />
方法 逆向枚举循环 <公开 注释 = "启动一个循环来枚举本数组中的每一个成员,在循环中可以调用" 注释 = "\"取枚举值\"方法来获取当前所枚举到的成员值,调用\"取枚举索引\""
注释 = "方法来获取当前所枚举到成员的索引位置." 折叠 折叠2 @嵌入式方法 = "name = counter\r\nhas_loop_body = true">
{
@ for (INT_P __vol_itr_index_sary = @sn<this>.data ().GetCount ()-1; __vol_itr_index_sary >=0; __vol_itr_index_sary--)
}
//窗口组件
<火山程序 类型 = "通常" 版本 = 1 />
方法 浏览文件夹 <公开 静态 类型 = 文本型 注释 = "打开一个对话框,浏览系统中存在的所有文件夹,返回被选定" 注释 = "文件夹的路径名,如果未选中任何文件夹,则返回空文本."
注释 = "仅用作本对象的实际类型为\"窗口\"或\"MDI主窗口\"的情况." 折叠 折叠2>
参数 标题 <类型 = 文本型 注释 = "提供显示在对话框上部的标题文本">
参数 是否包含文件 <类型 = 逻辑型 注释 = "指定是否在浏览框中同时列出文件名" @默认值 = 假>
参数 初始目录 <类型 = 文本型 @默认值 = 空对象>
{
变量 结果变量 <类型 = 文本型>
@ BROWSEINFO inf;
@ ZERO_MEM (&inf, sizeof (inf));
@ inf.hwndOwner = GetMfcWndHandle ();
@ if (!@<初始目录>.IsNullObject ()){inf.pidlRoot = ILCreateFromPath(@<初始目录>.GetText ()); }
@ TCHAR path ;
@ path = '\0';
@ inf.pszDisplayName = path;
@ inf.lpszTitle = @<标题>.GetText ();
@ inf.ulFlags = BIF_EDITBOX;
@ if (@<是否包含文件>)
@ inf.ulFlags |= BIF_BROWSEINCLUDEFILES;
@ LPITEMIDLIST pItem = SHBrowseForFolder (&inf);
@ if (pItem != NULL)
@ {
@ path = '\0';
@ if (SHGetPathFromIDList (pItem, path))
@ @<结果变量>.SetText (path);
@ IMalloc* pMalloc;
@ if (SUCCEEDED (SHGetMalloc (&pMalloc)))
@ {
@ pMalloc->Free (pItem);
@ pMalloc->Release ();
@ }
@ }
返回 (结果变量)
}
你是说,修正了官方代码,更新了就会替换你改过的命令吗?不要烦.自己复制粘贴重起名就是你的了!! 呵呵仙8 发表于 2024-3-28 19:56
你是说,修正了官方代码,更新了就会替换你改过的命令吗?不要烦.自己复制粘贴重起名就是你的了!! ...
类方法，搞毛线啊。
全局方法好办。
直接：浏览文件夹2(, , )多好啊。
类方法，他是有继承的。 例如 这个方法，就基础了类的 @ inf.hwndOwner = GetMfcWndHandle ();
搞毛线搞，根本没法独立，除非再加个参数，输入 父窗口句柄 逆向枚举循环已经加进去了,另外那个命令你可以加到user目录下的用户模块里面就不会被覆盖了.
页:
[1]