2个回答
展开全部
假定微调控件分别为Spinner1,Spinner2,Spinner3,形状为Shape1
选定表单,在vfp主窗口的菜单中找到表单(M),下拉,有个新建方法的选项。
新建完毕后,右键表单,代码,选到abc
在abc中输入:
thisform.Shape1.BorderColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value)
thisform.Shape1.BackColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value)
然后右键分别点击3个微调空间,在interactiechange事件里面输入
thisform.abc
选定表单,在vfp主窗口的菜单中找到表单(M),下拉,有个新建方法的选项。
新建完毕后,右键表单,代码,选到abc
在abc中输入:
thisform.Shape1.BorderColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value)
thisform.Shape1.BackColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value)
然后右键分别点击3个微调空间,在interactiechange事件里面输入
thisform.abc
展开全部
打开表单,点“表单”菜单-->“新建方法程序”,输入名称abc,输入代码:
thisform.Shape1.BackColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value) &&假如你表单上3个微调控件从上到下名称依次是Spinner1,Spinner2,Spinner3,形状名称为Shape1
在每个微调控件的interactiechange事件里面输入
thisform.abc
因为你没说清形状边框的颜色怎么赋值,所以没写。
thisform.Shape1.BackColor=rgb(thisform.Spinner1.value,thisform.Spinner2.value,thisform.Spinner3.value) &&假如你表单上3个微调控件从上到下名称依次是Spinner1,Spinner2,Spinner3,形状名称为Shape1
在每个微调控件的interactiechange事件里面输入
thisform.abc
因为你没说清形状边框的颜色怎么赋值,所以没写。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |