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

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

（编辑：李大同）

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