请问如何做出form下拉回缩的效果

2007-01-04 09:37:53 190 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

seabird125 墨衍会员 · AI 创作全网分发关注 + 加入社区

c#程序设计入门 (简单题) 【代码】c#期末题库(临沂大学版本) 阅读详情

就是类似QQ上缩窗口一样。。。。。。要看起来象是收上去的

...全文

C# 基础程序结构和入门实例（学习心得 2） C# Hello World 实例 C# 最小的程序结构需要包含以下部分：命名空间声明一个 class 一个 Class 方法该 Class 方法的属性一个 Main 方法语句 Statements 和表达式 Expressions 注释实例： using System; // 用于在程序中包含 System 命名空间。 namespace my_first_program // 指定命名空间的名字，可包含多个类 { class Program // 指定阅读详情

seabird125

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

JRS123 2007-01-07

打赏
举报

提供一组代码,看看能不能满足你的需要.
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal ptx As Long, ByVal pty As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter _
As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, _
ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Const HWND_TOPMOST = -1
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Is_Move_B As Boolean
Private Is_Movestar_B As Boolean
Private MyRect As RECT
Private MyPoint As POINTAPI
Private Movex As Long, Movey As Long
Private max As Long

Private Sub Form_Load()
Timer1.Interval = 50: Timer2.Interval = 1000
Form1.BackColor = vbBlue
Get_Windows_Rect
Picture1.Width = 10745
Form1.Width = 10770

End Sub
Sub Get_Windows_Rect()
Dim dl&
max = 2200: Form1.Height = max '窗体高度调整
Form1.Top = 0
dl& = GetWindowRect(Form1.hwnd, MyRect)
End Sub
Private Sub Form_Paint()
If PtInRect(MyRect, MyPoint.X, MyPoint.Y) = 0 Then
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, _
Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Form1.Height \ Screen.TwipsPerPixelY, 0
End If
End Sub
Private Sub Timer1_Timer()
Dim dl&
dl& = GetCursorPos(MyPoint)
If (PtInRect(MyRect, MyPoint.X, MyPoint.Y) And _
Form1.Height = max) Or MyPoint.Y <= 30 Then
Form1.BackColor = vbBlue
Form1.Height = max
If MyPoint.X - MyRect.Left <= 10 Or Is_Movestar_B Then
Screen.MousePointer = 15
Is_Move_B = True
Else
Screen.MousePointer = 0
Is_Move_B = False
End If
Else
If Not Is_Movestar_B Then
Form1.Height = 30
End If
End If
End Sub

seabird125 2007-01-04

打赏
举报

只控制form的height很难看的

chanfengsr 2007-01-04

打赏
举报

补充一下收缩是递减是要有加速度的～～不然很难看

Alzzl 2007-01-04

打赏
举报

用个timer控件递减form的height

snowwolf80 2007-01-04

打赏
举报

帮顶，哪里有这样的控件，偶也想要

programfish 2007-01-04

打赏
举报

可以用专门的控件。

请问如何做出form下拉回缩的效果

相关推荐