ถ้าทำให้ button ขยับแล้ว ทำยังไงให้กลับมาอยู่ที่เดิมได้ครับ ช่วยตอบที 2005 คับ
คือว่า ผมอยากทราบว่า ถ้าผมทำให้ button ขยับ แล้ว ผมจะสามารถทำให้ ตัวbutton กลับมาที่จุดเดิมได้อย่างไร โดย ผมกำหนด ตัว button ไว้ 4 ตัว
และ กำหนด button อีก 2 ตัว ให้ ตัวหนึ่ง (btnstart) เป็นตัวขยับ และ อีกตัว (btnnew) เป็นตัวเริ่มค่ากลับมาที่เดิม
โดยโค๊ดที่ผมใช้ให้ขยับ ในตัว button ของ btnstart ใช้โค๊ดนี้
Dim i As Integer Dim k As Integer
k = Rnd() * 3 + 1 If k = 1 Then i = Rnd() * 150 + 1
B1.Left += i B2.Left += i B3.Left += i B4.Top -= i
ElseIf k = 2 Then i = Rnd() * 150 + 1
B1.Left += i B2.Left -= i B3.Left += i B4.Top -= i
ElseIf k = 3 Then i = Rnd() * 300 + 1
B1.Top += i B2.Left += i B3.Left -= i B4.Top -= i
End If
ประมาณนี้ครับ คือผมอยากทราบว่า ในตัว button (btnnew) นั่นต้องใช้โค๊ดอย่างไร ถึงจะทำให้ตัว button ทั้ง 4 ตัว ที่ขยับไปแล้ว กลับมาจุดเริ่มต้นได้อ่ะครับ ต้องสร้างตัวแปร อะไรเพิ่มรึเปล่า
ยังไงก็ขอความกรุณาด้วยครับ คิดไม่ออกจริงๆ
|