<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    ivaneeo's blog

    自由的力量,自由的生活。

      BlogJava :: 首頁 :: 聯系 :: 聚合  :: 管理
      669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks

    一段簡單的使用wxperl的perl代碼:



    #!/usr/bin/perl
    #############################################################################
    ## Name:??????? samples/hello/hello.pl
    ## Purpose:???? Hello wxPerl sample
    ## Author:????? Mattia Barbon
    ## Modified by:
    ## Created:???? 02/11/2000
    ## RCS-ID:????? $Id: hello.pl,v 1.3 2004/10/19 20:28:14 mbarbon Exp $
    ## Copyright:?? (c) 2000 Mattia Barbon
    ## Licence:???? This program is free software; you can redistribute it and/or
    ##????????????? modify it under the same terms as Perl itself
    #############################################################################

    ##??????這里發覺只有使用Wx,Encode,Encode::CN,File::Glob這四個模塊才能通過perl2exe編譯。

    ##??????但是還有把wxbase26u_gcc_custom.dll,wxmsw26u_adv_gcc_custom.dll,wxmsw26u_core_gcc_custom.dll

    ##??????拷到目錄下才能運行。

    use strict;
    use Wx;
    use Encode;
    use Encode::CN;
    #use PerlIO;
    #use POSIX;;
    #use Getopt::Std;
    use File::Glob;


    # every program must have a Wx::App-derive class
    package MyApp;

    use vars qw(@ISA);

    @ISA = qw(Wx::App);

    # this is called automatically on object creation
    sub OnInit {
    ? my( $this ) = shift;

    ? # create a new frame
    ? my( $frame ) = MyFrame->new();

    ? # set as top frame
    ? $this->SetTopWindow( $frame );
    ? # show it
    ? $frame->Show( 1 );
    }

    package MyFrame;

    use vars qw(@ISA);

    @ISA = qw(Wx::Frame);

    use Wx::Event qw(EVT_PAINT);
    # this imports some constants
    use Wx qw(wxDECORATIVE wxNORMAL wxBOLD);
    use Wx qw(wxDefaultPosition);
    use Wx qw(wxWHITE);

    sub new {
    ? # new frame with no parent, id -1, title 'Hello, world!'
    ? # default position and size 350, 100
    ? my( $this ) = shift->SUPER::new( undef, -1, 'Hello, world!',
    ?????????????????????????????????? wxDefaultPosition , [350, 100] );

    ? # create a new font object and store it
    ? $this->{FONT} = Wx::Font->new( 40, wxDECORATIVE, wxNORMAL, wxBOLD, 0 );
    ? # set background colour
    ? $this->SetBackgroundColour( wxWHITE );

    ? $this->SetIcon( Wx::GetWxPerlIcon() );

    ? # declare that all paint events will be handled with the OnPaint method
    ? EVT_PAINT( $this, \&OnPaint );

    ? return $this;
    }

    sub OnPaint {
    ? my( $this, $event ) = @_;
    ? # create a device context (DC) used for drawing
    ? my( $dc ) = Wx::PaintDC->new( $this );

    ? # select the font
    ? $dc->SetFont( $this->font );
    ? # darw a friendly message
    ? $dc->DrawText( 'Hello, world!', 10, 10 );
    }

    sub font {
    ? $_[0]->{FONT};
    }

    package main;

    # create an instance of the Wx::App-derived class
    my( $app ) = MyApp->new();
    # start processing events
    $app->MainLoop();

    # Local variables: #
    # mode: cperl #
    # End: #


    我現在還不知是為什么。如果有哪位高手知道,告訴小弟一聲。

    謝謝!

    posted on 2006-04-18 20:27 ivaneeo 閱讀(1032) 評論(0)  編輯  收藏 所屬分類: perl-殺雞就要用牛刀
    主站蜘蛛池模板: 91大神亚洲影视在线| 久久亚洲国产中v天仙www| 性xxxx黑人与亚洲| 亚洲成人免费电影| 亚洲天堂福利视频| 无码国产精品一区二区免费虚拟VR| 久久精品国产亚洲av麻豆色欲| 久久久久久AV无码免费网站| 亚洲Av无码精品色午夜| 日韩视频在线观看免费| 老司机亚洲精品影院无码| 亚洲视频在线免费看| 亚洲乱码在线视频| 日韩毛片免费在线观看| 国产精品亚洲天堂| 中文字幕人成人乱码亚洲电影| 中文字幕在线视频免费观看| 亚洲好看的理论片电影| 青青草a免费线观a| 亚洲高清一区二区三区电影| 亚洲av片一区二区三区| a毛片免费播放全部完整| 91亚洲va在线天线va天堂va国产| 日本精品人妻无码免费大全| 国产产在线精品亚洲AAVV| 亚洲午夜久久久久久久久电影网| 先锋影音资源片午夜在线观看视频免费播放| 亚洲视频国产视频| 曰皮全部过程视频免费国产30分钟| 日韩免费在线中文字幕| 亚洲av成人无码久久精品| 三年片在线观看免费大全 | 一区二区三区免费高清视频| 亚洲gv白嫩小受在线观看| 亚洲高清中文字幕免费| 曰批全过程免费视频免费看| 亚洲国产老鸭窝一区二区三区| 色吊丝最新永久免费观看网站| g0g0人体全免费高清大胆视频| 中文字幕亚洲色图| 一级毛片直播亚洲|