1. 首页
  2. 编程语言
  3. VB
  4. 取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit

取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit

上传者: 2019-07-05 22:25:56上传 RAR文件 1.16MB 热度 29次
取色器,动态给出RGB的值(VB6.0源代码编写)OptionExplicitPrivateDeclareFunctionGetPixelLib"gdi32"(ByValhDCAsLong,ByValXAsLong,ByValYAsLong)AsLongDimpColorAsLongDimRAsLong,GAsLong,BAsLongPrivateSubForm_Load()Picture1.ScaleMode=3Picture1.Picture=LoadPicture(App.Path&"\1.bmp")
下载地址
用户评论
码姐姐匿名网友 2019-07-05 22:25:56

这个还可以,有些小错误