强烈希望LUMA增加QQ自动伸缩功能（缩到屏幕上方，鼠标一指，就显出来）

xiaosir

楼上的说话太坦诚了，何必点破人家大话呢，其实从说话水平就可以看出技术如何...其他的就不用多说了

lzanze

垃圾~~~妈的，我最讨厌就是马屁股精~~

用JAVA我是做不出来，因为JAVA我不会

DELPHI和VB的话，这个功能根本不在话下，所以对于LUMA更是不用说


好象说得你们很体谅LUMA一样，这样LUMA会觉得你们对他多么忠诚，这群人简直就是白痴！

除了白痴，我不会用其它词形容你们了！

下面就是偶N年前就用VB写的代码，给你们这群垃圾看看

Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal ptx As Long, ByVal pty As Long) As Long
Public MyRect As RECT, MyCur As POINTAPI

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type


Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Sub QQ(Myform As Form)
On Error Resume Next
Dim dl As Long
dl = GetWindowRect(Myform.hWnd, MyRect)
dl = GetCursorPos(MyCur)
If (PtInRect(MyRect, MyCur.x, MyCur.y)) And Myform.Top <= 0 Then
  Myform.Top = 0
  Exit Sub
End If
If Not (PtInRect(MyRect, MyCur.x, MyCur.y)) And Myform.Top <= 0 Then
  Myform.Top = 0 - Myform.Height + 82
  Exit Sub
End If
End Sub

meteoren

你这么牛B，自己写个自己用撒
会写两行代码就觉得自己是超级大牛了，肤浅啊.......................

lzanze

Post by csyfek

说句实话，我倒是很讨厌QQ弹来弹去的。。。

是吗？比你双击鼠标差在哪？？肯定是宓着良心说瞎话

做人何必做到这么低贱？？一定为奉承着别人？？你以为LUMA会给你好处啊？

白痴到没话说了！

xiaosir

    

csyfek

Post by lzanze
是吗？比你双击鼠标差在哪？？肯定是宓着良心说瞎话

做人何必做到这么低贱？？一定为奉承着别人？？你以为LUMA会给你好处啊？

白痴到没话说了！

真不知道该说你什么好了。用LumaQQ不要双击的，单击就行了的，自己回去试试吧~
氦~~~不知道是不是你小学语文没学好，白痴这两个字用在你身上倒合适~

soloforce

哈一哈　

lzanze

Post by csyfek
真不知道该说你什么好了。用LumaQQ不要双击的，单击就行了的，自己回去试试吧~
氦~~~不知道是不是你小学语文没学好，白痴这两个字用在你身上倒合适~

我操******************垃圾~~~

你全家被狗日死，哈哈哈

xiaosir

单击双击应该跟用的桌面环境设置有关系

xiaosir

Post by csyfek
真不知道该说你什么好了。用LumaQQ不要双击的，单击就行了的，自己回去试试吧~
氦~~~不知道是不是你小学语文没学好，白痴这两个字用在你身上倒合适~

老兄，我真服了你，一个字：强    ，你这样会让人郁闷到极点的