Workbench平台GUI二次开发入门系列——基本控件3
案例使用方法
本入门教程中的所有案例均已测试通过，具体参考入门1中的使用方法。
目录
09 基本控件2
10 基本控件3
11 基本控件4
12 高级控件1
13 高级控件2
14 对话框1
15 对话框2
16 拖拽功能
17 绘图1
18 绘图2
19 绘图3
20 绘图4
21 进度条
22 游戏——贪吃蛇
基本控件3
case18 工具栏控件5 RadioButton
目标：创建RadioButton（单选框）
本案中得单选框为互斥选项，选中其中一个选项，另一个选项自动失效。
# encoding: utf-8
import clr
clr.AddReference("System.Windows.Forms")
clr.AddReference("System.Drawing")
from System.Windows.Forms import Application, Form, StatusBar
from System.Windows.Forms import RadioButton, GroupBox
from System.Drawing import Size, Point
class IForm(Form):
def __init__(self):
self.Text = "RadioButton"
self.Size = Size(240, 240)
gb = GroupBox()
gb.Text = "Sex"
gb.Size = Size(120, 110)
gb.Location = Point(20, 20)
gb.Parent = self
male = RadioButton()
male.Text = "Male"
male.Parent = gb
male.Location = Point(10, 30)
male.CheckedChanged += self.OnChanged
female = RadioButton()
female.Text = "Female"
female.Parent = gb
female.Location = Point(10, 60)
female.CheckedChanged += self.OnChanged
self.statusbar = StatusBar()
self.statusbar.Parent = self
self.CenterToScreen()
def OnChanged(self, sender, event):
if sender.Checked:
self.statusbar.Text = sender.Text
Application.Run(IForm())
效果展示：
case19 工具栏控件6 MonthCalendar
目标：创建MonthCalendar
本案为创建一个日历窗口，可以显示当前日期和选中的日期。
# encoding: utf-8
import clr
clr.AddReference("System.Windows.Forms")
clr.AddReference("System.Drawing")
from System.Windows.Forms import Application, Form
from System.Windows.Forms import Label, MonthCalendar
from System.Drawing import Size, Point
class IForm(Form):
def __init__(self):
self.Text = 'MonthCalendar'
self.Size = Size(240, 240)
calendar = MonthCalendar()
calendar.Parent = self
calendar.Location = Point(20, 20)
calendar.DateSelected += self.OnSelected
self.date = Label()
self.date.Location = Point(30, 180)
self.date.Parent = self
dt = calendar.SelectionStart
self.date.Text = str(dt.Month) + "/" + str(dt.Day) + "/" + str(dt.Year)
self.CenterToScreen()
def OnSelected(self, sender, event):
dt = sender.SelectionStart
self.date.Text = str(dt.Month) + "/" + str(dt.Day) + "/" + str(dt.Year)
Application.Run(IForm())
效果展示：
完整的本地电子版本参阅入门1的其他。
登录后免费查看全文
著作权归作者所有，欢迎分享，未经许可，不得转载
首次发布时间：2025-02-09
最近编辑：3小时前
硕士
|
仿真工程师
CAE中学生
还没有评论
相关推荐
最新文章
热门文章
