求助：请熟悉Win32::GUI的大侠帮忙看如何实现listview里项目的双击。

tsunami_liao

我用代码生成了一个listview，并添加了我想要的数据，但是我不知道怎么实现双击，并且获取到所双击的行的第一列的内容。

查了网络试过ItemClick，DblClick什么的事件好像都无效。

难道是我在Windows7 x64上的原因？

Perl 是5.10.1，Win32::GUI是1.06的。

请大侠帮忙看看，如果能提供简单的例子最好。

谢谢了。

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Win32::GUI qw( MB_ICONINFORMATION MB_OK );
   
6. 
   
7. my $main = Win32::GUI::Window->new(
   
8.         -title => " Listvew Test",
   
9.         -size  => [700,400],
   
10.         -maximizebox        => 0,
    
11.         -dialogui        => 1,
    
12.         -noflicker        => 1,
    
13. );
    
14. 
    
15. $main->AddListView(
    
16.         -name      => "lv",
    
17.         -left   => 10,
    
18.         -top    => 10,
    
19.         -width     => 660,
    
20.         -height    => 330,
    
21.         -fullrowselect => 1,
    
22.         -gridlines => 1,
    
23.         -hottrack   => 1,
    
24.         -onDblClick => \&GetInfo,
    
25. 
    
26. );
    
27. my @col = qw/num id status/;
    
28. $main->lv->InsertColumn(-text=>"Name",-width=>200,-align => "center",);
    
29. $main->lv->InsertColumn(-text=>"Sex",-width=>200,-align => "center",);
    
30. $main->lv->InsertColumn(-text=>"Age",-width=>200,-align => "center",);
    
31. $main->lv->InsertItem(-item =>0,-text=>["Wang","M","22"]);
    
32. $main->lv->InsertItem(-item =>1,-text=>["Liu","F","33"]);
    
33. 
    
34. $main->lv->View(1);
    
35. $main->Center();
    
36. $main->Show();
    
37. Win32::GUI::Dialog();
    
38. $main->Hide();
    
39. undef $main;
    
40. exit(0);
    
41. 
    
42. sub Window_Terminate {
    
43.         return -1;
    
44. }
    
45. 
    
46. sub GetInfo {
    
47.         my $self = shift;
    
48.          my $info = $main->lv->GetItemText($main->lv->GetHotItem(),0);
    
49.         $self->MessageBox($info,"Get Info",MB_ICONINFORMATION | MB_OK,);
    
50.         return 0;
    
51. }

复制代码

这个我弄过，代码供你参考，希望能帮到你！

tsunami_liao

iamlimeng 发表于 2013-09-07 13:06
这个我弄过，代码供你参考，希望能帮到你！

非常感谢您的帮助，参考你的代码，已经实现了我所需要的功能。

请问您是否有些关于Win32 GUI的资料？官方的文档太简单，不知道哪里能找到一些更好的学习资料。谢谢！

zhlong8

回复 3# tsunami_liao


    推荐这个http://winprog.org/tutorial/zh/start_cn.html只学这个模块怎么用没什么意思，了解下它封装了什么自然就可以灵活运用。

tsunami_liao

zhlong8 发表于 2013-09-08 21:33
回复 3# tsunami_liao

非常感谢，由于我不是专业的程序员，所以可能对我来说看这些有点难度。
不过由于以前曾经有过使用vb6.0做过一些小项目（10年前的事情了），所以对win32 api也有一点点了解，对窗口和事件这些也有些了解。只是换成perl win32后有点不适应，有些事件和属性找不到对应的接口了。

当然我也正在考虑是否要用回vb，但是我的知识点是很多年前的vb6.0，用它是不实际了，现在应该用vb.net了吧，不过vb.net对于vb来说改变好像还真不少。而且我之前的数据都是在unix平台的perl采集和分析的，换到windows上处理比较麻烦，少了perl的正则和hash不知道如何才能更高效？

zhlong8

回复 5# tsunami_liao


    这个模块是有带有很多文档的只不过要自己编译才会生成 html 的，cpan.org 上找不到的

iamlimeng

Win32 GUI的资料真的很少，网上也找不到，随模块的文档也不是特别详细，模块附了一些DEMO可以参考，主要靠自己摸索和查MS的相关文档。

tsunami_liao

谢谢楼上两位的热心答复了。

看来我只有自己慢慢摸索一下了。