利用VB完全控制你的桌面图标
Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不
使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。
其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow和FindWindowEx来获得
它们的句柄，然后再调用其它相应的API函数来控制它们。而放置桌面图标的窗口是一个ListView对象，利用SendMessage函数
向该窗口发送相应的消息，就可以对图标进行修改了。下面是具体的程序实现。
首先在VB中建立一个新的工程，在Form1中加入三个CommandButton控件，然后在Form1的代码窗口中加入以下代码：
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long
Private Declare Function SendMessageP Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, _
相关文档：
关于曹师兄找工作：
在找工作过程中：
1、 观察力。面试时看见中南融通的横幅“最小化你和客户的距离，最大化你和客户的利益”，顺而和面试官讨论他们公司的文化和理念，会对你应聘有很大帮助。找工作时的笔试基础都差不多，重要的是和老总的面试，公司更注重的是你是如何做人的和你对业务的理解。所以，在以后 ......
VB无所不能之四：制作透明和半透明窗体
——作者：钟声
我们经常可以看到这样的窗体，觉得很炫，如图所示：
同样，对Windows系统方面的编程似乎首先想到的绝对不是VB，而大部分程序员想到的一定是VC。
& ......
rnd函数返回或者说产生一个小于1但大于或等于0的single类型的随机数。
产生随机数之前需要一个种子。
·不同的种子，可使随机数生成器生成不同的随机数；
·在一个种子下，生成的随机数相同。
随机数生成器的语句为randomize。格式为：randomize[x]。
·当x>0时，使用前一次调用rnd函数产生的� ......
最近在学习windows API的时候发现在个叫句柄的概念搞不清楚，于是查了一下现在把自己的理解写出来，后面再贴网上的介绍。句柄是一个代表窗口的正整数，当然窗口的概念在这里包含了桌面、按钮、滚动条等，这就是我最简单的理解了。
以下是网上的介绍：
了解句柄
在调用 ......
今天在调试的过程中发现 在vb中拼SQL的时候发现"()" 作用很大
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3 as integer
gcstrT_1 = 1
gcstrT_3 = 3
strWhere = strWhere & "……"
strWhere = strWhere & "AND ((T_K ......
