VB工程--百例83--圆形颜色变换

概述Option Explicit Private Sub Command1_Click()         cdl1.ShowColor         '打开颜色对话框（关键）         Shape1.BorderColor = cdl1.Color         '圆形shape1的边框颜色是在颜色对话框中所在的颜色 End Sub Private Sub Command2_Click(

Option Explicit

Private Sub Command1_Click()
cdl1.Showcolor
'打开颜色对话框（关键）
Shape1.bordercolor = cdl1.color
'圆形shape1的边框颜色是在颜色对话框中所在的颜色
End Sub

Private Sub Command2_Click()
cdl1.Showcolor
Shape2.bordercolor = cdl1.color
End Sub

总结

以上是内存溢出为你收集整理的VB工程--百例83--圆形颜色变换全部内容，希望文章能够帮你解决VB工程--百例83--圆形颜色变换所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。