作者r770619a (牛奶瓶/*蛤蜊杀手)
站内Visual_Basic
标题[VB6 ] 小画家的橡皮擦写不出来?
时间Sun Nov 6 18:51:11 2005
怎麽可能 橡皮擦这功能 我之前试可以
但是 现在 就是不行
乡民们 帮我看一下 哪边有错 谢谢!!
Dim start_x
Dim start_y
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
HScroll1.Enabled = False
HScroll2.Enabled = False
HScroll3.Enabled = False
End Sub
Private Sub HScroll1_Scroll()
LabelR = "R=" + Str(HScroll1.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Scroll()
LabelG = "G=" + Str(HScroll2.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Scroll()
LabelB = "B=" + Str(HScroll3.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub LabelB_Click()
LabelB.Caption = "B=0"
End Sub
Private Sub LabelG_Click()
LabelG.Caption = "G=0"
End Sub
Private Sub LabelR_Click()
LabelR.Caption = "R=0"
End Sub
Private Sub Option1_Click()
Picture2.DrawWidth = 10
End Sub
Private Sub Option2_Click()
Picture2.DrawWidth = 1
Option2.Enabled = True
End Sub
Private Sub Option3_Click()
HScroll1.Enabled = True
HScroll2.Enabled = True
HScroll3.Enabled = True
Option3.Enabled = True
Picture2.DrawWidth = 1
End Sub
Private Sub Option7_Click()
Picture2.DrawWidth = 10
Picture2.ForeColor = QBColor(15)
End Sub
Private Sub Option8_Click()
Picture2.Cls
HScroll1.Enabled = True
HScroll2.Enabled = True
HScroll3.Enabled = True
Picture2.DrawWidth = 1
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
start_x = x
start_y = y
End If
End Sub
Private Sub HScroll1_Change()
LabelR = "R=" + Str(HScroll1.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
LabelG = "G=" + Str(HScroll2.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
LabelB = "B=" + Str(HScroll3.Value)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Picture2.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If Option3.Value = True Then
Picture2.Line (start_x, start_y)-(x, y)
start_x = x
start_y = y
End If
End If
End Sub
Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If Option4.Value = True Then Picture2.Line (start_x, start_y)-(x, y), Picture1.BackColor
If Option5.Value = True Then Picture2.Line (start_x, start_y)-(x, y), Picture1.BackColor, B
If Option6.Value = True Then Picture2.Line (start_x, start_y)-(x, y), Picture1.BackColor, BF
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.172.162.73
1F：→ r770619a:橡皮擦在Option7 11/06 18:51