❶ VB程序怎样将图片的线条颜色RGB如何通过掩码图改成黑色
直接获取图片的每个点颜色，然后判断转换下就好了！
❷ vb 加深图片颜色（处理图片）
PrivateSubCommand1_Click()
DimxAsLong,yAsLong,cAsLong
DimrAsByte,gAsByte,bAsByte
Picture1.ScaleMode=3
Picture2.ScaleMode=3
Picture1.AutoRedraw=True
Picture2.AutoRedraw=True
Picture1.AutoSize=True
Picture1.Picture=LoadPicture("e: mp est.jpg")'验证码图片，自己改
Picture2.Width=Picture1.Width
Picture2.Height=Picture1.Height
Forx=0ToPicture1.ScaleWidth
Fory=0ToPicture1.ScaleHeight
c=Picture1.Point(x,y)
r=cAnd&HFF&
g=(cAnd&HFF00&)&H100&
b=(cAnd&HFF0000)&H10000
r=r(16-r16)
g=g(16-g16)
b=b(16-b16)
c=RGB(r,g,b)
Picture2.PSet(x,y),c
Next
Next
EndSub
以上代码适用于VB6，用到的控件：Picture1、Picture2、Command1
❸ VB怎么设置背景色
VB的右中间有个属性 你点属性里面就可以设置背景了
❹ vb中如何给封闭的图形填充颜色
在属性窗口中，把BackStyle属性设置为1，再在BackColor 属性中设置自己需要的颜色即可
❺ vbz怎样指定 picture box的颜色
VB可使用Point方法来获取图片指定点的颜色。
Point 方法
按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。
语法
object.Point(x, y)
1
2
3
4
5
6
7
8
9
10
'窗体判色代码:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
1
2
3
4
5
6
7
8
9
10
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
❻ VB 我想把BMP图片内 指定像素点变成指定的颜色 在输出保存 哪位帮忙下
添加一个picture控件 Private Sub Form_Load()
Me.Picture1.ScaleMode = 3
Me.Picture1.AutoRedraw = True
Me.Picture1.AutoSize = True
Me.Picture1.Picture = VB.LoadPicture("C:\未命名.bmp")
Dim i As Long
Dim j As Long
'图很大的话就慢慢等吧
For i = 0 To Me.Picture1.ScaleHeight
For j = 0 To Me.Picture1.ScaleWidth
'如果扫描到是白色的点，就改成红色，我想RED，WHITE你不会不知道吧
'Me.Picture1.PSet (i, j), vbRed设置一个点为什么颜色
If Me.Picture1.Point(i, j) = vbWhite Then Me.Picture1.PSet (i, j), vbRed
Next j
Next i
Me.Picture1.Refresh
End Sub
❼ vb程序做的图如何改变颜色不停变换或者点一下变一个都行！
这是随机变的，你可以把过程写在Timer控件里，就自动变了。
Option
Explicit
Private
Sub
Form_click()
BackColor
=
RGB(0,
255,
0)
Width
=
8000
Height
=
8000
Randomize
Cls
Me.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
Call
drawcircle(ScaleWidth
/
2,
ScaleHeight
/
2,
ScaleWidth
/
6.5)
End
Sub
Private
Sub
drawcircle(x
As
Integer,
y
As
Integer,
r
As
Integer)
Dim
i
As
Integer
If
r
<
60
Then
Circle
(x,
y),
r
Else
Circle
(x,
y),
r
For
i
=
0
To
7
Call
drawcircle(x
+
2
*
r
*
Cos(i
*
3.141593
/
4),
y
+
2
*
r
*
Sin(i
*
3.141593
/
4),
r
/
3.5)
Next
i
End
If
End
Sub
❽ vb中设置窗体透明度和设置图片某一颜色的函数
设置窗体透明度：Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
使用这个API函数,改变balpha的值就可以了,取值范围是0-255,0是完全透明,255是完全不透明 设置图片某一颜色为透明色：不知道有没有这样的函数，我只会用bitblt来复制。 读取txt内容而txt内容为空时会发生错误，如何将错误提示出来而不是结束程序？ ：那你在读取的时候直接判断一下文件是否为空就可以了呀
❾ vb中颜色设置的代码是什么
用颜色常数：Form1.BackColor = vbRed '红。
Form1.BackColor = vbBlue '蓝。
Form1.BackColor = vbWhite '白。
用QBColor函数：Form1.BackColor = QBColor(n) 'n的值是0到15。
用RGB函数：Form1.BackColor = RGB(r, g, b) 'r、g、b的值分别是0到255。
❿ vb怎么使用真彩色图片
vb不支持32位真彩色图标，最大只支持32*32 256色的图标。
VB本身是不支持真彩色的图标，用了就出错
一旦选了真彩色做图标，马上显示错误格式。
所以想要你的VB能用上真彩的图标，只要做一个图标序组，第一个为32*32*256或更小的图标，然后下面的是真彩的，就能添加上了。因为VB只判断第一个序图的图标。。。