QQmenu函数加多一个判断:
Dim WinF As WinForm.Form = Args(0)
Dim But As WinForm.Button = Args(1)
Dim ButCount As Integer = Args(2)
Dim Pan0 As WinForm.Panel = WinF.Controls("Panel0")
Dim Int As Integer = Val(But.Name)
Dim Top As Integer
Dim ButHeight As Integer = But.Height
For i As Integer = 1 To ButCount
Dim Pan As WinForm.Panel = WinF.Controls("Panel" & i)
Pan.Top = -1+Top
If int = i Then
If Pan.Height = ButHeight Then
If i = 1 Then
Pan.Height = Pan0.Height-ButHeight*(ButCount-Int)-Top+1
Else
Pan.Height = Pan0.Height-ButHeight*(ButCount-Int)-Top
End If
Else
Pan.Height = ButHeight
End If
Else
Pan.Height = ButHeight
End If
Top += Pan.Height-1
Next
加好友 
发短信
Post By：2015/12/5 9:21:00 [显示全部帖子]
