倒着爬行的蜗牛

摘要： Format[$] ( expr [ , fmt ] )format 返回变体型format$ 强制返回为文本--------------------------------数字类型的格式化--------------------------------固定格式参数：General Number 普通数字，如可以用来去掉千位分隔号format$("100,123.12","General Number") 返回值 100123.12Currency 货币类型，可添加千位分隔号和货币符号format$("100123.12"," 阅读全文

摘要： 设定StatusBar上的文字，该文字以StatusBar所在Form的字型设定为准，并以form的ForeColor为字的颜色，文字过长时，自动会截除这个程式的实质意义不太大，因为当文字被盖掉後需自行重新再呼叫这个Sub才能再将文字显示出来，除非我们再使用Subclassing的方式，於statusBar接收到WM_PAINT时，去呼叫这个SubRoutine，这程式着重於Font的了解''below is within FormPrivate Sub Command1_Click()Call ShowPanelText(StatusBar1, 1, "这是一个有趣 阅读全文

摘要： 改变 TreeView 的背景Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParamAs Long, lParam As Long) As LongPrivate Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As 阅读全文

摘要： 您可能听说过，带有 yield 的函数在 Python 中被称之为 generator（生成器），何谓 generator ？我们先抛开 generator，以一个常见的编程题目来展示 yield 的概念。如何生成斐波那契數列斐波那契（Fibonacci）數列是一个非常简单的递归数列，除第一个和第二个数外，任意一个数都可由前两个数相加得到。用计算机程序输出斐波那契數列的前 N 个数是一个非常简单的问题，许多初学者都可以轻易写出如下函数：清单 1. 简单输出斐波那契數列前 N 个数 def fab(max): n, a, b = 0, 0, 1 while n >> fa... 阅读全文

摘要： 以下为在Csdn上找到的Treeview资源管理器代码，怎样改变其背景色？用:SendMessageSysTreeWindow,TVM_SETBKCOLOR,0,byvalRGB(255,255,255)来改变背景色是可以，但图标有白底。请问怎样使图标背景透明？Option Explicit'资源管理器树型目录模块TreeViewPrivate Const BIF_STATUSTEXT = &H4&Private Const BIF_RETURNONLYFSDIRS = 1Private Const MAX_PATH = 260Private Const WM_USER 阅读全文

摘要： 有没有哪位兄弟在VB中使用sendmessage对TreeView改变背景色?我现在遇到一个问题,如果把linestyle设为1的时候,展开节点的时候root部位会有一个下拉的白色块,如果设为1的时候,可以消除这种情况,但是新的问题是每一个节点如果处于该级的最后一个并且也有childnode的时候就又出现了白色的背景块?如何解决?我的源码是:PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,_ ByValwPara 阅读全文

摘要： 存取文件的方法有很多种，可以使用上述VB提供的函数，使用Windows API函数等等，但是最简单的方法是使用FileSystemObject对象。1、使用FileSystemObject对象FileSystemObject对象并非VB内置的对象，必须引用“Microsoft Scripting Runtime”对象模块，VB程序才可以使用FileSystemObject。选取VB菜单的“工程/引用”命令：引用了“Microsoft Scripting Runtime”对象模块后，如果使用“对象浏览器”窗口，可以看到在“Scripting”模块中新增的Dictionary、Drive、Driv 阅读全文

摘要： 在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。开始，这个函数存在于VB运行库1.0版中。通过声明可以调用这个函数：Declare Function VarPtr Lib "vbrun100.dll" (Var As Any) As Long数年之后，vbrun100.dll变成了msvbvm50.dll，但该函数的入口点却还在那儿。为了获取变量的地址，只须将变量名传递给该函数就行了。例如：Dim l As LongDebug.Print VarPtr(l)类似地，为了获取字符串的指针，而非保存字符串的变量的指针，只须在 阅读全文

摘要： 1、ADOX概述MicrosoftActiveXDataObjectsExtensionsforDataDefinitionLanguageandSecurity(ADOX)是对ADO对象和编程模型的扩展。ADOX包括用于模式创建和修改的对象，以及安全性。由于它是基于对象实现模式操作，所以用户可以编写对各种数据源都能有效运行的代码，而与它们原始语法中的差异无关。ADOX是核心ADO对象的扩展库。它显露的其他对象可用于创建、修改和删除模式对象，如表格和过程。它还包括安全对象，可用于维护用户和组，以及授予和撤消对象的权限。要通过开发工具使用ADOX，需要建立对ADOX类型库的引用。对ADOX库的说 阅读全文

摘要： http://iask.sina.com.cn/u/1745449523/ish?folderid=98384 阅读全文