ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 467|ตอบกลับ: 12

[ถาม/ตอบ] ต้องเขียน code ยังไงครับให้ ปุ่มตัวเลขที่เรากดขึ้นเฉพาะ textbox ที่เราเลือก

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    เหนื่อย
    2019-2-26 14:09
  • เช็คชื่อแล้ว: 51 วัน

    [LV.5]JuniorI

    10

    กระทู้

    67

    โพสต์

    1

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    1
    Ticket
    1
    จิตพิสัย
    0
    จะทำแบบในรูปอะครับลองเขียนแบบนี้แล้วไม่ได้อะครับ มันขึ้นเฉพาะ textbox1 อย่างเดียวเลย

    If TextBox1.Focus Then
                TextBox1.Text = TextBox1.Text & "1"
            Else
                TextBox2.Text = TextBox2.Text & "1"
            End If


    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    แฮปปี้
    ครึ่งชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 304 วัน

    [LV.8]ConquerorI

    26

    กระทู้

    648

    โพสต์

    3102

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    3102
    Ticket
    1965
    จิตพิสัย
    1137

    Merciful MemberInstructor

    puklit โพสต์ 2018-10-22 08:34:52 | ดูโพสต์ทั้งหมด
    แก้ไขครั้งสุดท้ายโดย puklit เมื่อ 2018-10-22 09:20

    ผมใช้วิธีดักจับการเลือก Textbox จาก
    1. สร้างตัวแปร Textbox สำหรับ กำหนดปลายทางการป้อนข้อมูลให้กับ Textbox
    2. Events Enter ของ Textbox
    3. สร้าง Method SetText สำหรับเลือกปลายทางการป้อนค่าให้กับ Textbox ที่กำหนดไว้ในข้อ 2 ให้แสดงข้อความหรือตัวเลขจากการกดปุ่ม

    ตัวอย่างโค้ด (รับรองได้ว่าโค้ดที่ผมให้ไปสั้นกว่าที่คุณเขียนมาก แน่นอน)
    1. Public Class Form1

    2.     Private txt As TextBox 'กำหนดปลายทาง Textbox ที่เลือก

    3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4.         txt = txtUser 'กำหนดค่าเริ่มตันการป้อนข้อความที่ txtUser
    5.     End Sub

    6.     Private Sub txt_Enter(sender As Object, e As EventArgs) Handles txtUser.Enter, txtPass.Enter
    7.         txt = sender
    8.     End Sub

    9.     ' เลือกการป้อนค่าให้กํบ Textbox
    10.     Private Sub SetText(button As Button)

    11.         txt.Text += button.Text

    12.     End Sub

    13.     ' กดปุ่ม 1,2,3,4,5,6,7,8,9,0
    14.     Private Sub bt_Click(sender As Object, e As EventArgs) Handles bt9.Click, bt8.Click, bt7.Click, bt6.Click, bt5.Click, bt4.Click, bt3.Click, bt2.Click, bt1.Click, bt0.Click
    15.         SetText(sender)
    16.     End Sub

    17. End Class
    คัดลอกไปที่คลิปบอร์ด


    ตัวอย่างโปรแกรม

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    เหนื่อย
    2019-2-26 14:09
  • เช็คชื่อแล้ว: 51 วัน

    [LV.5]JuniorI

    10

    กระทู้

    67

    โพสต์

    1

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    1
    Ticket
    1
    จิตพิสัย
    0
     เจ้าของ| wizardbon1 โพสต์ 2018-10-22 09:13:09 | ดูโพสต์ทั้งหมด
    ขอบคุณมากเลยครับผม
  • อารมณ์วันนี้
    แฮปปี้
    ครึ่งชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 304 วัน

    [LV.8]ConquerorI

    26

    กระทู้

    648

    โพสต์

    3102

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    3102
    Ticket
    1965
    จิตพิสัย
    1137

    Merciful MemberInstructor

    puklit โพสต์ 2018-10-22 09:21:59 | ดูโพสต์ทั้งหมด
    wizardbon1 ตอบกลับเมื่อ 2018-10-22 09:13
    ขอบคุณมากเลยครับผม

    ท่านโหลดตัวใหม่ไปนะ ผมปรับปรุงโค้ดให้มันยืดหยุ่นและสั่นกว่าเดิมแล้ว
  • อารมณ์วันนี้
    เหนื่อย
    2019-2-26 14:09
  • เช็คชื่อแล้ว: 51 วัน

    [LV.5]JuniorI

    10

    กระทู้

    67

    โพสต์

    1

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    1
    Ticket
    1
    จิตพิสัย
    0
     เจ้าของ| wizardbon1 โพสต์ 2018-10-22 13:04:54 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2018-10-22 08:34
    ผมใช้วิธีดักจับการเลือก Textbox จาก
    1. สร้างตัวแปร Textbox ส ...

    รบกวนสอบถามเพิ่มเติมอีกนิดนึงครับ แล้วปุ่ม  clear กับ ปุ่ม back space พอมีแนวแนะนำไหมครับผม
  • อารมณ์วันนี้
    แฮปปี้
    ครึ่งชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 304 วัน

    [LV.8]ConquerorI

    26

    กระทู้

    648

    โพสต์

    3102

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    3102
    Ticket
    1965
    จิตพิสัย
    1137

    Merciful MemberInstructor

    puklit โพสต์ 2018-10-22 13:43:54 | ดูโพสต์ทั้งหมด
    wizardbon1 ตอบกลับเมื่อ 2018-10-22 13:04
    รบกวนสอบถามเพิ่มเติมอีกนิดนึงครับ แล้วปุ่ม  clear กับ ปุ่ม back space พอมีแนวแนะนำไหมครับผม

    ท่านลองเอาโค้ดที่ผมให้ไปลองไปต่อยอดดูครับ ที่ผมให้ไปนั้นท่านนะจะพอเห็นทางออกบ้างแล้ว
    หากผมให้ไปหมด มันจะเป็นการทำร้ายท่านทางอ้อมได้ครับ

    อันดับแรกพยามคิดแบบภาษามนุษย์ก่อนว่าจะสั่งคำสั่งอะไรบ้าง
    แล้วค่อยมาหาว่าถ้าจะสั่งภาษามนุษย์ตามที่คิดเอาไว้แล้วภาษาคอม VB.Net จะสั่งยังไง
    รับรองไม่น่าจะยากเกินความสามารถของท่านครับ
  • อารมณ์วันนี้
    เหนื่อย
    2019-2-26 14:09
  • เช็คชื่อแล้ว: 51 วัน

    [LV.5]JuniorI

    10

    กระทู้

    67

    โพสต์

    1

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    1
    Ticket
    1
    จิตพิสัย
    0
     เจ้าของ| wizardbon1 โพสต์ 2018-10-22 13:47:07 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2018-10-22 13:43
    ท่านลองเอาโค้ดที่ผมให้ไปลองไปต่อยอดดูครับ ที่ผมให ...

    ครับผมขอบคุณท่านมากครับ
  • อารมณ์วันนี้
    แฮปปี้
    ครึ่งชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 304 วัน

    [LV.8]ConquerorI

    26

    กระทู้

    648

    โพสต์

    3102

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    3102
    Ticket
    1965
    จิตพิสัย
    1137

    Merciful MemberInstructor

    puklit โพสต์ 2018-10-22 14:40:53 | ดูโพสต์ทั้งหมด
    wizardbon1 ตอบกลับเมื่อ 2018-10-22 13:47
    ครับผมขอบคุณท่านมากครับ

    ผมกลับมาเฉลย 2 ปุ่มที่เหลือให้ หวังว่าก่อนหน้าท่านคงจะทำได้แล้ว

    1. 'ปุ่มเคลีย์
    2.     Private Sub btClear_Click(sender As Object, e As EventArgs) Handles btClear.Click
    3.         txt.Clear()
    4.         txt.Select()
    5.     End Sub

    6.     'ปุ่ม Backspace
    7.     Private Sub btBackspace_Click(sender As Object, e As EventArgs) Handles btBackspace.Click
    8.         If txt.TextLength = 0 Then Exit Sub
    9.         txt.Text = txt.Text.Remove(txt.Text.Length - 1)
    10.     End Sub
    คัดลอกไปที่คลิปบอร์ด
  • อารมณ์วันนี้
    เหนื่อย
    2019-2-26 14:09
  • เช็คชื่อแล้ว: 51 วัน

    [LV.5]JuniorI

    10

    กระทู้

    67

    โพสต์

    1

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    1
    Ticket
    1
    จิตพิสัย
    0
     เจ้าของ| wizardbon1 โพสต์ 2018-10-23 01:51:55 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2018-10-22 14:40
    ผมกลับมาเฉลย 2 ปุ่มที่เหลือให้ หวังว่าก่อนหน้าท่านคงจะทำได้แล้ว

    Private Sub Setclear(button As Button)

            txt.Clear()

        End Sub
        Private Sub Setback(button As Button)
            If txt.Text < " " Then
                txt.Text = Mid(txt.Text, 1, Len(txt.Text) - 1 + 1)
            Else
                txt.Text = Mid(txt.Text, 1, Len(txt.Text) - 1)
            End If
        End Sub
    ได้แล้วครับขอบคุณมากเลยครับ ผมใช้ code แบบด้านบนพลิกแพลงเอางับ
  • อารมณ์วันนี้
    แฮปปี้
    ครึ่งชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 304 วัน

    [LV.8]ConquerorI

    26

    กระทู้

    648

    โพสต์

    3102

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    3102
    Ticket
    1965
    จิตพิสัย
    1137

    Merciful MemberInstructor

    puklit โพสต์ 2018-10-23 08:01:46 | ดูโพสต์ทั้งหมด
    wizardbon1 ตอบกลับเมื่อ 2018-10-23 01:51
    Private Sub Setclear(button As Button)

            txt.Clear()



    ยอดเยี่ยมครับท่าน
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2019-7-21 10:04 , Processed in 0.054663 second(s), 27 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้