第一次写vb,请大大帮我看一下,有什麽观念须要注意.... 程式主要是在写 mouse点选shape,shape就会改变成text1~3的RGB色码 rgb色码可以自己设 有个地方想问一下. shape1这边 如果有shape有 100个 , 那.....if不是就要100次??? 是不是有阵列的写法可以缩短行数?? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If X > Shape1.Left And X < Shape1.Left + Shape1.Height And Y > Shape1.Top And Y < Shape1.Top + Shape1.Height Then Shape1.BackColor = Color End If If X > Shape2.Left And X < Shape2.Left + Shape2.Height And Y > Shape2.Top And Y < Shape2.Top + Shape2.Height Then Shape2.BackColor = Color End If If X > Shape3.Left And X < Shape3.Left + Shape3.Height And Y > Shape3.Top And Y < Shape3.Top + Shape3.Height Then Shape3.BackColor = Color End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Color = RGB(Text1.Text, Text2.Text, Text3.Text) Shape129.BackColor = Color End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Color = RGB(Text1.Text, Text2.Text, Text3.Text) Shape129.BackColor = Color End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) Color = RGB(Text1.Text, Text2.Text, Text3.Text) Shape129.BackColor = Color End Sub --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 123.195.12.186 ※ 编辑: CuckooBoy 来自: 123.195.12.186 (12/22 14:45)