Point应用于
Intersection 对象
返回或设置当前坐标轴与另一坐标轴的相交点。
语法
object.Point [ = point]Point 属性的语法包含下面部分:
部分 描述object 对象表达式,其值是“应用于”列表中的对象。
point Double。当前坐标轴与一个轴的相交点。
说明
如果设置了该属性,则 Intersection 对象的 Auto 属性将自动设置为 False。应用于
Form 对象, Forms 集合, PictureBox 控件, PropertyPage 对象, UserControl 对象, UserDocument 对象
按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。
语法
object.Point(x, y)
Point 方法的语法包含下列部分:
部分 描述object 可选的。一个对象表达式 ,该对象一定能在“应用于”列表中找到。 如果省略 object ,带有焦点的 Form 象缺省为 object.
x, y 必需的。均为单精度数值,指示 Form 或 PictureBox 的 ScaleMode 属性中该点的水平(x-轴)和垂直(y-轴)坐标。必须用括号包括这些数值。
说明
如果由 x 和 y 坐标所引用的点位于 object 之外,Point 方法将返回 -1。
示例
Point 方法示例
本示例使用 Point 方法来确定一个窗体上的一个指定点的颜色。要检验此示例,可将本例代码粘贴到一个窗体的声明部分,然后按 F5 键并单击该窗体。
Private Sub Form_Click ()
Dim LeftColor, MidColor, Msg, RightColor ' 声明变量。
AutoRedraw = -1 ' 打开AutoRedraw。
Height = 3 * 1440 ' 将高度设置为 3 英寸。
Width = 5 * 1440 ' 将宽度设置为 5 英寸。
BackColor = QBColor(1) ' 将背景设置为蓝色。
ForeColor = QBColor(4) ' 将前景设置为红色。
Line (0, 0)-(Width / 3, Height), , BF ' 红框。
ForeColor = QBColor(15) ' 将前景设置为白色。
Line (Width / 3, 0)-((Width / 3) * 2, Height), , BF
LeftColor = Point(0, 0) ' 查找左框颜色,,
MidColor = Point(Width / 2, Height / 2) ' 中框, 和
RightColor = Point(Width, Height) ' 右框。
Msg = "The color number for the red box on the left side of "
Msg = Msg & "the form is " & LeftColor & ". The "
Msg = Msg & "color of the white box in the center is "
Msg = Msg & MidColor & ". The color of the blue "
Msg = Msg & "box on the right is " & RightColor & "."
MsgBox Msg ' 显示信息。
End Sub
Intersection 对象
返回或设置当前坐标轴与另一坐标轴的相交点。
语法
object.Point [ = point]Point 属性的语法包含下面部分:
部分 描述object 对象表达式,其值是“应用于”列表中的对象。
point Double。当前坐标轴与一个轴的相交点。
说明
如果设置了该属性,则 Intersection 对象的 Auto 属性将自动设置为 False。应用于
Form 对象, Forms 集合, PictureBox 控件, PropertyPage 对象, UserControl 对象, UserDocument 对象
按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。
语法
object.Point(x, y)
Point 方法的语法包含下列部分:
部分 描述object 可选的。一个对象表达式 ,该对象一定能在“应用于”列表中找到。 如果省略 object ,带有焦点的 Form 象缺省为 object.
x, y 必需的。均为单精度数值,指示 Form 或 PictureBox 的 ScaleMode 属性中该点的水平(x-轴)和垂直(y-轴)坐标。必须用括号包括这些数值。
说明
如果由 x 和 y 坐标所引用的点位于 object 之外,Point 方法将返回 -1。
示例
Point 方法示例
本示例使用 Point 方法来确定一个窗体上的一个指定点的颜色。要检验此示例,可将本例代码粘贴到一个窗体的声明部分,然后按 F5 键并单击该窗体。
Private Sub Form_Click ()
Dim LeftColor, MidColor, Msg, RightColor ' 声明变量。
AutoRedraw = -1 ' 打开AutoRedraw。
Height = 3 * 1440 ' 将高度设置为 3 英寸。
Width = 5 * 1440 ' 将宽度设置为 5 英寸。
BackColor = QBColor(1) ' 将背景设置为蓝色。
ForeColor = QBColor(4) ' 将前景设置为红色。
Line (0, 0)-(Width / 3, Height), , BF ' 红框。
ForeColor = QBColor(15) ' 将前景设置为白色。
Line (Width / 3, 0)-((Width / 3) * 2, Height), , BF
LeftColor = Point(0, 0) ' 查找左框颜色,,
MidColor = Point(Width / 2, Height / 2) ' 中框, 和
RightColor = Point(Width, Height) ' 右框。
Msg = "The color number for the red box on the left side of "
Msg = Msg & "the form is " & LeftColor & ". The "
Msg = Msg & "color of the white box in the center is "
Msg = Msg & MidColor & ". The color of the blue "
Msg = Msg & "box on the right is " & RightColor & "."
MsgBox Msg ' 显示信息。
End Sub
解决方案 »
- 关于SendMessage TextBox.ToolTipText
- vb ocx交互
- 如何在各种网络环境下进行交流
- 请问如何获取当前路径
- VB中如何获得本地IP地址
- 我遇到一个难题:我用VB自动登陆163邮箱,成功了,并自动点了写信标签,现在想发信,但找不到发送标签及(收信人的地址)的HTML代码,请哪位高手能给我出个主意,谢谢!
- adodc的使用
- vsflexgrid+vsprinter打印问题
- 请高手指教:如何编程改变窗体图片的亮度和对比度?
- 怎样在 tabstrip 对象上加入各种控件?
- 如何设置listview在详细资料模式中列头的宽度?
- 请问,是哪位给我发的邮件,hxwang,是哪位呀。
y=1 '你自己设定hDC=GetDC(0)
color=GetPixel(hdc,x,y)debug.print "The Point at ";x;" ";y;" is ";hex(color)