取色器,动态给出RGB的值(VB6.0源代码编写)OptionExplicitPrivateDeclareFunctionGetPixelLib"gdi32"(ByValhDCAsLong,ByValXAsLong,ByValYAsLong)AsLongDimpColorAsLongDimRAsLong,GAsLong,BAsLongPrivateSubForm_Load()Picture1.ScaleMode=3Picture1.Picture=LoadPicture(App.Path&"\1.bmp")