09 2013 档案

摘要:您可能听说过,带有 yield 的函数在 Python 中被称之为 generator(生成器),何谓 generator ?我们先抛开 generator,以一个常见的编程题目来展示 yield 的概念。如何生成斐波那契數列斐波那契(Fibonacci)數列是一个非常简单的递归数列,除第一个和第二个数外,任意一个数都可由前两个数相加得到。用计算机程序输出斐波那契數列的前 N 个数是一个非常简单的问题,许多初学者都可以轻易写出如下函数:清单 1. 简单输出斐波那契數列前 N 个数 def fab(max): n, a, b = 0, 0, 1 while n >> fa... 阅读全文
posted @ 2013-09-25 11:17 笑笑小白 阅读(388) 评论(0) 推荐(0) 编辑
摘要:以下为在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 阅读全文
posted @ 2013-09-17 14:39 笑笑小白 阅读(1915) 评论(0) 推荐(0) 编辑
摘要:有没有哪位兄弟在VB中使用sendmessage对TreeView改变背景色?我现在遇到一个问题,如果把linestyle设为1的时候,展开节点的时候root部位会有一个下拉的白色块,如果设为1的时候,可以消除这种情况,但是新的问题是每一个节点如果处于该级的最后一个并且也有childnode的时候就又出现了白色的背景块?如何解决?我的源码是:PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,_ ByValwPara 阅读全文
posted @ 2013-09-17 14:38 笑笑小白 阅读(3274) 评论(0) 推荐(0) 编辑
摘要:存取文件的方法有很多种,可以使用上述VB提供的函数,使用Windows API函数等等,但是最简单的方法是使用FileSystemObject对象。1、使用FileSystemObject对象FileSystemObject对象并非VB内置的对象,必须引用“Microsoft Scripting Runtime”对象模块,VB程序才可以使用FileSystemObject。选取VB菜单的“工程/引用”命令:引用了“Microsoft Scripting Runtime”对象模块后,如果使用“对象浏览器”窗口,可以看到在“Scripting”模块中新增的Dictionary、Drive、Driv 阅读全文
posted @ 2013-09-17 11:38 笑笑小白 阅读(3167) 评论(0) 推荐(0) 编辑
摘要:在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)类似地,为了获取字符串的指针,而非保存字符串的变量的指针,只须在 阅读全文
posted @ 2013-09-03 10:39 笑笑小白 阅读(794) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示