IronPython で Windows.Forms

ボタンが押されたらテキストボックスに入ってる内容に従って何か処理する・・・のサンプルコード

import clr
clr.AddReference("System.Windows.Forms")
from System.Windows import Forms

class SimpleInputForm(Forms.Form):
    def __init__(self):
        self.Height = 120
        self.Width = 400
        self.Text = 'IronPython Windows.Forms sample'

        self.Controls.Add(Forms.Label(Left=20, Top=10, Text="Input your name."))
        self.MessageText = Forms.TextBox(Left=20, Top=35, Width=350)
        self.Controls.Add(self.MessageText)
        
        self.MessageButton = Forms.Button(Text="&Message", Left=100, Top=60)
        self.MessageButton.Click += self.OnClickHello
        self.Controls.Add(self.MessageButton)

        self.QuitButton = Forms.Button(Text="&Quit", Left=230, Top=60)
        self.QuitButton.Click += self.OnClickClose
        self.Controls.Add(self.QuitButton)

    def OnClickHello(self, sender, args):
        if self.MessageText.Text:
            message = "Hello, " + self.MessageText.Text + "!"
        else:
            message = "Hello, world!"
        Forms.MessageBox.Show(message)
        
    def OnClickClose(self, sender, args):
        self.Close()

if __name__ == '__main__':
    app = SimpleInputForm()
    Forms.Application.Run(app)

コメント 10

Cialis Usa Online Tadacip Buy Online <a href=http://achetercialisfr.com>cialis laboratoire</a> Levitra Wiki Europharmacy
by Auststeend (2019-04-19 07:59) 

Cephalexin Alcholol <a href=http://levipill.com>dove acquistare levitra sicuro</a> Levitra In Canada Discount Code Does Amoxicillin In Pill Form Expire
by Auststeend (2019-06-07 20:29) 

Viagra Advertized On Msnbc Generic Worldwide Progesterone Tablet Viagra 25 Mg Prix <a href=http://buyciali.com>cialis</a> Ofloxacin Buy Propanolol Online Australia
by Stepgit (2019-06-19 13:45) 

Alli Availability 2014 Viagra Sales In Usa Cialis 20 Efficacite <a href=http://cialibuy.com>Buy Cialis</a> Cialis 5 Mg Quanto Costa Tetracycline
by StevSmisse (2020-01-16 00:24) 

Overnight Lavitra Vente Cialis En Pharmacie Onllinepharmacy <a href=http://cialibuy.com>cialis</a> Acheter Cialis Pharmacie Levitra Ritarda L'Eiaculazione Rezept Fur Viagra
by MatCymn (2020-01-16 04:14) 

Kamagra 100 Online http://abcialisnews.com - Buy Cialis Vente De Propecia Generique <a href=http://abcialisnews.com>Cialis</a> Levitra En Mujeres
by Kelreeste (2020-01-27 06:29) 

Pharmacie Priligy http://abcialisnews.com - cialis 5 mg Propecia 1mg <a href=http://abcialisnews.com>canadian pharmacy cialis 20mg</a> Acheter Cialis Internet
by MatCymn (2020-02-21 12:35) 

Viagra Farmacias Online http://cheapcialisir.com - cialis 5 mg Buy Generic Propecia Uk <a href=http://cheapcialisir.com>Cialis</a> Buy Levitra In Us Without Prescription
by MatCymn (2020-02-24 06:17) 

Viagra Auswirkungen <a href=https://buyciallisonline.com/#>Buy Cialis</a> Cialis E Controindicazioni <a href=https://buyciallisonline.com/#>Cialis</a> Pharmacycustomercare
by StepPsype (2020-02-25 13:59) 

Propecia Minoxidil Together https://abuycialisb.com/ - free trial cialis online Viagra Con Alcohol <a href=https://abuycialisb.com/#>when will cialis be generic</a> Wiki Amoxicillin
by Obsesse (2020-06-10 02:55)