这三个我都会,可惜分数少点。
1.cmb.width= len(cmb.text)
len对英汉混合得到的值不准确。
cmb的事件也要选好。
2.下面有两个函数,看你会不会用了。GetPixel VB声明
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
说明
在指定的设备场景中取得一个像素的RGB值
返回值
Long,指定点的RGB颜色。如指定的点位于设备场景的剪切区之外,则返回CLR_INVALID
参数表
参数 类型及说明
hdc Long,一个设备场景的句柄
x,y Long,逻辑坐标中要检查的点
GetDC VB声明
Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
说明
获取指定窗口的设备场景
返回值
Long,指定窗口的设备场景句柄,出错则为0
参数表
参数 类型及说明
hwnd Long,将获取其设备场景的窗口的句柄。若为0,则要获取整个屏幕的DC 3.如果你能得到窗口或控件对象,那可以这样
在一个过程中用:
on error resume next
set object.picture=stdpic
if err.number = 0 then
'成功
else
'失败
end if
1.cmb.width= len(cmb.text)
len对英汉混合得到的值不准确。
cmb的事件也要选好。
2.下面有两个函数,看你会不会用了。GetPixel VB声明
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
说明
在指定的设备场景中取得一个像素的RGB值
返回值
Long,指定点的RGB颜色。如指定的点位于设备场景的剪切区之外,则返回CLR_INVALID
参数表
参数 类型及说明
hdc Long,一个设备场景的句柄
x,y Long,逻辑坐标中要检查的点
GetDC VB声明
Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
说明
获取指定窗口的设备场景
返回值
Long,指定窗口的设备场景句柄,出错则为0
参数表
参数 类型及说明
hwnd Long,将获取其设备场景的窗口的句柄。若为0,则要获取整个屏幕的DC 3.如果你能得到窗口或控件对象,那可以这样
在一个过程中用:
on error resume next
set object.picture=stdpic
if err.number = 0 then
'成功
else
'失败
end if
2、commondialog 控件 showcolor
3、loadpicture
1,怎么根据combo框里的内容动态调整combo框的宽度?
2,怎么得到窗口某元素,如按钮表面颜色的"#FFFFFF"形式的值?