[已解决】 不知道怎么说请进来看，这个效果怎么做

765058729

如图效果：注意是动画， “卷标” 长度，松开鼠标后底下的滑动条自动消失


太占资源了吧

If Not IsKeyDown("01") Then
        _GUICtrlListView_SetColumnWidth($listview, 2, 150)
        _GUICtrlListView_SetColumnWidth($listview, 0, 150)
EndIf
        
        
        
Func IsKeyDown($HexKey)
        Local $dll = DllOpen("user32.dll")
        If _IsPressed($HexKey, $dll) Then
                DllClose($dll)
                Return 1
        Else
                DllClose($dll)
                Return 0
        EndIf
EndFunc   ;==>IsKeyDown

nmgwddj

安装目录下GUI例子有。

765058729

安装目录下GUI例子有。
nmgwddj 发表于 2013-11-1 23:03

不是这个，注意动画 “卷标” 长度那里，松开鼠标后底下的滑动条自动消失

user3000

回复 2# nmgwddj


    楼主意思应该是？
   鼠标拖动列宽度时，松开鼠标后列宽立即恢复原来长度吧。

765058729

回复 4# user3000

对了，表达能力差，就是你说的意思

haijie1223

难道是循环检测~

765058729

难道是循环检测~
haijie1223 发表于 2013-11-1 23:52

这个是程序http://pan.baidu.com/s/11PqTg

1960025285

建议楼主看看【年老痴呆】大师的GHOST克隆工具，应该可以解决楼主的疑问！

haijie1223

回复 7# 765058729


    我知道是程序，我说这个列宽是不是循环检测并设定值啊。

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Dim $hListView

GUICreate("ListView Set Column Width", 400, 300)
$hListView = GUICtrlCreateListView("这一列是固定列宽|Column 2|Column 3", 2, 2, 394, 268)
_GUICtrlListView_SetColumnWidth($hListView, 0, 200)
GUISetState()

Do
        If _GUICtrlListView_GetColumnWidth($hListView, 0) <> 200 Then _GUICtrlListView_SetColumnWidth($hListView, 0, 200)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

seniors

这个要用回调函数
侦测左键释放

haijie1223

回复 10# seniors


    有道理，不过他上传的软件在xp下似乎直接不可更改列宽~

user3000

窗体消息模式里，GuiGetMsg 可以直接捕捉到一般鼠标按键的消息。
将9楼代码稍为转化一点就好。

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
Dim $hListView, $Form
$Form = GUICreate("ListView Set Column Width", 400, 300)
$hListView = GUICtrlCreateListView("这一列是固定列宽|Column 2|Column 3", 2, 2, 394, 268)
_GUICtrlListView_SetColumnWidth($hListView, 0, 200)
GUISetState()
While 1       
 Switch GUIGetMsg()
        Case -3
                GUIDelete($Form)
                ExitLoop
        Case -8 ；鼠标左键弹起
                If _GUICtrlListView_GetColumnWidth($hListView, 0) <> 200 Then _GUICtrlListView_SetColumnWidth($hListView, 0, 200)
 EndSwitch
WEnd

765058729

回复  765058729


    我知道是程序，我说这个列宽是不是循环检测并设定值啊。
haijie1223 发表于 2013-11-2 09:38

老大想多了，我只是链接个示例程序，你的代码可以搞定了

765058729

窗体消息模式里，GuiGetMsg 可以直接捕捉到一般鼠标按键的消息。
将9楼代码稍为转化一点就好。
user3000 发表于 2013-11-2 12:38

你这个完美了，谢谢，图片里拖动时文字居中并跟着拖动是扩展样式吗，我怎么找不到

afan

这个效果友好吗 …
我没有想到任何人性化的地方