ตัวอย่างที่ 8-10
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 259   4
URL.หัวข้อ / URL ตัวอย่างที่ 8-10

สวัสดีค่ะ
หนูได้ทำตาม ตัวอย่างที่
ดูหน้า http://agserver.kku.ac.th/basiceng/download.asp ตรงตัวอย่างที่ 8-10

อยากจะถามต่อไปว่า ถ้าต้องการให้สามารถเลือกรูปชนิด *.bmp;*.jpg;*.gif;*.tif
ไม่ว่าจะต้องแก้ไขตรงส่วนไหนค่ะ
หนูทำตามวิธีแรกค่ะ (ตั้งชื่อรูปให้ตรงกับข้อมูล)
ตามตัวอย่างรูปที่ใช้ได้จะต้องเป็น jpg อย่างเดียว
รบกวนกรุณาตอบด้วยค่ะ

โดย: ก้อย เมื่อ: 7 มิ.ย. 2546 , 19:47

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

1 @R03389
ให้เพิ่มเงื่อนไขตรงนี้ลงไปครับ

...
For Each objF1 In objFiles
If Right(objF1.Name, 3) = "JPG" Or Right(objF1.Name, 3) = "BMP" Then
strFill = strFill & objF1.Name & ";"
End If
Next
...

ให้เป็น

...
For Each objF1 In objFiles
If Right(objF1.Name, 3) = "JPG" Or _
Right(objF1.Name, 3) = "BMP" Or _
Right(objF1.Name, 3) = "TIF" Or _
Right(objF1.Name, 3) = "GIF" Then
strFill = strFill & objF1.Name & ";"
End If
Next
...
โดย: สุภาพ เมื่อ: 7 มิ.ย. 2546 , 20:00
2 @R03390
ไม่ทราบว่าจะ เข้าไปแก้ตรงส่วนไหนของ code ค่ะ
ไม่ทราบจริง ๆ ค่ะ
โดย: ก้อย เมื่อ: 7 มิ.ย. 2546 , 20:02
3 @R03393
ให้คลิกที่ปุ่มใดๆ ก็ได้ครับ แล้วคลิกขวา จากนั้นให้เลือกคำสั่งแรกคือ Build Event... จากนั้นให้ไปที่เมนู Edit>Find> แล้วพิมพ์คำว่า For Each objF1 In objFiles ลงไปในช่อง Find What: แล้คลิกปุ่ม Find Next ไปจนกว่าจะเจอโค้ดที่ผมให้มากับความคิดเห็นที่ 1 แล้วให้คัดลอกโค้ดส่วนที่ผมแก้ให้ไปทับของเก่า แล้วลองดูครับว่าได้ตามต้องการหรือไม่
โดย: สุภาพ เมื่อ: 7 มิ.ย. 2546 , 20:25
4 @R03394
ได้แล้วค่ะ อ.

ขอบคุณอ.สุภาพที่แสนดี มากค่ะ
โดย: ก้อย เมื่อ: 7 มิ.ย. 2546 , 20:27
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1176s