Ruby Tk 使用 Frame 组件

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

require 'tk'
top=TkRoot.new{title "Shopping Details"}
fname_label=TkLabel.new(top){
    text "First Name"
    place('relx'=>0.0,'rely'=>0.1)
}
fname_entry=TkEntry.new(top){
    place('relx'=>0.1,'rely'=>0.1)
}
lname_label=TkLabel.new(top){
    text "Last Name"
    place('relx'=>0.0,'rely'=>0.2)
}
lname_entry=TkEntry.new(top){
    place('relx'=>0.1,'rely'=>0.2)
}
age_label=TkLabel.new(top){
    text "Age"
    place('relx'=>0.0,'rely'=>0.3)
}
age_entry=TkEntry.new(top){
    place('relx'=>0.1,'rely'=>0.3)
}
gender_label=TkLabel.new(top){
    text "Gender : "
    place('relx'=>0.0,'rely'=>0.4)
}
radioVar=TkVariable.new
    r1 = TkRadioButton.new(top){
    text "Male"
    variable radioVar
    
    value 1
    place('relx'=>0.1,'rely'=>0.4)
}
r2 = TkRadioButton.new(top){
    text "Female"
    variable radioVar
    value 2
    place('relx'=>0.2,'rely'=>0.4)
}
list = TkListbox.new(top){
place('relx'=>0.8,'rely'=>0.1)
}
list.insert(1," Python")
list.insert(2," Perl")
list.insert(3," C")
list.insert(4," PHP")
list.insert(5," JSP")
list.insert(6," Ruby")
submit=TkButton.new(top){
text "SUBMIT"
command proc {
val=list.curselection()
sel = list.get(val)
Tk.messageBox('message'=>" The book name chosen is #{sel} ")
}
place('relx'=>0.3,'rely'=>0.8)
}
Tk.mainloop

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!