像写字板里的颜色按钮的下拉菜单中的颜色选项是如何实现的？

Question

如上

Answer 1

其实很简单，用三种方法都可以实现：
一、自绘菜单；
二、Form；
三、将PictureBox的父窗口设成桌面；

Answer 2

在VB中按Ctrl+T,进入部件...,找到microsoft  common dialog control 控件。
Private Sub Command1_Click()
   On Error GoTo errHandler
    CommonDialog1.CancelError = True
    
    CommonDialog1.Flags = cdlCFBoth
    CommonDialog1.ShowColor
    
   MsgBox "你选择了 " & CommonDialog1.Color
    
errHandler:
    If Err.Number <> 0 Then MsgBox "错误"
End Sub