原程序如下:
OptionExplicit
`定义获取桌面HDC的api函数
PrivateDeclareFunctionGetDCLib“user32”(ByValhwndAsLong)AsLong
`定义TransparentBlt函数
`实现图片的透空效果需要用上API函数:TransparentBlt,这个函数功能十分强大,而且使用方便,但不幸的
`是VB自带的API浏览器居然把它的漏掉了,所以我们只有采用人工输入的方法了
PrivateDeclareFunctionTransparentBltLib“msimg32.dll”_
(ByValhdcDestAsLong,_
ByValnXOriginDestAsLong,_
ByValnYOriginDestAsLong,_
ByValnWidthDestAsLong,_
ByValnHeightDestAsLong,_
ByValhdcSrcAsLong,_
ByValnXOriginSrcAsLong,_
ByValnYOriginSrcAsLong,_
ByValnWidthSrcAsLong,_
ByValnHeightSrcAsLong,_
ByValcrTransparentAsLong)AsLong
`其中,hdcDest为目标地的HDC,nXOriginDEst和nYoriginDest分别为目标图像的起始点坐标,nWidthDesk和nHeightDest分别为目标图像的宽度和高度}List类型的一组数据有时候您会同时写几个不同的程序,或因为某种原因,程序停了一段时间,当您下一次要再继续写时,已经忘了上次写到那里了,其实有一个很简单的方法,可以马上唤起您的记忆
3、动态连接: 在说明什么是动态连接之前先看看方法的大概调用过程,首先在虚拟机运行的时候,运行时常量池会保存大量的符号引用,这些符号引用可以看成是每个方法的间接引用,如果代表栈帧A的方法想调用代表栈帧B的方法,那么这个虚拟机的方法调用指令就会以B方法的符号引用作为参数,但是因为符号引用并不是直接指向代表B方法的内存位置,所以在调用之前还必须要将符号引用转换为直接引用,然后通过直接引用才可以访问到真正的方法,这时候就有一点需要注意,如果符号引用是在类加载阶段或者第一次使用的时候转化为直接应用,那么这种转换成为静态解析,如果是在运行期间转换为直接引用,那么这种转换就成为动态连接
每个窗体模块都包含事件过程,即代码部分,其中有为响应特定事件而执行的指令
211 for(int i=0;i<10;i++) {当我们要移动控制项(Control)或表单(Form)时,很多人习惯这样写:
frmCustomer.Left=frmCustomer.Left 100
frmCustomer.Top=frmCustomer.Top 50
但是若使用MoveMethod,可以加快40:
frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->
: 把指定的键与指定的值添加到Map集合中录制器
OptionButton控件经常是作为控件数组存在的,要快速找到其中的哪一个被选中,可以使用下面的代码:
'假设控件数组包含3个OptionButton控件
intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2
注意,因为第一个操作数总是0,所以上述代码可以精简如下:
intSelected=-Option(1).Value-Option(2).Value*2->}。