- 博客(27)
- 收藏
- 关注
RSS订阅原创 证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（二）
本章讨论，当0时什么情况会存在。（由于有可能不存在） 据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组：①x + y = n ( a + b ) ②x y = a b n 由①得：③y = a n + b n – x 将③带入②得： x ( a n + b n – x ) = a b n x2 – a n x – b n x + a b n = 0x2 – ( a + b ) n
2005-11-11 20:32:00
1493
原创 证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（一）修正
证明1的过程有错，虽然结果还是必然成立，但是还是改一下~ 据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组： ①x + y = n ( a + b ) ②x y = a b n 由①得：③y = a n + b n – x 将③带入②得： x ( a n + b n – x ) = a b n ④x2 – a n x – b n x + a b n = 0 设在④中Δ，则可得： [ -
2005-11-11 19:34:00
1202
原创 VB：读取MP3的Tag（对网上流行版本改进）
网上有一段关于VB读取MP3Tag的代码，但不支持中文。这里我对这个代码进行改进。这是我改进后的代码：Public Type Mp3tag Artist As String Artist 存储歌手信息 Album As String Album 存储唱片专辑信息 Title As String Title 存储标
2005-11-11 12:35:00
2409
3
原创 证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（一）
本章讨论，当n≥1时是否存在。据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组：①x + y = n ( a + b )②x y = a b n由①得：③y = a n + b n – x将③带入②得：x ( a n + b n – x ) = a b n④x2 – a n x – b n x + a b n = 0设在④中Δ，则可得：[ - ( a + b ) n ]2 – 4
2005-11-10 15:48:00
2092
原创 VB：双击顺序
很多人用VB很久，但一直不明白双击触发事件的情况。经过测试，双击触发事件顺序如下：MouseDownMouseUpClickDblClickMouseUp 也就是说，在DblClick之前依然会触发Click，但不会触发两次。同时可以看到，MouseDown没有被触发两次，但MouseUp被触发了两次，因此可以说，处理MouseUp来计算鼠标点击次数更精确些。通过环境：Win2000+VB6
2005-08-29 20:09:00
1469
原创 1秒钟赢牌
大家可能都玩过Windows自带的纸牌游戏，可能很多人也很喜欢它赢后那个效果，非常漂亮。其实不用玩也能赢，在开局后按Alt+Shift+2即可，看到了吗？漂亮的效果，跟赢时一样！
2005-08-12 09:57:00
1214
原创 个性印章自己刻！
很多人可能都希望有一个个性的签名，说不定刻一个印章是不错的选择！其实很简单~ 首相等入可乐8（电信站或网通站）点击最下面右边的个性签名好了，剩下的会了吧~很简单，马上就可以拥自己即的印章了~
2005-08-01 18:22:00
1449
原创 更正：效果：屏幕剥落
感谢网友Farproc发现了我在《效果：屏幕剥落》中DC资源泄露的问题，现作如下修改：Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long下加上一句：Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hd
2005-07-28 10:03:00
1154
原创 效果：屏幕剥落
前几天心血来潮，做了一个屏幕剥落的小效果~拿出来和大家分享，同时也要感谢MySticBoy在API的使用上对我的指导~ 首先按照管理，窗体的AutoRedraw为True，BorderStyle为0，ScaleMode为3，另外就是WindowState设为2。然后添加Timer控件命名为tmr，PictureBox命名为picBack，AutoRedraw为True，AutoSize为Tr
2005-07-27 17:05:00
1337
2
原创 小心，StrConv有陷阱！
近日，笔者在使用StrConv(Strings,vbFromUnicode)时发现，在他后面如果跟一个 & 后面的字符串也会变成莫名其妙的“乱码”。 我认为，这有可能是由于Strings长度非偶数导致，经过试验，果真如此。因此需要先补位。在这句前面加上：Strings = Strings & IIf(Len(Strings) Mod 2 > 0, Chr(0), "") 即可！非常简单吧~
2005-07-25 12:55:00
1293
原创 VB字节型数组使用小小结
字节类型的数组有许多不同于其他类型数组的特性，他相对于其他的数组有时也更方便，下面是本人对字节型数组的小小结（可能还很浅，所以不敢叫小结） 首先是它的特性，它可以直接转换为字符串型（String），可以直接赋值，但是不推荐，至少要用CStr来转换，不过效果不是很好，常会出现乱字符，就算没出现一般也和预期不同，这是由于在数组转字符串的过程中VB默认采用ANIS的字符格式，因此需要采用StrCo
2005-07-20 16:28:00
3390
原创 速度优化：少用Collection
Collection，也就是VB中的内存集合，非常方便，但是麻烦也很多，如前面我的文章介绍过Collection存在的一些问题。不过他的问题不只如此~ 今天看到一帖，关于VB的&运算符速度慢的问题，有许多高手使用另类方法解决，随之我也想到我的慢的根蜗牛一样的程序（启动一次19s），是不是也存在这样的问题呢？在贴中说，&运算符在增加内容时要不断申请内存地址，因此我怀疑Collection也存在
2005-07-18 16:56:00
1199
原创 评论：条条框框 不应限制我们的思想
前几日，就在CSDN社区上见到一人大概这么说：我感觉VB的条条框框太多了，好像M$的产品都是这样（VC、MFC也是）。果真如此吗？ 首先，从技术角度出发进行分析：VB本身包含大量函数，适应极其广泛的需求；其次，就算VB做不到的，中外许多牛人也利用API实现了许多看似不可能的事情；同时，还应该看到，VB拥有十分庞大的控件和链接库支持，实现功能繁多，怎么能说有很多条条框框呢？把封装程度提高了，固
2005-07-13 09:36:00
2086
原创 更正：效果：雨
在《效果：雨》中最后我说到颜色部分还有BUG，现已修复，作如下修改： 在Dim lOther As Long下加一行：Dim sOther As String 将原文中所有.c = CLng("&H" & Hex$(lBlue) & Hex$(lOther) & Hex$(lOther))全部（共两处）替换为：sOther = IIf(Len(Hex$(lOther)) .c = CLng
2005-07-12 10:38:00
1140
原创 效果：雨
好久没下雨了，好想雨啊~用VB做了一个下雨的效果，很粗糙，希望能给大家做一点参考~ 窗体背景设为&H800000，Autoredraw设为True，Width为9600，Height为7200，ScaleMode设为像素，在窗体上添加一个Timer控件，命名为tmr，Interval设为100，输入如下代码：Option ExplicitPrivate Type POINT x1 As
2005-07-12 10:23:00
1404
2
原创 效果：文字隐现
前几天看到一个破解程序下面有一个框框，里面的文字淡入淡出，挺好看，闲来编个和大家分享。 首先，在窗体上放置Label1标签到适当位置，一个Timer1控件，Interval设为100。输入如下代码：Dim a As CollectionDim b As BooleanDim i As IntegerPrivate Sub Form_Load() Set a = New Collecti
2005-07-11 18:57:00
1074
原创 编程也要看单位
在VB编程中，也有许多单位，这些单位也许没有进行绘图或一些高级操作很少用到，但他们的确很重要。 下面，我们以Pixel（像素）为基础，看看各单位的转换（通式：像素*常数）：Const PIXEL_TWIP = 15 还有一个是StdPicture使用的单位，我将它定义为PIC，则有如下常数：Const PIXEL_PIC = 17 / 30 / PIXEL_TWIP 当然，这些有时会随着
2005-07-11 18:09:00
1238
原创 Collection：方便隐含问题所在
很多人可能跟我一样，在程序中使用Collection类做大量数据的存储，因为他十分方便，操作简单。这种被称为集合对象的东西有的时候确实非常令人不解~ 看下面这段代码（其中c为一个Collection对象，rec为一个以打开的Recordset）：c.Add rec("Name") 发现问题了吗？没有？哦~我开始也没发现，但是当到了另一个事件：a=c(1) 出错了……回到上面调试~没错~问
2005-07-10 10:27:00
1031
原创 应用：热键类
很多人都很想在自己的程序中加入热键，下面我把我写的一个热键类贴出来，大家可以参考参考，以后热键写起来就方便了~clsHotKey{Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Lo
2005-07-08 18:05:00
981
原创 参与Google Adsense，全面发挥Blog的创收潜力
在CSDN转了一圈（还没转完），发现有许多专栏都已经参与了Google Adsense，我也去申请了~现在骗人的网络赚钱的确很多，不过我想Google总不会为了这来砸自己的大牌吧~ 同时我想很多人也都已经跃跃欲试了，其实很简单，只要进入Google Adsense中文主页就可以开始了（我这可不骗人，确实他的中文主页），然后都是中文了~总不会连中文都看不懂吧（那就选英文咯~），自己去申请吧~很
2005-07-08 17:30:00
954
原创 小程序：LRC歌词展开
LRC大家都知道吧（不知道？就是那个带时间标签的文本歌词格式嘛~），很好用的东东~所以最近很多MP3Player也开始支持它了。笔者手上就有一个联想F520的MP3支持，不过有点小麻烦，这个MP3只支持一行一个时间标签，但是笔者手头上的LRC一行都有好些时间标签，像这样，MP3就会把后面的时间标签全部显示出来（晕~） 看来只能修改修改了~既然我们没办法修改MP3的固件，那就在LRC上动手脚吧
2005-07-08 13:07:00
2659
2
原创 调试不要热键
很多人写软件的时候，希望做一些热键方便用户，这样的文章在网上不少见了~不过真正开始写热键的时候，就知道了，调试它是多么可怕~ 当正在调试的程序里面有全局热键时，一但点击停止，马上VB关闭~这个分析起来是由于整个VB的消息全部先通过程序中的处理函数，程序一结束，处理函数没了，VB也活不了了~ 因此，直到热键正常了，就应该及时屏蔽，免得老麻烦鼠标去开VB~ 屏蔽方法非常简单，只要将那句Set
2005-07-07 17:39:00
936
原创 “热键”让我一身冷汗……
这次我的新程序中我准备使用热键。这可又是一个挑战了。以前的热键多是特定的功能特定的热键，最多允许修改特定功能的热键。我这个可不同了，我又多个同类窗体，每个窗体还有可能又由用户定义多个热键，这好像以前没什么人试过，也是一种挑战~我就喜欢挑战！ 虽说我喜欢挑战，但这次的挑战的确太大了~网上既然找不到相关文献资料，就自己做呗~ 首先，由于每个同类窗体都要许多热键，因此决定再建一个类，每个窗体绑定
2005-07-07 12:05:00
860
原创 有趣的QQ昵称
大家一定见过不少有趣的QQ昵称，一定很羡慕吧~ 其实那一点也不难，看看下面吧：第一：排第一 这个可能很多人都听说过，就是在昵称前面加上一个ASCII码为1的字符。不过这是有局限的，如果对方好友的排列顺序选择的不是“按首字母”那也没用。最好的当然是会员自动排前，看来不花点money是不行啦~再说还要会在前面加上一个方框（有的系统显示为一个小直角），有些不划算~ 当然，这对群还使有效的（不知
2005-07-05 16:59:00
12018
3
原创 雨
雨你有一種晶瑩的美麗，你有一種透亮的神秘。你代天使來滋潤大地，是你給世間帶來生機。你是生命的使者，又孕育多少軀體；你帶去死的靈魂，又換回新的生靈。望古今，卻多少無辜性命，屈葬于你的鐵蹄；又多少繁華都市淪爲平地。 但若沒有你，就毫無生氣； 也就沒有我，寫這詩給你。
2005-07-05 12:50:00
848
1
原创 数据库中的NULL错误
我正在编写的新软件采用了数据库，但近日遇到一个问题：有时读取信息时会出现错误，出错段代码如下：str = recMain("Title")错误描述为：实时错误94，无效使用 NULL经分析，由于数据库中相应数据为空，故返回NULL，但String类型不能接受NULL数据，故出错。解决方法：可以使用IIf(IsNull(recMain("Title")),"",recMain("Title"))
2005-07-05 12:25:00
1817
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人