Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > รบกวนขอโค๊ด VB6 โดยการค้นหา รับคำค้นหนาจาก TextBox



 

รบกวนขอโค๊ด VB6 โดยการค้นหา รับคำค้นหนาจาก TextBox

 



Topic : 123233



โพสกระทู้ ( 4 )
บทความ ( 0 )



สถานะออฟไลน์




รบกวนขอโค๊ด vb6 เพื่อนำรูปจาก Access มาแสดงที่ image control โดยการค้นหาจาก textbox

คือเราใส่คำค้นหาใน texbox แล้วข้อมูล รายละเอียดของภาพและรูปภาพนั้นจะแสดงขึ้นมาทัน




รบกวนหน่อยครับ



Tag : .NET, Ms Access







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-06-07 20:58:53 By : norseress View : 1596 Reply : 7
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (VB 6)
' Visual Basic 6.0
Picture1.Picture = LoadPicture(App.Path & "\somepicture.jpg")







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-08 09:09:38 By : mr.win
 


 

No. 2



โพสกระทู้ ( 4 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 1 เขียนโดย : mr.win เมื่อวันที่ 2016-06-08 09:09:38
รายละเอียดของการตอบ ::
ขอบคุณครับ ขออณุญาตถามต่อครับ คือ ผมอยากให้เรียกจากตารางมากกว่าเพราะมีหลายรูป ขออธิบายนะครับ
คือจะรับค่ามาจาก textbox เป็น ตัวอักษรและตัวเลขจำนาน 13 หลัก แต่จะให้ตรวจสอบแค่ 7หลักแรก และให้ทำการแสดงขึ้นมารวมถึงรูปด้วย
เนื่องจาก มีหลายรูป อยากให้สามารถ คลิกที่ picturebox แล้วทำการเลื่อนรูปได้ด้วย ตามรูปที่แนบนะครับ

ms access

โปรแกรม

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-08 16:56:31 By : norseress
 

 

No. 3



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

แล้วทำการเลื่อนรูปได้ด้วย

แบบนี้ทำไมไม่ select จาก SKU ละ
อย่าง AD6DR021 มี 6 รูป ก็เลื่อนได้ 6 รูป แค่นั้นก็น่าจะได้แล้วนี่ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-08 17:48:36 By : lamaka.tor
 


 

No. 4

Guest


คือไม่รู้ว่าเก็บรูปแบบไหน แต่ถ้าทำอย่างนี้ควรเก็บเป็นชื่อ Folder หรือไม่ก็รูปชื่อเดียวกันแต่มีอะไรมากำกับเช่น A6DR321-1 -> A6DR321-6
เพื่อที่จะได้รู้ว่ามีกี่รูปแล้ว loop มาใส่ ImageList จากนั้นก็ทำปุ่มเลื่อน Index เอาครับ เพื่อให้สามารถเลื่อนรูปได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-08 20:11:02 By : บัญดิษฐ
 


 

No. 5



โพสกระทู้ ( 4 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 3 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-06-08 17:48:36
รายละเอียดของการตอบ ::
ขอบคุณมากครับตอนนี้ สามารถ เรียกขึ้นมาดชว์ได้แล้ว แต่อยากให้เหตุการณ์ คลิกเมาส์ ที่ pictuerbox เปลี่ยนรูป

IMG_CHECK

ตามรูปนะครับ ครั้งแรกที่รับค่ามาให้แสดงทันที่ (IMG_CHECH1) ถ้าคลิกที่ pictuerbox ให้เปลี่ยนรูป (IMG_CHECK2) คลิก (IMG_CHECK3)....
ไปถึงรูปสุท้าย

และขออีกคำถาม textbox สามารถกำหนดการรับค่าได้มั้ย ค่าที่รับจะรับมา 13 หลัก (A6DR021000001) แต่จะเช็คแค่ 7 หลัก (A6DR021)


ขอบคุณครับ VB6 คับ



ประวัติการแก้ไข
2016-06-10 13:05:37
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-10 13:04:10 By : norseress
 


 

No. 6

Guest


คือมันก็มีคำสั่งใน vb6 อยู่แล้วนะครับเช่น mid ก็สามารถใช้ได้

' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

อันนี้เอามาจากเว็บ microsoft คือก่อนจะค้นหาเราก็ตัดคำ
Dim imagegroup As String = Mid(textbox.Text, 1, 7)

จากนั้นก็ว่ากันไป แต่ยังติดใจว่าทำไหมไม่ใช้ imagelist เพราะสามารถโหลดรูปมาของ Group นี้มาเก็บไว้
จากนั้นก็แสดงว่ามีกี่รูป แล้วทำปุ๋มกด << >> ก็เท่านั้นโดยไม่จำเป็นต้องสร้าง Column เพื่อมาลองรับ
ถ้าค้นหาจาก TextBox ใหม่อีกรอบเราก็ล้างรูปทิ้งก่อน แล้วเอาเข้าใหม่ตามที่ค้นหาใหม่ก็เท่านั้น
แล้วแต่ถนัดนะครับผม เอาที่เฮ็ดได่เด้อครับผม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-10 14:06:55 By : บัญดิษฐ
 


 

No. 7



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

โย่ววววว

IMG_CHECK1...... ถ้ามันมีเป็น 100 จะไม่ต่อเป็นคอลัม IMG_CHECK100 รึครับ
บางครั้งเราไม่สามารถคาดเดาเหตุการณ์ได้ ทำน้อยไปก็ใช่ว่าจะดี เยอะไปก็เปลืองพื้นที่อีก

แนะนำให้ แบ่งเป็น 2 ตาราง น่าจะดีกว่า
ตารางแรก เป็นข้อมูล
ตารางที่สองเป็น IMG_CHECK

ลองมองให้มันเชื่อมกัน SKU ที่มี Index เหมือน Index หนึ่ง มีหลายๆรูป

เวลาค้นก็ค้นจาก Index ตารางแระ อย่างมี 6 รูป(อย่าไปสนใจเรื่องชื่อเลยทีนี้ )
ไอ้เจ้า 6 รูปที่ว่า เอาไปเก็บใน datagrid หรือ list หรือ binding ต่างๆ ให้เรียกใช้ง่าย

ส่วน

Code (VB.NET)
Private Sub pic_Click(ByVal sender As Object, ByVal e As EventArgs)

    ' etc... เลื่อนรูปได้เลยครับ โดยดึงชื่อไฟล์จาก  datagrid หรือ list หรือ binding 
End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-10 14:12:21 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนขอโค๊ด VB6 โดยการค้นหา รับคำค้นหนาจาก TextBox
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่