• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
  • 用PHP開發GUI(一個簡單的例子)

    發表于:2007-07-14來源:作者:點擊數: 標簽:
    環境:W2k+ php 4.3.1+php/gtk0.5.2 一個簡單的記事本(只可以打開文件進行修改) ?php set_time_limit (0);// 設置運行時間 if (!class_exists (gtk))// 判斷是否有GTK模塊 if (strtoupper (substr ($_SERVER[OS], 0, 3)) == WIN) dl (php_gtk.dll); else d
    環境:W2k+php4.3.1+php/gtk0.5.2
    一個簡單的記事本(只可以打開文件進行修改)
    <?php
    set_time_limit (0);       // 設置運行時間

    if (!class_exists ("gtk"))           // 判斷是否有GTK模塊
        if (strtoupper (substr ($_SERVER["OS"], 0, 3)) == "WIN")
            dl ("php_gtk.dll");
        else
            dl ("php_gtk.so");

    $window = &new GtkWindow ();              // 建一個窗口
    $window->set_uposition (100, 100);        //  窗口出現位置
    $window->set_usize ((gdk::screen_width()-200), (gdk::screen_height()-150));  // 窗口大小
    $window->set_title ("WINDOWS");         // 設置窗口標題
    $window->connect_object ('destroy', array ('gtk', 'main_quit'));     // 注冊窗口的事件

    $vbox = &new GtkVBox ();           
    $hbox = &new GtkHBox ();         
    $window->add ($vbox);


    $menuBar = &new GtkMenuBar ();               // 創建菜單
    $vbox->pack_start ($menuBar, false, false, 0);

    $file = &new GtkMenuItem ("File");
    $menuBar->append ($file);

    $fileMenu = &new GtkMenu ();
    $open = &new GtkMenuItem ("Open");
    $save = &new GtkMenuItem ("Save");
    $line = &new GtkMenuItem ();
    $line->set_sensitive (true);
    $exit = &new GtkMenuItem ("Exit");
    $fileMenu->append ($open);
    $open->connect_object ('activate', 'showFileSelection');        
    $fileMenu->append ($save);
    $save->connect_object ('activate', 'saveFile');
    $fileMenu->append ($line);
    $fileMenu->append ($exit);
    $exit->connect_object ('activate', array ('gtk', 'main_quit'));

    $file->set_submenu ($fileMenu);

    $scroll = &new GtkScrolledWindow ();
    $scroll->set_border_width (8);
    $scroll->set_policy (GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
    $hbox->pack_start ($scroll, true, true, 0);
    $vbox->pack_start ($hbox, true, true, 1);

    $text = &new GtkText ();
    $text->set_editable (true);
    $text->set_word_wrap (true);
    $scroll->add ($text);

    function showFileSelection ()           // 文件選擇函數
    {
        $file = &new GtkFileSelection ("File Selection");
        $ok_button = $file->ok_button;
        $ok_button->connect ('clicked', 'openFile', $file);
        $ok_button->connect_object ('clicked', array ($file, 'destroy'));
        $cancel_button = $file->cancel_button;
        $cancel_button->connect_object ('clicked', array ($file, 'destroy'));
        $file->show ();
    }

    $filePath = null;
    function openFile ($button, $f)          // 打開文件的函數
    {
        GLOBAL $text, $save, $filePath;
        $filePath = $f->get_filename ();
        if (is_file ($filePath))
        {
            $fp = fopen ($filePath, 'r');
            while (!feof ($fp))
                $str .= fgets ($fp, 1024);
            $text->insert (null, null, null, $str);
            fclose ($fp);
            return $filePath;
        }
    }

    function saveFile ()                // 保存文件的函數
    {
        GLOBAL $filePath, $text;
        if (is_file ($filePath))
        {
            $str = $text->get_chars (0, -1);
            $fp = fopen ($filePath, 'w');
            fwrite ($fp, $str);
            fclose ($fp);
        }
        return;
    }

    $window->show_all ();             // 顯示窗體內的所有控件
    gtk::main ();                      // 最重要的一句,不可少的
    ?>

    原文轉自:http://www.kjueaiud.com

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>