代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
实现一个窗体
作者:
汶纡
/ 发布于
2014/11/18
/
959
Myapp.pm #!/usr/bin/perl -w use strict; # load wxPerl main module use Wx; # every application must create an application object package MyApp; use base qw(Wx::Frame Class::Accessor::Fast); use Wx qw(:textctrl :sizer :window :id); use Wx qw(wxDefaultPosition wxDefaultSize wxTheClipboard wxDEFAULT_FRAME_STYLE wxNO_FULL_REPAINT_ON_RESIZE wxCLIP_CHILDREN); use Wx::Event qw(EVT_TREE_SEL_CHANGED EVT_MENU EVT_CLOSE); use File::Slurp; use File::Basename qw(); use File::Spec; use UNIVERSAL::require; sub new{ my( $class ) = @_; my $self = $class->SUPER::new ( undef, -1, 'wxPerl demo', wxDefaultPosition, [ 800, 600 ], wxDEFAULT_FRAME_STYLE|wxNO_FULL_REPAINT_ON_RESIZE|wxCLIP_CHILDREN ); Wx::InitAllImageHandlers(); my $bar = Wx::MenuBar->new; my $file = Wx::Menu->new; my $help = Wx::Menu->new; my $edit = Wx::Menu->new; $file->Append( wxID_EXIT, '' ); $help->Append( wxID_ABOUT, '' ); $edit->Append( wxID_COPY, '' ); $edit->Append( wxID_FIND, '' ); my $find_again = $edit->Append( -1, "Find Again\tF3" ); $bar->Append( $file, "&File" ); $bar->Append( $edit, "&Edit" ); $bar->Append( $help, "&Help" ); $self->SetMenuBar( $bar ); $self->{menu_count} = $self->GetMenuBar->GetMenuCount; $self->SetIcon( Wx::GetWxPerlIcon() ); $self->Show; } 1; ui.pl #!perl -w use MyApp; use Getopt::Long; GetOptions( 'show=s' => \( my $module ), 'help' => \( my $help ), 'list' => \( my $list ), ) or usage(); usage() if $help; my $app = Wx::SimpleApp->new; my $locale = Wx::Locale->new( Wx::Locale::GetSystemLanguage ); my $ui = MyApp->new; $ui->activate_module( $module ) if $module; if ($list) { print join "\n", sort map $_->title, grep $_->can( 'title' ), $ui->plugins; exit 0; } $app->MainLoop; exit 0;
试试其它关键字
窗体
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
汶纡
贡献的其它代码
(
55
)
.
手机类型判断
.
sql 节假日判断(春节、中秋、国庆、周末等)
.
使用LEFT OUTER JOIN 实现not in 子句
.
获取图片宽度高度、大小尺寸、图片类型、用于布局的im
.
简单的大视频截取播放功能
.
如何通過ID號來刪除DataTable中的行
.
检测远程URL是否存在
.
阻止html页面加载
.
sql生成九九乘法表
.
oracle存储遍历表中数据
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3