两天打鱼三天晒网

摘要： Attribute VB_Name = "modIni"Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName A 阅读全文

摘要： Attribute VB_Name = "modPub"Option ExplicitPublic strAppPath$Public intFontSize As IntegerPublic strFontColor As StringPublic lngFontColor As LongPublic strSplit As StringSub Main() strAppPath = App.Path If Right(strAppPath, 1) "\" Then strAppPath = strAppPath & "\" iniFileName = strAppPath & "us 阅读全文

摘要： 下载地址：http://download.csdn.net/source/1228525说明：一般情况下，当我当前已有一个工程打开时再通过双击dsw文件打开个新工程时那么之前打开的那个工程会被覆盖，相信这个问题一定困惑了许多了，你可以通过这个工具彻底解决。使用方法：将其中的“vc6tool.exe”文件复制到磁盘的某一目录，然后随便找个dsw文件右击选择打开方式，然后点浏览找到刚才的“vc6tool.exe”文件，勾选设置使用该程序打开。 vb6实现的源代码：Option ExplicitSub Main() On Error GoTo err1 Shell "C:\Program Files 阅读全文