高考问答页岩气开采工艺:谁能帮我做一个用VB编写的程序（要源程序），有什么好的网址也可以发给我，有悬赏分哦~~
来源：百度文库 编辑：高考问答 时间：2024/04/28 11:48:19
http://www.xp163.com/aspphp/SoftList/Catalog_110_SoftTime_Desc_3.html
http://www.softhy.net/sort/71_1.htm
http://www.qcode.org/soft/133/135/
要什么样的程序？
窗体的动画效果,偶自己写的，有兴趣可以有偶联系 86711527 GOOD LUCK
Private Declare Function AnimateWindow _
Lib "user32" _
( _
ByVal hWnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long _
) As Long
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const AW_CENTER = &H10
Private Const AW_HIDE = &H10000
Private Const AW_ACTIVATE = &H20000
Private Const AW_SLIDE = &H40000
Private Const AW_BLEND = &H80000
Private Sub Form_Load()
AnimateWindow Me.hWnd, 10000, AW_BLEND Or AW_ACTIVATE
'还可以使用前面定义的其他常量显示不同的动画效果
Form1.Refresh
End Sub