Freebasic - 随笔分类 - fan2006

mctrlgrid用法

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

posted @ 2024-10-26 13:51 fan2006 阅读(40) 评论(0) 推荐(0)

vfb导出excel里的图表为本地图片

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

posted @ 2022-09-07 14:03 fan2006 阅读(177) 评论(1) 推荐(0)

freepascal获取进程列表

摘要：program ProcessesList; uses Comobj; var Wmi,Obj,Objs: OleVariant; i,ProcessTotal:Byte; begin Wmi:= CreateOleObject('WbemScripting.SWbemLocator'); Objs 阅读全文

posted @ 2021-04-12 10:31 fan2006 阅读(117) 评论(0) 推荐(0)

去掉VFB dll里导出的函数后缀

摘要：去掉vfb的标准dll里的函数后缀可以： 1.普通模块里使用cdecl调用约定/起始模块里使用Extern "C",此语句默认使用cdecl约定。这个就不多说了。在Windows系统上，STDCALL程序在其内部/外部名称中添加了@ N “装饰，其中N 的大小的参数列表，以字节为单位。 2。通过下阅读全文

posted @ 2020-07-21 16:13 fan2006 阅读(213) 评论(0) 推荐(0)

vfb查询excel

摘要：visual free basic 通过ado连接excel文件。注意程序的位数和驱动程序的位数要保持一致。 #include once "Afx/CADODB/CADODB.inc" DIM pRecordset AS CAdoRecordset Dim r As CVAR = "" Dim f 阅读全文

posted @ 2020-06-19 19:11 fan2006 阅读(345) 评论(0) 推荐(0)

vfb运行js

摘要：利用mshtml在visual free basic里执行js. #include once "Afx/CDispInvoke.inc" DIM pdom AS CDispInvoke = "HTMLFILE" IF pdom.DispPtr = NULL THEN END Else Print " 阅读全文

posted @ 2020-06-14 17:16 fan2006 阅读(273) 评论(0) 推荐(0)

随笔分类 - Freebasic

公告