- 博客(69)
- 收藏
- 关注
RSS订阅原创 WPF 透明窗口可以调整尺寸（通过拖拽窗口边缘）
我们在Window控件中，设置WindowStyle="None"，这样一来，我们就得到了一个完全透明的窗口啦！，我们就不能够再通过拖拽窗口的边缘，改变窗口的尺寸了；这里我们在窗口中加入一个白色的背景，并给背景一个圆角，并且让背景有个好看的阴影。此时，我们可以看到，我们把鼠标移动到窗口边缘拖动后，就已经可以改变窗口的大小啦！但是，我们可以看到，现在窗口的背景是黑色的，并没有变透明，为什么呢？现在，我们没有办法通过拖拽窗口的边缘，调整透明窗口的尺寸。我们希望当我们按住这个Border的时候，就可以拖动窗口。
2024-07-17 11:36:21
823
原创 VBA学习(21)：遍历文件夹（和子文件夹）中的文件
File System Object（FSO）是一个单独的操作库，我们可以在VBA代码中使用它。为了确保这些代码可以处理任意数量的子文件夹，宏实际上会调用自身（一种称为递归的技术）。很多时候，我们都想要遍历文件夹中的每个文件，例如在工作表中列出所有文件名、对每个文件进行修改。下面的示例代码将文件名打印到立即窗口，很容易修改这些代码以更适合你的具体情况。后期绑定不需要任何特定操作来启用FSO库，确保在VBA代码中需要时打开库。Dir函数是一个内置的VBA函数，可用于可使用VBA的任何应用程序。
2024-07-16 14:53:02
491
原创 VBA学习(20)：一批简单的Excel VBA编程问题解答
7.单元格A10包含公式=SUM($A$1:$A$9)，如果将此公式复制到单元格F20，它将更改为什么？4.假定单元格区域R指向单元格A1:D6，则R.Cells（6）指向哪个单元格？当一个单元格中的公式引用另一个单元格时，该单元格直接或间接引用第一个单元格。8.公式包含单元格引用A$10，将此公式复制到另一个单元格会怎样？20.调用哪种方法来在单元格区域内查找要指定字符串的所有实例？3.你的程序在列B位置插入一个新列，原来的列B会怎样？9.一个工作表中的公式如何引用另一个工作表中的单元格？
2024-07-16 13:33:39
486
原创 VBA学习(19)：使用文本文件隐藏登录敏感信息
代码先查找桌面上指定的文本文件，使用Environ函数提取默认的路径，可将将文本文件所在文件夹追加到该路径后面以创建完整的路径。thespreadsheetguru.com展示了一种简单的方法，能够在运行时将用户名和密码带入VBA，而不会在VBA代码或Excel工作表中暴露这些敏感信息。经常看到很多人会将他们的登录名/密码直接存储在VBA代码中甚至工作表中，这是很不安全的一种处理方式。首先，将自已的用户名和密码保存在个人计算机上，可以将它们保存到文本文件中，如下图1所示。
2024-07-16 13:28:35
340
原创 SOLIDWORKS 强大功能之宏(三)
如果是焊件，则提取该焊件的“长”、“宽”、“高”属性，并将该长宽高信息组合，返写到零件的“规格”属性字段中;注意：如果用户需要对装配体下属的零件进行属性批量读取、返写，需结合我前面的文章，遍历整个装配体结构，来实现该效果，在这里不做过多赘述。用于删除自定义属性中原始字段(如果有)，然后再添加该字段，并在添加该字段时，为该字段指定新的值(“0001”);用于删除“默认”配置特定中的原有字段信息(“零件类型”)，然后再添加该字段，及字段所对应的值(“焊件”)。接下来，我们通过一个实例来演示一个完整的过程;
2024-07-15 10:05:02
363
原创 SOLIDWORKS强大功能—宏(二)
可以看到，虽然函数相同，但是前后两个GetAsmChild的变量却不同，第一次的GetAsmChild作为入口，传递的是我们打开的装配体文件的信息，第二次到第N次，传递的则是每一个子组件(子装配体)的信息，这样层层嵌套，最终实现装配体结构的整体的遍历。首先用户需要先获取当前装配体结构的子组件，然后通过for循环遍历该结构的所有子组件，并且判断每个子组件是属于零件还是装配体，如果是装配体，则需要对该装配体进行子组件获取，然后检查该装配体的下属层级…2.在装配体中查找出所有的标准件、特定的零部件;
2024-07-15 10:02:58
331
原创 SOLIDWORKS 强大功能之宏(一)
2. 在SOLIDWORKS菜单中找到“宏”的工具模块，点击后，在弹出的宏工具模块中选择“新建宏”，并保存该“宏”文件名称为“标准件插件”;5.使用工具箱控件为UserForm1窗体创建如下UI界面，包含可选的多页页签，选择o圈形式的单选按钮，o圈的尺寸参数输入框，生成按钮;8. 通过以下代码，在点击按钮时，将数据参数传递至3D模型，并通过调用已经创建好的标准模型，实现对模型的参数修改，另存为新的文件;4.现在我们需要为创建该插件的UI界面，来完成O圈的各类不同设置，并实现数据的采集;2.为零件随机上色;
2024-07-15 09:57:48
392
原创 工作助手VB开发笔记(3)
Fixed（默认值）使用的算法针对视觉上精确的字体平滑效果进行了优化，但当将动画应用于字体元素的属性时，可能导致性能问题以及抖动，尤其是对于 FontSize 或转换/定位/投影。在了解VB和C#的差异之后，我决定放弃使用VB，使用C＃来进行下一步的开发，此前的exe打包方法，axml界面可以复用，后端需要把VB改为C#。获取或设置一个值，该值影响文本元素的呈现行为，这是一种性能优化方式，当您对文本元素的任何文本属性进行动画处理时，可以使用此方式。· Display —— 新的模式，可以使字体显示更清晰。
2024-07-13 13:48:25
1134
原创 vb.net&cad二开自学笔记8：界面之任务窗格
使用net可以创建一个类似属性面板的自定义的任务窗格，从而实现应用程序更丰富的人机交互。2、在前面创建的代码框架内增加一个命令函数ShowMyPalette。框架有了剩下的就是在此基础上完善控件截面和编写对应代码的工作了！1、添加一个自定义控件。
2024-07-08 08:20:33
285
原创 vb.net&cad二开自学笔记7：绘图命令的改进与扩展
3、按此思路框架，扩展类AcModelSpace，添加一系列的AddXXX方法，便可轻松的清晰的扩展绘图命令的内容。2、myline命令中的代码也要做出对应的改变，是不是比之前简洁多了？
2024-07-08 08:18:28
413
原创 vb.net&cad二开自学笔记6：第一个绘制线段命令
net编写绘制直线已完全不同于ActiveX的（VBA）的方式，过程更类似于arx程序，需要通过操作AutoCAD 数据库添加对象！下面的代码是在以前代码基础上添加了一个新myline命令。MsgBox("net程序已经初始化！",, "WellcomCAD")'ed.WriteMessage("net程序已经初始化！ed.WriteMessage("欢迎进入cad世界！Debug.WriteLine("net程序即将销毁")AutoCAD 数据库结构。myline命令代码。
2024-07-08 08:06:56
546
原创 vb.net&cad二开自学笔记4：net程序的自动加载
计算机\HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R24.3\ACAD-7101\Applications\AcMgd]，亦可以在注册表编辑器中搜索AcMgd。（1）启动组：创建xxx.lsp程序其中用(command "netload" 你的netapp.dll完整路径），注意路径中的\用\\代替，然后在cad中用appload命令在启动组中加载xxx.lsp。指定dll加载的位置及文件的全路径名称，注意路径中的\全部用\\代替。4 - 命令运行就加载。
2024-07-08 08:06:27
376
原创 vb.net&cad二开自学笔记5：ActiveX链接CAD的.net写法
使用activex需要在项目属性中勾选以下两个引用，若找不到，则浏览定位直接添加下面两个文件，可以看到位于cad的安装路径下，图中的3个mgd.dll也可以勾选。先引用cad定义文件，再用New关键字实例化，属于先期绑定，也可用getobject（）和createobject（）进行后期绑定，具体哪种可根据需要调整。pt1(0) = 0 : pt1(1) = 0 : pt1(2) = 0'给起终点数组赋值。aLin = ms.AddLine(PT1, PT2)'在当前模型空间创建一条直线。
2024-07-06 17:19:31
580
原创 vb.net&cad二开自学笔记3：启动与销毁
这样就可以在启动net程序时做一些初始化和收尾工作，比如初始环境检测、程雪结束释放资源，相关内容写入日志等。
2024-07-06 17:19:02
235
原创 vb.net&cad二开自学笔记2：认识vs编辑器
认识一下宇宙第一编辑器的界面图标含义还是很重要的，否则都不知道面对的是什么还怎么继续？变量长方体：变量局部变量两个矩形块：枚举预定义的枚举紫色立方体：方法橙色树状结构：类灰色块：自定义的代码片段接口/typedef向左对齐的关键字图标倒着脸的结构体图标显得规规矩矩的宏定义图标大括号的命名空间图标事件属性委托。
2024-07-06 17:18:33
290
原创 vb.net&cad二开自学笔记1：万里长征第一步Hello CAD!
运行前，先快捷键Ctrl+Alt+E，改动Managed Debuggin Assistants->LoaderLock 的选中状态去掉。否则会出现：托管调试助手 "LoaderLock":“正尝试在 OS 加载程序锁内执行托管代码。又舍不得，咬牙从小白开始摸索自学吧，虽然注定是踏上了一条艰苦之路，顺便作个自学笔记备忘!宇宙第一编辑器果然不是概的，自动提示是真的非常友好，下面类中是直接输入代码，Imports部分就自动提示给你补齐了！我用的是vs2022，vs的安装我就不说了！已入门的朋友请绕行！
2024-07-06 16:55:34
477
原创 开关阀(5):术语解释
用于指定分配给安全仪表系统的安全仪表功能的安全完整性要求的离散级别(四分之一)。安全完整性等级1最低。通过分析和(或)测试，证明在相关安全生命周期的每个阶段，对特定的输入和输出在各方面都满足为特定阶段设定的目标和要求的活动。具有规定的安全完整性等级的安全功能，是实现功能安全所必需的，可以是安全仪表保护功能或安全仪表控制功能。在规定的时间内，在所有规定的条件下，安全仪表系统满意地执行所要求的安全仪表功能的平均概率。证明安装后正在考虑的安全仪表功能和安全仪表系统在各方面符合安全要求规范的活动。
2024-07-06 09:44:45
394
原创 工作助手VB开发笔记(1)
1.1 样式样式为常驻前台的一个小窗口，小窗口上有三到四个按钮，为一级功能，是当前工作内容的常用功能窗口，有十个二级窗口，为选中窗口时的扩展选项，有若干后台功能，可选中至前台可最小化至窗口栏，最小化按钮在窗口底部窗口为无边框1.2具体功能1.设置代办复制一段文本后添加代办2.复制填表。
2024-07-04 09:12:27
954
原创 Ribbon第三节：在快速访问工具栏（QAT）中添加项目
这里，因为要处理QAT，所以我们从头开始定制用户界面，然后以常规方式设置自定义选项卡和组并在自定义组中添加了两个按钮，将自定义组的getVisible属性设置为False，使其不会在选项卡中显示。最后，在QAT标签中，添加了两个自定义组，然后使用通用的control对象来引用想在QAT中显示的自定义组，同时为组赋予了内置的图像。在Excel中还可以使用不同的方式。因此，在Excel中，如果仅仅需要取消包含UI的工作簿中的快捷键，那么在移动到另一个工作簿中时或者当打开工作簿时需要撤销该快捷键的取消。
2024-06-26 17:44:17
1190
原创 开关阀(3):Fisher DVC6200定位器原理及调试
从控制系统过来的输入控制信号（4-20mADC）经过信号线接到接线盒。电子模块处理器读取输入控制信号和阀位反馈信号，经数字运算处理并转换成模拟量的控制驱动信号给 I/P 电气转换器，I/P将电信号转为气信号并由气动放大器功率放大，提供两路气动输出（以黑水三楼四个角阀为例，当信号增大时，输出 A 的气压增加而输出 B 的气压减小，当给定信号为12Ma时，输出AB两口气压差不多，当信号减小，B口气源增大，A口气源减小---大家可以观察角阀的定位器输出口，A口推动阀门开，B口推动阀门关闭）。
2024-06-22 08:52:22
246
原创 VBA：demo大全
说起排序这个词，想必大家都不陌生，这是数据处理过程中最常见的操作之一，但我们今天聊的不是数据排序，而是如何对工作表排序。我举个例子，如下图所示，一张工作簿有N张工作表，现在需要按升序对其重新排序。操作步骤如下：首先使用以下代码将工作表的名称罗列在当前表的A列.Clear '清除所有.NumberFormat = "@" '设置文本格式End Withk = 1Cells(1, 1) = "目录"For Each sht In Sheets '遍历工作表k = k + 1 '累加个数。
2024-06-22 08:30:38
930
原创 VBA学习(18)：VBA制作任意工作表均可使用的聚光灯
但需要说明的是，一旦使用VBA代码，Excel将会丧失“后悔”功能，也就是说Ctrl+Z的撤销功能会失去效果了。在需要制作聚光的工作簿，按组合键，打开VBE编辑器。如果你只是需要对某个工作表制作聚光灯，可以换用工作表事件，将以上代码修改为如下，并复制粘贴到相关工作表模块代码窗口即可。除此之外，该代码还会取消单元格原有设置的填充色，不过不会取消【条件格式】以及【表】功能设置的单元格填充色。当然，代码还有很多优化空间，比如，调整聚光灯的范围，仅限数据区域，参考代码如下▼。
2024-06-22 08:29:18
404
原创 VBA学习(17)：使用条件格式制作Excel聚光灯
公式由两部分构成，一部分是cell("row")=row()，另一部分是cell("col")=column()，两个部分做OR运算，意思是只要满足其中一个条件就符合计算规则。代码使用了工作表的SelectionChange事件，意思是当代码所在工作表的活动单元格发生改变时，就执行一次公式重弄算，以此达到对条件格式的CELL函数强制重算刷新的作用。按组合键打开VBE编辑器，在右侧工程资源管理器窗格，双击需要设置聚光灯的工作表对象，本例为Sheet1，将以下代码粘贴到该工作表的代码窗口中。
2024-06-22 08:26:09
786
原创 VBA学习(16)：工作表事件示例：输入数据后锁定单元格
这样，右击想要重新输入数据的单元格，会弹出一个消息框，询问你是否要重置这个单元格，如果点击“是”，则会清空该单元格并供输入新数据。可以使用右击单元格的方式，来重置想要重新输入数据的单元格。在工作表单元格中输入数据后，该单元格就被锁定，不能再编辑。这里，假设锁定工作表的密码为“123”。
2024-06-22 08:20:37
385
原创 VBA学习(15):工作表加密保护后却把密码忘记了？
最后关闭所有对话框，将文件后缀名从rar修改回xlsx，以Excel的名义打开它，便可以发现相关工作表的保护设置已被全部撤除。依次双击打开xl→worksheets→需要解除保护密码的工作表名称，本例为sheet1，打开的方式选择记事本。首先，将Excel工作簿的后缀修改为rar，比如演示文件.xlsx，修改为演示文件.rar。一种是傻瓜模式的VBA，复制运行以下代码，即可抹除当前工作簿所有工作表的保护加密。另外一种步骤稍多，适合惧怕VBA，更喜欢动手动脚的朋友们。双击该文件，打开方式选择WinRAR。
2024-06-22 08:17:58
418
1
原创 VB.net实战(VSTO)：VSTOwpf体验框架&打包教程
只是个体验框架，界面未作美化，office的用户可以用任意一种窗体，喜欢那个界面就写那个界面，wps的侧边栏只能弹出一部分，每次需要的手动拖动。以上就是简单的advance打包vsto的主要步骤，当然里面还有其他设置，例如更新软件，软件图标等等，大家自己感兴趣的去百度一下。我一般用第二种，就是打包的文件夹，里面放你的程序文件，一般就是debug或者release目录下生成的那些些东东。再到主题里面选择一个你喜欢的，最后再构建里面全部构建生成exe文件，打开输出目录就可以找到你的安装文件。
2024-06-22 08:04:33
636
原创 开关阀(2):专业名词解释
NEMA——National Electrical Manufacturers Association 国际电气制造协会。NACE——National Association of Corrosion Engineers 全国腐蚀工程师协会。ISO——International Organization for Standardization 国际标准化组织。NPT——National Pipe Tapered 国家锥管(美国标准60 度锥管螺纹）
2024-06-21 13:56:24
750
原创 VBA学习(14):给1000个文件重命名
第14至第27行代码遍历数据源数组，把第1列的旧文件名重命名为第2列的新文件名。第20至第25行代码，采用试错法，将处理结果信息写入结果数组。第7至第8行代码调用getStrPath函数过程，打开【文件浏览】对话框，允许用户选择的目标文件夹，并获取相关文件的路径。首先，使用以下代码，将该文件夹内的文件名批量提取到当前活动工作表的A列。最后，复制运行以下代码即可将A列旧的文件名修改为新的文件名。第9至第10行代码将A:B列的数据源数据存入数组aData。第28至第30行代码将结果数组写回当前工作表的C列。
2024-06-20 14:49:25
340
原创 VBA学习(13):获取多层文件夹内文件名并建立超链接
代码使用了FileSystemObject对象和递归的方法实现文件夹和文件的遍历功能。分别将文件夹名称和文件名提取在表格的A/B列，并对文件名创建了超链接。
2024-06-20 13:20:49
400
原创 VBA学习(12):制作动态模糊匹配的下拉菜单
选中目标工作表，在【开发工具】→【插入】→【ActiveX控件】，先后插入一个文本框和一个列表框。控件的大小和存放的位置都随意，反正这事你说了也不算，后面代码会自己做调整。需要注意的是，如果你不会调整VBA代码，那么此处文本框的名字必须为TextBox1，列表框的名字必须为ListBox1——正常而言，这俩名字也都是系统默认的。当在文本框中输入数据时，列表框的数据会随之动态更新。保持目标工作表选中状态不变，按快捷键打开VBE编辑器，将以下代码粘贴到当前工作表的代码窗口。
2024-06-20 13:17:32
516
原创 开关阀(1):定位器与电磁阀的区别
气动调节阀门可以暂时当做开关阀来使用，因为这种阀门在自造和选型时已经考虑到了阀门全关，全开时的工况了，但是调节阀的泄漏量闭开关阀的要大的多。气动开关阀门如果当做调节阀来使用这要有很多种情况了，其实在很多场合已经在调节阀上加了电磁阀起切断作用，这个是可以的，但是调节阀的泄漏等级一般都是4级，切断阀好的可以是6级，在这点上调节阀比不上切断阀。气动调节阀门配阀门定位器，气动开关阀配电磁阀这是肯定的。配定位器是为了能够精确的控制开度，而开关阀需要的是快速的开关，所以通常的配的是五通滑阀或者电磁阀。
2024-06-19 18:06:00
244
原创 VBA学习(11):用Excel控制电脑关机和重启
第4行代码使用CreateObject("Wscript.Shell")类库的Exec方法执行DOS语句。这个类库相比Shell函数的一大优势是：它不但可以执行DOS命令，还可以返回DOS命令的执行进度和结果。今天给大家简单聊一下如何使用Excel VBA 操作DOS，聊几个比较典型的案例，比如关机、关指定程序、获取多层文件夹下文件名等。正常来说，用以下语句也可以关闭Excel，但有时关的并不彻底，Excel程序依然存在于进程中。的方法，不过代码比较繁琐，效率也不是很高。相比之下，DOS方法就简洁太多了。
2024-06-19 09:15:00
502
原创 VBA学习(9)：按指定名单一键删除工作表
也就是删除单个工作表、删除全部工作表和删除指定名单内的工作表。第29至第44行代码遍历名单数据，第32行代码判断字典中是否存在需要删除的表名，如果存在，则删除，否则使用变量strErr记录未能删除的名单。打个响指，需要说明两点，一个是系统要求工作簿必须存在至少一张可见工作表，因此我们并不能将全部工作表都解雇，上述代码选择了保留当前工作表。第5至第8行代码判断工作簿是否有保护，工作簿结构保护状态下，工作表是不被允许开除的，违法行为知道吧？第19至第23行代码将当前工作簿现有工作表的名字存入字典。
2024-06-18 14:30:00
676
原创 VBA学习(8)：按指定模板批量创建工作表
第20至第24行代码采用试错的方式，判断当前工作簿是否有名为"模板"的工作表，如无，则弹窗提醒用户，并退出程序。首先，当前工作簿内需要存在一张名为"模板"的工作表；该工作表的格式和数据可以根据个人需要自定义。第35行代码删除可能重名的旧工作表。第37行代码复制模板表，并放置在当前所有工作表之后。今天给大家分享一下如何按指定名单和模板批量创建工作表。然后在另外一张工作表提供需要创建新工作表的名单。第32至第47行代码遍历新建工作表名单。最后，复制运行以下代码即可。
2024-06-18 14:15:00
405
原创 VBA学习(10):按名称批量将图片插入到表格中
代码继续运行，会先删除旧图片，再插入新图片，最后发出一个消息框，用户一共成功插入了多少张图片，失败了多少张；5>代码采用非引用的方式插入图片，该方式会将图片作为资源打包到excel文件中，即便数据源的图片已被删除，表格中的图片也依然存在，这样有利于将工作簿发送他人，不利是Excel体积过大，使用效率就会变差。当然，您也可以把代码稍微修改，设置固定的图片行高和列宽，并由图片的行高和列宽决定单元格的大小。然后选择图片名称存放的单元格区域，可以选择整列、多列、整行或多行，比如示例动画中的B:D列，2:2行等。
2024-06-18 13:59:47
696
原创 VBA学习(7)：按指定名单批量创建工作表
第11行代码使用Application.InputBox语句使用户选择工作表名称的来源单元格区域。第34至第40行代码判断错误号，如果存在错误，说明工作表名称不符合Excel要求，包含斜杠等特殊符号，则删除新建的工作表，并记录错误名称。第6行至第9行代码判断工作簿是否有保护，如果工作簿有保护是无法创建工作表的，弹窗提示用户并退出程序。第21行代码记录当前表，以便程序运行结束后，Excel界面回到当前位置。第32至第33行代码新建工作表并命名。第50至第56行代码弹窗告知用户工作表创建完成的信息。
2024-06-18 09:47:08
264
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人