Chinaunix
标题:
【紧急求助】win32:gui中文复制问题
[打印本页]
作者:
3chi01
时间:
2009-03-22 15:23
标题:
【紧急求助】win32:gui中文复制问题
请教各位大侠!
$outcome->Append( "$str\r\n"
;
$str可顺利输出中文结果“测试文本”, 但是把“测试文本”四个字复制粘贴到word中,出现乱码,请问各位老师如何解决。
use Win32::GUI qw();
my $main = Win32::GUI::Window->new (
-title =>"test",
-size => [388, 410],
-pos => [100,100],
-maxsize => [388, 410],
-minsize => [388, 410],
-topmost => 0,
);
###########
my $outcome=$main->AddTextfield(
-pos => [ 7, 130 ],
-name => "outcome",
-size => [ 365, 250 ],
-multiline => 1,
-vscroll=>1,
-hscroll=>1,
);
$main->AddButton(
-pos => [ 305,100 ],
-name => "btnStart",
-size => [ 65, 20 ],
-title => "处理",
);
# initialization
my $w = $main->ScaleWidth();
my $h = $main->ScaleHeight();
my $desk = Win32::GUI::GetDesktopWindow();
my $dw = Win32::GUI::Width($desk);
my $dh = Win32::GUI::Height($desk);
my $x = ($dw - $w) / 2;
my $y = ($dh - $h) / 2;
$main->Move($x, $y);
$main->Show();
Win32::GUI::Dialog();
exit(0);
sub btnStart_Click{
Win32::SetChildShowWindow(0);
$str="测试文本";
$outcome->Append( "$str\r\n");
}
复制代码
[
本帖最后由 3chi01 于 2009-3-22 22:07 编辑
]
作者:
3chi01
时间:
2009-03-22 22:05
把显示框中的文字复制到word中,出现乱码。
a1.jpg
(25.44 KB, 下载次数: 44)
下载附件
2009-03-22 22:05 上传
a2.jpg
(61.32 KB, 下载次数: 44)
下载附件
2009-03-22 22:05 上传
作者:
wxlfh
时间:
2009-03-23 03:43
在我地方是正确的。
作者:
machine
时间:
2009-03-23 09:36
你先贴到UltraEdit或者记事本 里看看,顺便查看一下它的编码。
作者:
3chi01
时间:
2009-03-25 21:22
多谢各位了。 今天发现好了,没找到原因。
欢迎光临 Chinaunix (http://bbs.chinaunix.net/)
Powered by Discuz! X3.2