กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
357 5
URL.หัวข้อ /
URL
ต้องการให้มัน กดปุ่ม Enter แล้วไปที่จุดๆหนึ่ง
สมมุติการเราต้องการให้มัน กดปุ่ม Enter แล้วไปที่จุดๆหนึ่งหนึ่ง ที่เราต้อการเช่น
กดลูกสร ขึ้นบน ได้ให้ sarser ขึ้นไปที่ ขอบคุณกึี่่่
กดลูกสร ขึ้นบน ได้ให้ sarser ขึ้นไปที่ ขอบคุณกึี่่่
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R02051
ไม่เข้าใจคำถามครับ
2 @R02053
1.ก็ระบุ ที่ Event after update ที่ Field ที่ต้องการ me.xxxx.setfocus
หรือ
2.กำหนดใน Form ที่ tab order
ตรงคำตอบเปล่าไม่รู้ น่าจะ work
หรือ
2.กำหนดใน Form ที่ tab order
ตรงคำตอบเปล่าไม่รู้ น่าจะ work
3 @R02056
ขอโทษครับที่อธิบายไม่เข้าใจ คือ ว่า
มี TextBox อยู่ 4 TextBox ใน Form โดยชื่อ
Text1 , Text2 , Text3 , Text4 โดย 4 ตัวนี้เรียงลำดับข้างต้น
และ พอ Run Form
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม ลูกศร ขวา ก็ให้ Sarser เลื่อนไปที่ Text2 ถ้า / หรือ
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม ลูกศร ขึ้นบน ก็ให้ Sarser เลื่อนไปที่ Text3 ถ้า / หรือ
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม Enter ก็ให้ Sarser เลื่อนไปที่ Text4
และอีกอย่าง รหัสของคีย์ต่าง ๆ ผมก็จำไม่ได้ครับ และรวมทั้งคำสั่งช่วยหน่อยกำลังหัดเขียน
ขอบคุณมากครับ อาจารย์ BADMan
มี TextBox อยู่ 4 TextBox ใน Form โดยชื่อ
Text1 , Text2 , Text3 , Text4 โดย 4 ตัวนี้เรียงลำดับข้างต้น
และ พอ Run Form
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม ลูกศร ขวา ก็ให้ Sarser เลื่อนไปที่ Text2 ถ้า / หรือ
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม ลูกศร ขึ้นบน ก็ให้ Sarser เลื่อนไปที่ Text3 ถ้า / หรือ
Sarser จะกระพิบที่ Text1 และถ้ากดปุ่ม Enter ก็ให้ Sarser เลื่อนไปที่ Text4
และอีกอย่าง รหัสของคีย์ต่าง ๆ ผมก็จำไม่ได้ครับ และรวมทั้งคำสั่งช่วยหน่อยกำลังหัดเขียน
ขอบคุณมากครับ อาจารย์ BADMan
4 @R02057
ขอบคุณครับ amn แต่มันทำได้ เฉพาะอย่างครับ ต้องการ ใช้ปุ่มอื่นๆ ด้วย
5 @R02066
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyRight
Text2.SetFocus
Case vbKeyUp
Text3.SetFocus
Case vbKeyReturn
Text4.SetFocus
End Select
End Sub
ลองใช้ code ด้านบนนี้ไปประยุกต์ใช้ดูครับ ส่วนความหมายของ keycode ให้ศึกษาจาก Help
Select Case KeyCode
Case vbKeyRight
Text2.SetFocus
Case vbKeyUp
Text3.SetFocus
Case vbKeyReturn
Text4.SetFocus
End Select
End Sub
ลองใช้ code ด้านบนนี้ไปประยุกต์ใช้ดูครับ ส่วนความหมายของ keycode ให้ศึกษาจาก Help
Time: 0.1020s