电阻计算器（国外英文资料）.docVIP

电阻计算器（国外英文资料） 选项显式 私有声明函数为SetWindowLong Lib“user32”别名“SetWindowLongA”(ByVal hWnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) 私有的Const BS_FLAT = h8000 私有Const GWL_STYLE =(- 16) 私人Const WS_CHILD = 私人类型POINTAPI x一样长 y一样长 终端类型 暗的，焦的，我的 昏暗的恒星作为布尔 暗Str,InputStr作为字符串 昏暗的是整数 公共OneMoreBeerOnTheWall 私有子ColorBox_Click(索引为整数) 如果Index = 0或Index = 1 如果ColorBox(指数)。ListIndex = 0，然后是颜色(索引)。背景色= vbBlack 如果ColorBox(指数)。ListIndex = 1，然后是颜色(索引)。背景色= RGB(128,64,64) 如果ColorBox(指数)。ListIndex = 2，然后是颜色(索引)。背景色= vbr业务 如果ColorBox(指数)。ListIndex = 3，然后是颜色(索引)。背景色= RGB(255,123,36) 如果ColorBox(指数)。ListIndex = 4，然后是颜色(索引)。背景色= vbYellow 如果ColorBox(指数)。ListIndex = 5然后颜色(索引)。背景色= vbGreen 如果ColorBox(指数)。然后是颜色(索引)。背景色= vbBlue 如果ColorBox(指数)。ListIndex = 7，然后是颜色(索引)。背景色= RGB(128,0,128) 如果ColorBox(指数)。ListIndex = 8，然后是颜色(索引)。背景色= RGB(129,129,129) 如果ColorBox(指数)。ListIndex = 9，然后是颜色(索引)。背景色= vbWhite Command4_Click 退出子 如果 如果Index = 2 如果ColorBox(指数)。ListIndex = 0，然后是颜色(索引)。背景色= vbBlack 如果ColorBox(指数)。ListIndex = 1，然后是颜色(索引)。背景色= RGB(128,64,64) 如果ColorBox(指数)。ListIndex = 2，然后是颜色(索引)。背景色= vbr业务 如果ColorBox(指数)。ListIndex = 3，然后是颜色(索引)。背景色= RGB(255,123,36) 如果ColorBox(指数)。ListIndex = 4，然后是颜色(索引)。背景色= vbYellow 如果ColorBox(指数)。ListIndex = 5然后颜色(索引)。背景色= vbGreen 如果ColorBox(指数)。然后是颜色(索引)。背景色= vbBlue 如果ColorBox(指数)。ListIndex = 7，然后是颜色(索引)。背景色= RGB(226,196,133) 如果ColorBox(指数)。ListIndex = 8，然后是颜色(索引)。背景色= RGB(230,230,230) Command4_Click 退出子 如果 如果Index = 3 颜色(索引)。FillStyle = 1 如果ColorBox(指数)。ListIndex = 0，然后是颜色(索引)。背景色= RGB(128,64,64) 如果ColorBox(指数)。ListIndex = 1，然后是颜色(索引)。背景色= vbr业务 如果ColorBox(指数)。ListIndex = 2，然后是颜色(索引)。背景色= RGB(226,196,133) 如果ColorBox(指数)。ListIndex = 3，然后是颜色(索引)。背景色= RGB(230,230,230) 如果ColorBox(指数)。ListIndex = 4，然后是颜色(索引)。 FillStyle = 5:颜色(索引)。背景色= Shape1.BackColor Command4_Click 退出子 如果 终止子 私人潜艇Command4_Click() 因为I = 0到3 如果ColorBox(我)。然后ListIndex = 1 ColorBox .SetFocus(我) 退出子 如果 接下来,我 调暗环1、环2、环3、环4、贝内、安蒂安、瓦格德、德勒 Ring1 = ColorBox .ListIndex(0) .ListIndex Ring2 = ColorBox(1) 如果ColorBo