文章存档

先做一个伏笔,接下来会发布一些看似不沾边的东西…但是组合起来又是什么呢。

[vb]Option Explicit

Private Declare Function GetUserName _
??????????????? Lib "advapi32.dll" _
??????????????? Alias "GetUserNameA" (ByVal lpBuffer As String, _
???…

其实还有一种，不过那个完全是调用管道来操作cmd.exe。
这篇是天极上的一篇老文，感觉也是从什么地方转载的…
原文出处？？：http://dev.yesky.com/9/2652009_1.shtml
有兴趣的话可以点击阅读全文。

[vb]Option Explicit

‘ API函数声明
Private Declare Function AllocConsole Lib "kernel32" () As …

其实多敲敲code后自然会有什么方式的代码最快最安全，其实设置居中真的很简单，但是差异还是很大的，如果你有兴趣可以点击阅读全文。

这个也是偶尔在网上看东西发现的小问题，其实也不算问题，不过如果目标机器资源紧张的时候，会出现窗口的一闪而过（改变位置。）
Move方法和这个是一样的，所以就忽略了。[通用的]
我…

简单的下雨屏保 说明,整理硬盘看到，修改为动态创建控件，使用本代码，你只需要修改窗口名称为frmMain，以及设置窗口样式为无边框，接下来直接F5或者运行即可。 ‘by promiseforever.com ‘先设置窗口名称为frmMain ‘再设置窗口样式为无边框 Option Explicit   Dim X(1 To 100) As Long, Y(1 To 100) As Long, pace(1 To 100) As Integer, size(1 To 100) As Integer   Dim WithEvents tmrFir As Timer   Private Sub Form_Activate()   Randomize   Dim i As Byte, w As Long, h As Long, p As …

声明：本文作者也很菜，水平有限，如果有错误，欢迎指出。 首先不强制声明变量的情况下，我们运行一下，看看会输出什么东西。 下面这段是一个简单的循环，是让变量i在窗体载入的时候进入一个1到10的循环， 最后输出结果和数据类型。 Private Sub Form_Load() ‘苏洋注释：建立一个空循环来验证变量是否可用 For i = 1 To 10 Next ‘输出结果 Debug.Print "数据数值:" & i, "数据类型:" & VarType(i) End Sub 运行了一下，结果很明晰，“数据数值:11 数据类型:2”，查表可知，2是integer。 或许你会说，没什么，很正常的，自动化类型么，我的实验目的是什么~ 如果你这么问了，说明你对优化程序细节还是没有建立初步的概念。 上面的循环范围在1~10完全可以使用byte类型来做的，如果使用integer或者long也不是不行，不过是增加了内存开支。 如果你有兴趣，可以阅读全文。

写这篇之前我先絮叨两句，印象中很久前有一个家伙给我Mail问我user-agent的相关，往来数封信后，问了我是干嘛的，苏洋同学自然是诚实的回复他，高三应届小P孩了，于是乎，便没了后文，真心的希望那个家伙是了解了user-agent以及的不同，而不是因为鄙夷我这个高中生还继续去Google过期的AD…

今天看旧博客的评论，翻到K同…