中科新闻网真爱一世情分集剧情:有没有什么好网站介绍一下？
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 04:20:32
关于图片、音乐、电影、搞笑视频、军事、时事、写作、
游戏、电脑、运动、时尚的网站？我不想到百度那里去找
我要具体的网址哦。
还有关于自然科学、人文科学、旅游............
游戏、电脑、运动、时尚的网站？我不想到百度那里去找
我要具体的网址哦。
还有关于自然科学、人文科学、旅游............
要这么全的网站啊，
那就www.hao123.com
要不就去一些大型网站
Private Sub TraningForm(s As Integer)
Dim LRtn As Long
LRtn = GetWindowLong(hwnd, GWL_EXSTYLE)
LRtn = LRtn Or &H80000
SetWindowLong hwnd, (-20), LRtn
SetLayeredWindowAttributes hwnd, 0, s, &H2
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
Call TraningForm(Int(1))
End Sub
Private Sub Form_Unload(Cancel As Integer)
For i = 255 To 0 Step -1
Call TraningForm(Int(i))
Next i
End Sub
Private Sub Image1_Click()
Unload Form1
End Sub
Private Sub Timer1_Timer()
If i < 240 Then
i = i + 10
Call TraningForm(Int(i))
Else
Form1.Show
Timer1.Enabled = False
End If
End Sub