我来解答吧。
Dim M_R As Byte
Dim M_G As Byte
Dim M_B As ByteDim M_C As Byte
Dim M_M As Byte
Dim M_Y As Byte
Dim M_K As BytePrivate Sub V_COM_Click()
M_C = V_TXT(0)
M_M = V_TXT(1)
M_Y = V_TXT(2)
M_K = V_TXT(3)
M_R = (255 - M_C) * ((255 - M_K) / 255)
M_G = (255 - M_M) * ((255 - M_K) / 255)
M_B = (255 - M_Y) * ((255 - M_K) / 255)
V_TXT(4).Text = M_R
V_TXT(5).Text = M_G
V_TXT(6).Text = M_B
End Sub实际上RGB和CMYK是属于互补的要转换—……*—……*—……*!!