qq_24499417的博客

visual free basic 通过ado连接excel文件。注意程序的位数和驱动程序的位数要保持一致。#include once "Afx/CADODB/CADODB.inc"DIM pRecordset AS CAdoRecordsetDim r As CVAR = ""Dim f As CAdoFieldDim arr() As CVARDIM Connstr AS CVAR = "Provider=Microsoft.ace.OLEDB.12.0;Extended proper

利用mshtml在visual free basic里执行js.#include once "Afx/CDispInvoke.inc"DIM pdom AS CDispInvoke = "HTMLFILE"IF pdom.DispPtr = NULL THEN END Else Print "成功运行"DIM oWin AS CDispInvoke = pdom.Invoke("parentWindow")IF oWin.DispPtr THEN oWin.Invoke("exec

使用函数GetDIR.其语法如下。Function GetDIR(nPath As CWSTR, lName() As WIN32_FIND_DATAW) As Long获取文件夹下所有文件，包括文件夹 （不包含 . 和 .. 文件夹）nPath 要获取的路径，要带通配符，如： c:\*.*lName() 返回文件名列表，包括文件夹名，从 0 开始 到文件数-1返回文件数，返回0表...

对国家个数进行计数。#include once "Afx/CDicObj.inc" Dim s As String = "中国/捷恩斯/日本/中国/日本/中国/韩国/中国/韩国/中国/日本/韩国/中国/日本/中国/日本"Dim arr() As String dim U as Integer = Split(s, "/", arr()) 'U为split分割成的数组的成员的个数,ar...

#include once "Afx/CDSAudio.inc" #include once "Afx/CTime64.inc" Dim Audio_class As CDSAudioDim Return_code As HRESULT = Audio_class.Load("E:\KuGou\Beyond - 海阔天空.mp3")if Return_code = S_OK Then ...

今天讲一下FB里面的split函数。其语法：Function Split(TEXT as String, DELIMIT as String, RET() as String) as Integer。TEXT为要分割的字符串,DELIMIT为分隔符。第三参数为存放分割后的元素的数组。Split返回的值是ret这个数组的元素数量。下面我们来试试。Dim s As String = "中国/...

记录一下自己使用freebasic来制作标准的dll导出函数来给vb6调用。当然了在vba里也是可以使用的。今天就用fb写一个调用管道的导出函数。我用的ide是 VisualFreebasic.使勇芳大佬在老外的基础上进行打造的。体验效果还不错。自己可以百度去下载,是绿色免费的。言归正传，创建dll操作如下文件--新建，如下图，选择标准dll工程：在建立的dll模板里面deFF_WIN...