<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-殺雞就要用牛刀
    主站蜘蛛池模板: 暖暖免费中文在线日本| 亚洲高清中文字幕免费| 青青视频免费在线| 日本免费一区二区三区最新| 亚洲中文无码亚洲人成影院| 女人让男人免费桶爽30分钟| 中文字幕在线观看亚洲日韩| 香蕉视频在线观看免费国产婷婷 | 一级一看免费完整版毛片| www.亚洲色图.com| 99在线视频免费观看| 亚洲成av人影院| 中文字幕免费在线看线人| 亚洲丝袜中文字幕| 女人18毛片水真多免费看| 亚洲av乱码一区二区三区按摩| 四虎永久精品免费观看| 一级日本高清视频免费观看| 亚洲精品美女久久777777| 91精品国产免费久久国语麻豆| 亚洲成A∨人片在线观看无码| 成年女人免费视频播放77777| 国产亚洲情侣久久精品| 国产亚洲精aa成人网站| 免费无码中文字幕A级毛片| 精品亚洲成A人无码成A在线观看| 国产精品免费播放| 91免费在线视频| 亚洲人成综合在线播放| 又粗又硬又大又爽免费视频播放| 两个人看的www免费高清| 亚洲精品在线视频观看| 国产精品视频免费一区二区三区| 久久免费视频一区| 亚洲人成网男女大片在线播放| 亚洲国产精品成人一区| **aaaaa毛片免费| 理论片在线观看免费| 亚洲精品国产专区91在线| 国产免费观看黄AV片| 四虎国产成人永久精品免费|