ขอถามหน่อยครับว่าออกแบบอย่างนี้เพื่ออะไร
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 293   10
URL.หัวข้อ / URL
ขอถามหน่อยครับว่าออกแบบอย่างนี้เพื่ออะไร

ผมไปแอบเปิดงานที่เขาเขียนให้โรงงานใน Form จะมีการวาง Label และใส่ตัวเลขเอาไว้ 22
หรือบางครั้งการใช้ปุ่ม Command ก็จะเป็นตัวเลขเหมือนกันแต่พอ Run Formขึ้นมาจะเป็นข้อความแทน เขาทำกันอย่างไรครับ และเพื่ออะไร

10 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05557
ผมก็ไม่เคยเห็นเหมือนกัน จะหมายถึง
ชื่อ Object หน้าออกแบบ
และ Caption หน้า Run form หรือเปล่า
2 @R05566
1
3 @R05567
ผมก็ไม่รู้ว่าเขาทำไปทำไมอาจจะเพื่อง่ายในการจำ Object มั้ง
วิธีการทำ
1.สร้าง Textbox สมมุติ Text1 ซึ่งมี Label2 ติดมาด้วย
2.เขียน Form Load
Label2.Caption ="ชื่อที่ต้องการ"
4 @R05568
2
5 @R05569
การกำหนดแบบนี้เพื่อ..
1.) ให้สามารกเปลี่ยน Caption ของ Label เป็นคำ หรือ วลี ใดๆ ก็ได้ โดยการเขียน Code เพื่อเปลี่ยน Caption ของ Label ทั้งนี้ เพื่อไม่ต้องสร้าง Label ขึ้นมาหลายๆ อัน
2.) ให้สังเกต Combobox (ด้านข้าง) เขาจะไม่กำหนด Control Source
ทั้งนี้ เพื่อประโยชน์ที่ ผู้เขียนโปรแกรม สามารถเปลี่ยน RowSource ของแต่ละ Combobox โดยการเขียนเป็น Sql (ซึ่งไม่จำเป็นต้องสร้าง Combobox หลายอัน)
3.) Cmb button ก็เหมือนกัน เพื่อให้สามารถเปลี่ยน Caption ตามวัตุประสงค์ของการ Click เช่น ปุ่มเดียวกัน แต่เปลี่ยน Caption จาก Calcel เป็น OK

ครับผม

ถ้ามีโอกาส จะแนบตัวอย่างมาให้ศึกษา นะครับ
6 @R05570
ขออภัยด้วย พิมพ์ผิดที่นึง
2.) ให้สังเกต Combobox (ด้านข้าง) เขาจะไม่กำหนด Control Source

เปลี่ยนเป็น

2.) ให้สังเกต Combobox (ด้านข้าง) เขาจะไม่กำหนด RowSource และ Control Source
7 @R05581
สงสัยจะเขียนกันหลายคน และCaptionเท่าที่หาดูน่าจะมาจาก โมดูลครับแต่ยังหาไม่เจอส่วนในForm มีอยู่เท่านี้เองครับ
8 @R05582
สงสัยจะเขียนกันหลายท่าน และCaptionเท่าที่หาดูน่าจะมาจาก โมดูลครับแต่ยังหาไม่เจอส่วนในForm มีอยู่เท่านี้เองครับ
9 @R05591
Capture มาชัดมากเลยครับ
ล้อเล่นนะครับ
ผมมองไม่เห็นเลยขนาดขยายแล้วนะ
อยากเห็นเหมือนกัน capture ให้ใหม่นะ
10 @R05592
ขอโทษครับเอาแบบนี้น่าจะชัด
Private Sub Form_Load()
ReplaceFormTexts "Reorg"
PDimen_change
Prvers_change
Pperidtyp_change
End Sub

Private Sub PDimen_change()
On Error Resume Next
PDimen_T = Dimen_Text(PDimen.Value)
End Sub
Private Sub Prvers_change()
On Error Resume Next
PRvers_T = Version_Text(PRvers.Value)
End Sub
Private Sub Pperidtyp_change()
On Error Resume Next
PPeridtyp_T = Peridtyp_Text(PPeridtyp.Value)
End Sub

@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0806s