Home Webboard ArticlesKnowledges  

ผู้เขียน หัวข้อ: ถาม เรื่อง vb 2013 หน่อย ครับ  (อ่าน 2400 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ jima555

  • Ju
  • *
  • กระทู้: 3
  • เห็นด้วย&ขอบคุณ: 0
ถาม เรื่อง vb 2013 หน่อย ครับ
« เมื่อ: 11, พฤษภาคม 2014, 12:28:34 PM »
คือ ผมอยากจะให้ Label มันแสดงจำนวนตัวอักษรใน Textbox ว่าเหลือกี่ตัว อ่ะครับ
อาทิ จำกัดข้อความใน Textbox 1 ที่ 25 ตัว แล้วเราใส่ไป 4 ตัว  Label1 ก็ บอกว่าเหลืออีก 21 ตัว

อะไรประมาณนี้อ่ะครับ ถ้าใครพอจะรู้เรื่องนี้ ผมก็ขอโค้ดตัวอย่างได้ไหมครับ คือกะจะเอาไปศึกษา และประยุกต์ใช้กับโปรแกรม ที่จะสร้างแบบว่า ต้องใส่ Key และบอกว่าเหลือกี่ตัว อะไรแบบนี้อ่ะครับ

ขอขอบคุณร่วงหน้าครับ
« แก้ไขครั้งสุดท้าย: 11, พฤษภาคม 2014, 12:58:02 PM โดย jima555 »



ออฟไลน์ ไก่ขี้เมา®

  • ไม่เต็มบาท™
  • Global Moderator
  • *
  • กระทู้: 1080
  • เห็นด้วย&ขอบคุณ: 1015
  • เพศ: ชาย
Re: ถาม เรื่อง vb 2013 หน่อย ครับ
« ตอบกลับ #1 เมื่อ: 11, พฤษภาคม 2014, 01:50:07 PM »
เขียนบน VB2010 ด้วย VB6 style (ยังไม่เคยเขียน VB.NET เลย  :haha: )


:boxing: :boxing: :boxing:

ออฟไลน์ jima555

  • Ju
  • *
  • กระทู้: 3
  • เห็นด้วย&ขอบคุณ: 0
Re: ถาม เรื่อง vb 2013 หน่อย ครับ
« ตอบกลับ #2 เมื่อ: 11, พฤษภาคม 2014, 05:55:26 PM »
คือ ผมอยากได้แบบนี้อ่ะครับ
พอจะมีไหมครับ
(ตรงที่วงสีแดงไว้ เขียนว่า เหลืออีก 19 ตัว)

ขอบคุณร่วงหน้าครับ
« แก้ไขครั้งสุดท้าย: 11, พฤษภาคม 2014, 05:57:05 PM โดย jima555 »

ออฟไลน์ ไก่ขี้เมา®

  • ไม่เต็มบาท™
  • Global Moderator
  • *
  • กระทู้: 1080
  • เห็นด้วย&ขอบคุณ: 1015
  • เพศ: ชาย
Re: ถาม เรื่อง vb 2013 หน่อย ครับ
« ตอบกลับ #3 เมื่อ: 11, พฤษภาคม 2014, 06:28:37 PM »
Code ที่ให้ไป ดัดแปลงเอาซิครับ แค่แก้ชื่อ object/variable เท่านั้นเอง

 :huh:

:boxing: :boxing: :boxing:

ออฟไลน์ jima555

  • Ju
  • *
  • กระทู้: 3
  • เห็นด้วย&ขอบคุณ: 0
Re: ถาม เรื่อง vb 2013 หน่อย ครับ
« ตอบกลับ #4 เมื่อ: 11, พฤษภาคม 2014, 06:50:59 PM »
ขอบคุณครับ
ผมลองเอามาดัดแปรงดูแล้ว ได้แบบนี้ครับ

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.MaxLength = 25
        Label1.Text = Val("25") - Val(TextBox1.TextLength)

    End Sub

 :smiley:

 

Sitemap 1 2 3 4 5 6 7 8 9 10 
Back to top