Perlについての質問箱 29箱目

Perlについての質問箱 ..

730:デフォルトの名無しさん
07/02/21 23:31:13
>>728
substr( $lParam, 48, 8, $clrText);
を
$object->TextColor( (unpack('II',$clrText))[1] );
$object->TextBkColor( (unpack('II',$clrText))[0] );
にする方が楽だと思うけど、自己解決おめでと。

次ページ