Perlについての質問箱 29箱目
■ このスレッドは過去ログ倉庫に格納されています
0730デフォルトの名無しさん
2007/02/21(水) 23:31:13substr( $lParam, 48, 8, $clrText);
を
$object->TextColor( (unpack('II',$clrText))[1] );
$object->TextBkColor( (unpack('II',$clrText))[0] );
にする方が楽だと思うけど、自己解決おめでと。
■ このスレッドは過去ログ倉庫に格納されています