7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qiqunet 2003-11-04
- 打赏
- 举报
在窗体上画点,可用
pset (X,Y),color 或 me.pset (X,Y),color 来画
如
pset (100,100)
pset (100,100),vbred
me.pset (100,100),rgb(200,50,0)
在Picturebox上画点,可用
picture1.pset (x,y),color来画
pset (X,Y),color 或 me.pset (X,Y),color 来画
如
pset (100,100)
pset (100,100),vbred
me.pset (100,100),rgb(200,50,0)
在Picturebox上画点,可用
picture1.pset (x,y),color来画
northwolves 2003-11-04
- 打赏
- 举报
Me.PSet (100, 100), vbRed '(x,y),forecolor
qiqunet 2003-11-04
- 打赏
- 举报
用法:
object.PSet [Step] (x, y), [color]
==========================================
以下是VB帮助上的内容:
Pset:将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字 ，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
说明
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。
画点的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。
想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor 属性设置作为 color 参数。
这个方法不能用在 With ,end With 语句块中。
=============================================================
Pset 示例:
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 线宽(点粗).
ForeColor = QBColor(4) ' 设置前景为红色。
FontSize = 24 ' 设置点的大小。
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Happy New Year!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub
object.PSet [Step] (x, y), [color]
==========================================
以下是VB帮助上的内容:
Pset:将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字 ，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
说明
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。
画点的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。
想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor 属性设置作为 color 参数。
这个方法不能用在 With ,end With 语句块中。
=============================================================
Pset 示例:
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 线宽(点粗).
ForeColor = QBColor(4) ' 设置前景为红色。
FontSize = 24 ' 设置点的大小。
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Happy New Year!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub
a11s 2003-11-04
- 打赏
- 举报
k=128 或其他小于255的整数
a11s 2003-11-04
- 打赏
- 举报
给你个例子吧，画调色板
dim i as long,j as long
'不要忘了把picture1.autoredraw设置为True,以及scleMode设置为像素
for i = 1 to 255
for j=1 to 255
picture1.pset (i,j,rgb(i,j,k))
Doevents
next
next
dim i as long,j as long
'不要忘了把picture1.autoredraw设置为True,以及scleMode设置为像素
for i = 1 to 255
for j=1 to 255
picture1.pset (i,j,rgb(i,j,k))
Doevents
next
next
阿建像熊猫 2003-11-04
- 打赏
- 举报
Me.PSet (100, 100), vbRed '(x,y),forecolor
li_ping 2003-11-04
- 打赏
- 举报
在VB中有两个操作像素的基本方法：PSet和Point。PSet生成像素；Point则读取像素值。并且显示器上所能显示的所有颜色都可以用RGB值来表示，VB中提供了RGB()函数，有三个变量RGB(Red,Green,Blue)，如RGB(255,0,0)表示红色，RGB(255,255,0)表示黄色等。 VB中没有提供将一个像素点的颜色返回成RGB值的函数，但我们可以用以下方法获得某一点的RGB值：
Pi＆ = Picture.Point(X, Y)
Red = Pi＆ Mod 256
Green = ((pi＆ And ＆HFF00) / 256＆) Mod 256＆
Blue = (pi1＆ And ＆HFF0000) / 65536
有了以上知识，再通过一些滤镜算法便可以产生一些很不错的滤镜效果。在此以浮雕、木刻、油画和灯光共四个滤镜效果为例。
具体操作步骤如下：
新建一个窗体 Form1，在图体上建立一个Picture1图像框，将其AutoSize的值设为 Ture，然后用Picture1的LoadPicture()命令调入一幅图像，再通过各种事件调用过滤过程（这里以Picture1_Click()事件来调用）。
以下为具体代码：
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Picture1.Picture = LoadPicture(图像文件全途径名)
End Sub
浮雕(图一)
浮雕的算法是在相邻像素的差值上加上一个常数，使黑暗区域增加一些亮度，我们可以取同一行、同一列或对角线上的相邻像素间的差值加上一个常数。
Private Sub Picture1_Click()
Dim pi1＆, pi2＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 1
B = 1
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 1 To xx － 2
For y = 1 To yy － 2
pi1＆ = Picture1.Point(x, y)
pi2＆ = Picture1.Point(x ＋ A, y ＋ B)
Red = Abs((pi1＆ Mod 256) － (pi2＆ Mod 256) ＋ 128)
Green = Abs((((pi1＆ And ＆HFF00) / 256＆) Mod 256＆) － (((pi2＆ And ＆HFF00) / 256＆) Mod 256＆) ＋ 128)
Blue = Abs(((pi1＆ And ＆HFF0000) / 65536) － ((pi2＆ And ＆HFF0000) / 65536) ＋ 128)
Picture1.PSet (x, y), RGB(Red, Green, Blue)
Next y
Next x
Picture1.Refresh
End Sub
油画(图二)
油画滤镜的算法是：用当前点四周一定范围内任一点的颜色来代替当前点的颜色。
Private Sub Picture1_Click()
Dim pi＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 2 To xx － 3
For y = 2 To yy － 3
A = Rnd ＊ 3 － 1
B = Rnd ＊ 3 － 1
pi = Picture1.Point(x ＋ A, y ＋ B)
Red = (pi＆ Mod 256)
Green = (((pi＆ And ＆HFF00) / 256＆) Mod 256＆)
Blue = ((pi＆ And ＆HFF0000) / 65536)
Picture1.PSet (x, y), RGB(Red, Green, Blue)
Next y
DoEvents
Next x
Picture1.Refresh
End Sub
木刻(图三)
这个滤镜的算法相对简单一点。只需判断当前点是浅色还是深色（即三颜色元素的平均值是否大于128），浅色用白色RGB(255,255,255)代替；深色用黑色RGB(0,0,0)代替。
Private Sub Picture1_Click()
Dim pi＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 1
B = 1
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 0 To xx
For y = 0 To yy
pi = Picture1.Point(x, y)
Red = (pi＆ Mod 256)
Green = (((pi＆ And ＆HFF00) / 256＆) Mod 256＆)
Blue = ((pi＆ And ＆HFF0000) / 65536)
If (Red ＋ Green ＋ Blue) / 3 < 128 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Else
Picture1.PSet (x, y), RGB(255, 255, 255)
End If
Next y
Next x
Picture1.Refresh
End Sub
灯光(图四)
灯光滤镜的算法很多，这里介绍一种小口径灯光滤镜，具体算法是取一点为光源（这里以30，40为例），从光线末端开始向光源点逐渐增加亮度（向白色接近）。代码为：
Private Sub Picture1_Click()
Dim pi1＆, pi2＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 30
B = 40
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 1 To xx
For y = 1 To yy
pi1 = Picture1.Point(x, y)
If Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) － 40 < 0 Then
Red = ((pi1＆ Mod 256) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
Green = ((((pi1＆ And ＆HFF00) / 256＆) Mod 256＆) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
Blue = (((pi1＆ And ＆HFF0000) / 65536) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
If Red < 0 Then Red = 0
If Red > 255 Then Red = 255
If Green < 0 Then Green = 0
If Green > 255 Then Green = 255
If Blue < 0 Then Blue = 0
If Blue > 255 Then Blue = 255
Picture1.PSet (x, y), RGB(Red, Green, Blue)
End If
Next y
Next x
Picture1.Refresh
End Sub
Pi＆ = Picture.Point(X, Y)
Red = Pi＆ Mod 256
Green = ((pi＆ And ＆HFF00) / 256＆) Mod 256＆
Blue = (pi1＆ And ＆HFF0000) / 65536
有了以上知识，再通过一些滤镜算法便可以产生一些很不错的滤镜效果。在此以浮雕、木刻、油画和灯光共四个滤镜效果为例。
具体操作步骤如下：
新建一个窗体 Form1，在图体上建立一个Picture1图像框，将其AutoSize的值设为 Ture，然后用Picture1的LoadPicture()命令调入一幅图像，再通过各种事件调用过滤过程（这里以Picture1_Click()事件来调用）。
以下为具体代码：
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Picture1.Picture = LoadPicture(图像文件全途径名)
End Sub
浮雕(图一)
浮雕的算法是在相邻像素的差值上加上一个常数，使黑暗区域增加一些亮度，我们可以取同一行、同一列或对角线上的相邻像素间的差值加上一个常数。
Private Sub Picture1_Click()
Dim pi1＆, pi2＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 1
B = 1
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 1 To xx － 2
For y = 1 To yy － 2
pi1＆ = Picture1.Point(x, y)
pi2＆ = Picture1.Point(x ＋ A, y ＋ B)
Red = Abs((pi1＆ Mod 256) － (pi2＆ Mod 256) ＋ 128)
Green = Abs((((pi1＆ And ＆HFF00) / 256＆) Mod 256＆) － (((pi2＆ And ＆HFF00) / 256＆) Mod 256＆) ＋ 128)
Blue = Abs(((pi1＆ And ＆HFF0000) / 65536) － ((pi2＆ And ＆HFF0000) / 65536) ＋ 128)
Picture1.PSet (x, y), RGB(Red, Green, Blue)
Next y
Next x
Picture1.Refresh
End Sub
油画(图二)
油画滤镜的算法是：用当前点四周一定范围内任一点的颜色来代替当前点的颜色。
Private Sub Picture1_Click()
Dim pi＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 2 To xx － 3
For y = 2 To yy － 3
A = Rnd ＊ 3 － 1
B = Rnd ＊ 3 － 1
pi = Picture1.Point(x ＋ A, y ＋ B)
Red = (pi＆ Mod 256)
Green = (((pi＆ And ＆HFF00) / 256＆) Mod 256＆)
Blue = ((pi＆ And ＆HFF0000) / 65536)
Picture1.PSet (x, y), RGB(Red, Green, Blue)
Next y
DoEvents
Next x
Picture1.Refresh
End Sub
木刻(图三)
这个滤镜的算法相对简单一点。只需判断当前点是浅色还是深色（即三颜色元素的平均值是否大于128），浅色用白色RGB(255,255,255)代替；深色用黑色RGB(0,0,0)代替。
Private Sub Picture1_Click()
Dim pi＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 1
B = 1
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 0 To xx
For y = 0 To yy
pi = Picture1.Point(x, y)
Red = (pi＆ Mod 256)
Green = (((pi＆ And ＆HFF00) / 256＆) Mod 256＆)
Blue = ((pi＆ And ＆HFF0000) / 65536)
If (Red ＋ Green ＋ Blue) / 3 < 128 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Else
Picture1.PSet (x, y), RGB(255, 255, 255)
End If
Next y
Next x
Picture1.Refresh
End Sub
灯光(图四)
灯光滤镜的算法很多，这里介绍一种小口径灯光滤镜，具体算法是取一点为光源（这里以30，40为例），从光线末端开始向光源点逐渐增加亮度（向白色接近）。代码为：
Private Sub Picture1_Click()
Dim pi1＆, pi2＆
Dim x, y
Dim A, B As Integer
Dim Red, Green, Blue As Integer
A = 30
B = 40
xx = Picture1.ScaleWidth
yy = Picture1.ScaleHeight
For x = 1 To xx
For y = 1 To yy
pi1 = Picture1.Point(x, y)
If Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) － 40 < 0 Then
Red = ((pi1＆ Mod 256) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
Green = ((((pi1＆ And ＆HFF00) / 256＆) Mod 256＆) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
Blue = (((pi1＆ And ＆HFF0000) / 65536) ＋ 200 ＊ (1 － (Sqr((A － x) ＊ (A － x) ＋ (B － y) ＊ (B － y)) ＋ 1) / 40))
If Red < 0 Then Red = 0
If Red > 255 Then Red = 255
If Green < 0 Then Green = 0
If Green > 255 Then Green = 255
If Blue < 0 Then Blue = 0
If Blue > 255 Then Blue = 255
Picture1.PSet (x, y), RGB(Red, Green, Blue)
End If
Next y
Next x
Picture1.Refresh
End Sub
Gelim 2003-11-04
- 打赏
- 举报
用法:
object.PSet [Step] (x, y), [color]
==========================================
以下是VB帮助上的内容:
Pset:将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字 ，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
说明
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。
画点的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。
想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor 属性设置作为 color 参数。
这个方法不能用在 With ,end With 语句块中。
=============================================================
Pset 示例:
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 线宽(点粗).
ForeColor = QBColor(4) ' 设置前景为红色。
FontSize = 24 ' 设置点的大小。
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Happy New Year!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub
做了一回复制。
object.PSet [Step] (x, y), [color]
==========================================
以下是VB帮助上的内容:
Pset:将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：
部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字 ，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
说明
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。
画点的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。
想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor 属性设置作为 color 参数。
这个方法不能用在 With ,end With 语句块中。
=============================================================
Pset 示例:
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 线宽(点粗).
ForeColor = QBColor(4) ' 设置前景为红色。
FontSize = 24 ' 设置点的大小。
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Happy New Year!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。
Do
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub
做了一回复制。
