Option Explicit@H_301_5@

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

Private Sub Command2_Click()
cdl1.ShowColor
Shape2.BorderColor = cdl1.Color
End Sub@H_301_5@

@H_301_5@

@H_301_5@ 原文链接：https://www.f2er.com/vb/260347.html