VFP
VFP新技术推广
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区列位，此帖纯粹是玩笑帖，发个所谓命令按钮的复用技术，切不可用于实际，呵呵。
复制以下代码，保存为prg文件，运行之。（以此向版主及foxer们问好）
复制以下代码，保存为prg文件，运行之。（以此向版主及foxer们问好）
Public frm
frm=Createobject("myform")
frm.Show
Define Class myform As Form
AutoCenter = .T.
Height = 121
Width = 276
DoCreate = .T.
Caption = "玩笑按钮(按钮的复用技术)"
Name = "Form1"
Add Object command1 As CommandButton With ;
Top = 36, ;
Left = 48, ;
Height = 48, ;
Width = 180, ;
Caption = "新建 修改 删除 确定 取消", ;
Name = "Command1"
Add Object shape1 As Shape With ;
Top = 36, ;
Left = 0, ;
Height = 48, ;
Width = 36, ;
BackStyle = 1, ;
BorderStyle = 1, ;
DrawMode = 11, ;
FillStyle = 1, ;
Name = "Shape1"
Procedure Paint
Thisform.shape1.Refresh
Endproc
Procedure command1.MouseDown
Lparameters nButton, nShift, nXCoord, nYCoord
For i=1 To 5
If nXCoord < (7+(i-1)*3)*12
Thisform.shape1.Left= (1+3*i)*12
This.Tag = Substr(This.Caption, 7*i-6,4)
Exit
Endif
Endfor
Endproc
Procedure command1.MouseUp
Lparameters nButton, nShift, nXCoord, nYCoord
Thisform.shape1.Left=0
Thisform.Caption = [你选择了"]+This.Tag+["!]
Endproc
Enddefine
...全文
相关推荐
基于VFP SQL的分布式摩擦学设计专家系统的开发.pdf
基于VFP SQL的分布式摩擦学设计专家系统的开发.pdf
一段与VFP共舞的编程岁月
在上世纪90年代末至新千年初，我涉足数据库技术领域，从FoxBase起步，历经FoxPro与Visual FoxPro的迭代升级，深入研习并实践SQL查询与数据库优化。尤其在VFP时代，倾力开发教育应用，实现试题智能生成及在线测试功能，期间教学相长，成果斐然。此后，紧跟技术潮流，不断拓宽视野，先后掌握SQL Server、MySQL、Oracle等关系型数据库以及HBASE、MongoDB、Redis等NoSQL技术，持续拓展信息技术疆界，以实际行动诠释了终身学习与创新精神。
VFP_SQL Server设计C_S系统.pdf
VFP_SQL Server设计C_S系统.pdf
办公自动化学会简介及其理念.pdf
办公自动化学会简介及其理念.pdf
江苏省2005~2010二级VFP考试题
2005~2010江苏省二级VFP笔试真题,绝对正版，希望对各位考友有帮助
