摘要： 整了一个freebasic的List，方便使用： #ifndef NULL #define NULL 0 #endif Enum VariantType VT_EMPTY = 0 VT_INTEGER VT_LONG VT_SINGLE VT_DOUBLE VT_BOOLEAN VT_STRING 阅读全文

摘要： windows terminal统一管理各个命令行环境,将msys2加入到里面,更加方便编译环境的管理。如图所示: 通过修改windows terminal的setting.json配置文件实现。去appdata\microsoft里去找配置文件编辑。如下图路径： 在 profiles.list 里 阅读全文

摘要： 1.下载旧版本的mingw32/64. 2.编辑”msys64/home/用户名“路径下的.bashrc文件,加入以下内容: # 根据 MSYS2 环境自动切换 MinGW 路径 case "$MSYSTEM" in MINGW32) export PATH= "/D/mingw32/bin:$PA 阅读全文

摘要： 使用freebasic写了一个获取excel版本号的代码。fb通过disphelper库可以很方便使用com组件。代码如下给free basic使用者参考一下: #include "disphelper/disphelper.bi" DISPATCH_OBJ(xlapp) dhInitialize( 阅读全文

摘要： miniblink是一个开源的、单文件、且目前已知的最小的基于chromium的，浏览器控件。通过其导出的纯C接口，几行代码即可创建一个浏览器控件。 我扫了下下最新的mb132版本,粗略地看了下mb的头文件,看样子是stdcall调用约定,偷闲翻译了一个简单的小例子。测试了下在64位的excel上跑 阅读全文

摘要： 我写文章懒得啰嗦，只是做做记录，方便道友参考,直接代码开路。 #include "Afx/CADODB/CADODB.inc" DIM pConnection AS CAdoConnection pConnection.Open "Provider=SQLOLEDB;Server=127.0.0.1 阅读全文

摘要： 摘抄自己以前写的一段代码展示如何在visualfreebasic里使用mctrlgrid. Sub Form1_Shown(hWndForm As hWnd,UserData As Integer) Dim hdr(3) As String={"中","日","俄","欧"} Dim arr(1,3 阅读全文

摘要： 其实就是对数据源进行vlookup数据查询。下图A-E列为详细数据，H列为需要进行vlookup查询的数据。匹配不到保留下来并保持空项。 代码如下,数组arr是需要进行查询的数据，brr则是查询来源的数组。结果写进了sheet2. function 匹配数据(){ let sht=Sheets.It 阅读全文

摘要： 制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图： 代码： function 制作工作表目录(){ var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map 阅读全文

摘要： 主要是为了做个记录。 #include Once "Afx/AfxWin.inc" Dim As CObject xl = CreateObject("Excel.Application") Dim As CObject wkb = xl.Get("Workbooks") Dim As String 阅读全文