如何使用Perl语言在windows下编写图形化窗口程序啊，求大师，最好给个例子瞅瞅

perl 的图形有两种玩法, Tk 和 Tkx. Tk 是纯 Perl 的, 但能用的 widget (即那些 button, menu, scrollbar... )比较少Tkx 则需要你先装有 Tcl/Tk , 但能用的 widget 比较多. 一个最简单的例子就是

use Tk# 导入 tk 模组

use strict

my $mw = MainWindow->new# 创建窗口

my $labelObj = $mw->Label(-text =>'Hello, world!')# 创建一个 label 物件

$labelObj ->pack# pack() 是将物件程现的方法, 你再翻翻书, 还有 grid() 和 place() 的风格

$mw->Button(

-text=>'Quit',

-command =>sub { exit },

)->pack

MainLoop# 每个 tk 程序都要等到呼叫 MainLoop 才会出现.

最後, 你还得知道一个(差不多)每个物件都会的方法, 叫 configure, 你会以此对物件进行重新定义, 或附加设定

HACCEL hAccelTable

hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_WIN32))

while (GetMessage(&msg, NULL, 0, 0))

{

if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))

{

TranslateMessage(&msg)

DispatchMessage(&msg)

}

}

还要建立加速键表资源和相应项,指向菜单,或自定义的ID,

在wm_command或wm_syscommand中处理,和菜单类似

你可以建立默认的win32工程试试,或者是helloworld的win32工程,vs的几个版本应该差的不太多,里面应该含有例子

两种方法，第一种就是创建工程的时候选择创建MFC程序，在里边选择基于对话框的程序就行了。第二种是建立win32程序，在创建Win32

Application向导中选择创建一个Hello

Word示例程序。

---