❶ 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只判斷第一個序圖的圖標。。。