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,037

HOME > .NET Framework > Forum > VB.NET นำรูปที่มีอยู่ในโฟลเดอร์ทั้งหมด มาแสดงบนหน้าจอ ครับ



 

VB.NET นำรูปที่มีอยู่ในโฟลเดอร์ทั้งหมด มาแสดงบนหน้าจอ ครับ

 



Topic : 117800



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



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




คือผมอยากจะแสดงรูปที่มีอยู่ในโฟลเดอร์ทั้งหมด และมี Check box เลือกได้ว่าต้องการรูปไหนบ้าง

และเซฟเพื่อ Copy รูปนั้นและเปลี่ยนชื่อ ในไดเรกทอรี่อื่น โดยหน้าจอโปรแกรม ส่วนแสดงรูป ประมาณนี้ครับ

jpeg

รบกวนพี่ๆเทพ ช่วยผมหน่อยนะครับ VB.NET / WIN CE

ผมยังมือใหม่ขอโทษด้วยนะครับ T T



Tag : .NET, Device (Mobile), VB.NET, VS 2008 (.NET 3.x), Windows, Mobile









ประวัติการแก้ไข
2015-07-15 11:36:51
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2015-07-15 08:50:07 By : golfgee12 View : 1595 Reply : 13
 

 

No. 1



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



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









แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 11:37:41 By : golfgee12
 


 

No. 2



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

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

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

Code (VB.NET)
Directory.CreateDirectory("My Documents\test")

Dim dir As New DirectoryInfo("My Documents\test")
Dim files As FileInfo() = dir.GetFiles("*.jpg")
For Each file As FileInfo In files
	ListView.Items.Add(file)
Next


อ่านลงได้แล้วลงเอา DataSource แล้วค่อยไปแสดงผลอีกทีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 13:34:40 By : mr.win
 

 

No. 3



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



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


ตอบความคิดเห็นที่ : 2 เขียนโดย : mr.win เมื่อวันที่ 2015-07-15 13:34:40
รายละเอียดของการตอบ ::

line 6 : Error : Value of type 'System.IO.FileInfo' cannot be converted to 'System.Windows.Forms.ListViewItem'. ครับ

โค้ดส่วนที่พี่ให้ตัวอย่างมาคือการนำอ่านไฟล์รูปภาพใช่มั้ยครับ


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 14:12:45 By : golfgee12
 


 

No. 4



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



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


Code (C#)
private void LoopImageCE()
        {
           string[] filePaths = Directory.GetFiles(@"\Program Files\SmartDeviceProject4\Image");

           PictureBox[] PictureBox = new PictureBox[filePaths.Length];
           CheckBox[] CheckBox = new CheckBox[filePaths.Length];


           int begin = 0;
           int beginChk = 0;

           for (int i = 0; i < filePaths.Length; i++)
           {
               PictureBox[i] = new System.Windows.Forms.PictureBox();
               PictureBox[i].BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(128)))), ((int)(((byte)(192)))), ((int)(((byte)(255)))));
               PictureBox[i].Location = new System.Drawing.Point(begin, 0);
               PictureBox[i].Name = "pictureBox1";
               PictureBox[i].Size = new System.Drawing.Size(75, 55);
               PictureBox[i].SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage;
               this.Controls.Add(PictureBox[i]);
               begin += 85;

               CheckBox[i] = new System.Windows.Forms.CheckBox();
               CheckBox[i].Location = new System.Drawing.Point(beginChk, 60);
               CheckBox[i].Name = "checkBox1";
               CheckBox[i].Size = new System.Drawing.Size(20, 20);
               CheckBox[i].TabIndex = 3+i;
               this.Controls.Add(CheckBox[i]);
               beginChk += 85;
           }


           int c = 0;
           foreach (string Path in filePaths)
           {
               Image myImage = new Bitmap(Path);
               PictureBox[c].Image = myImage;
               c++;
           }
        }


ลองดูตามตัวอย่างที่ผมเขียนใฝห้นี้ครับ แต่อย่าลืมเอารูปไปวางในตัว Device ด้วยนะครับ ถ้างั้นมันจะมองไม่เห็น
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 15:54:28 By : Thaidevelopment.NET
 


 

No. 5



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



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


ตอบความคิดเห็นที่ : 4 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-15 15:54:28
รายละเอียดของการตอบ ::
ขอบคุณครับ ผมจะลองดูก่อนนะครับพี่
พอดีผมใช้ตัว Device Handheld (เครื่องยิงบาร์โค้ด) มันน่าจะรันจากโปรแกรมได้เลย

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 15:56:59 By : golfgee12
 


 

No. 6



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



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


ตอบความคิดเห็นที่ : 4 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-15 15:54:28
รายละเอียดของการตอบ ::
ผมแปลงโค้ดพี่เป็น VB.NET ได้แบบนี้ แต่ Picture box กับ Check box มันก็ยังไม่แสดงเลยอะครับพี่

Code (VB.NET)
Private Sub LoopImageCE()
	Dim filePaths As String() = Directory.GetFiles("Nand\\MBApp\\Album")  

	Dim PictureBox As PictureBox() = New PictureBox(filePaths.Length - 1) {}
	Dim CheckBox As CheckBox() = New CheckBox(filePaths.Length - 1) {}


	Dim begin As Integer = 0
	Dim beginChk As Integer = 0

	For i As Integer = 0 To filePaths.Length - 1
		PictureBox1(i) = New System.Windows.Forms.PictureBox()
		PictureBox(i).BackColor = System.Drawing.Color.FromArgb(CInt(CByte(128)), CInt(CByte(192)), CInt(CByte(255)))
		PictureBox(i).Location = New System.Drawing.Point(begin, 0)
		PictureBox(i).Name = "pictureBox1"
		PictureBox(i).Size = New System.Drawing.Size(75, 55)
		PictureBox(i).SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
		Me.Controls.Add(PictureBox(i))
		begin += 85

		CheckBox(i) = New System.Windows.Forms.CheckBox()
		CheckBox(i).Location = New System.Drawing.Point(beginChk, 60)
		CheckBox(i).Name = "checkBox1"
		CheckBox(i).Size = New System.Drawing.Size(20, 20)
		CheckBox(i).TabIndex = 3 + i
		Me.Controls.Add(CheckBox(i))
		beginChk += 85
	Next


	Dim c As Integer = 0
	For Each Path As String In filePaths
		Dim myImage As Image = New Bitmap(Path)
		PictureBox(c).Image = myImage
		c += 1
	Next
End Sub



รบกวนพี่ช่วยชี้แนะผมอีกหน่อยนะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 19:32:11 By : golfgee12
 


 

No. 7



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



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


น้องเรียกใช้ Function หรือยังครับ ถ้าไม่เรียกใช้ มันคงไม่ออกนะคัรบ ต้องเขียนปุ่ม หรือ Even สักตัวเรียกใช้มันก่อน
รู้สึกว่า PictureBox1(i) = New System.Windows.Forms.PictureBox() ตรงนี้จะเขียนผิดด้วยนะ ไม่มี 1 นะครับ

รูปภาพด้านล่าง จากโค้ดที่น้องแปลงครับ

Mobile
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-15 21:21:47 By : Thaidevelopment.NET
 


 

No. 8



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



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


ตอบความคิดเห็นที่ : 7 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-15 21:21:47


รายละเอียดของการตอบ ::
ได้แล้วครับพี่ ขอบคุณมากครับ ทีแรกไม่ได้เพราะ ผมไปใส่ กรอบ Panel เพราะอยากให้มันแสดงรูปแค่ในกรอบอะครับ

เวลาเลื่อนดูจะได้ไม่ต้องเลื่อนทั้งหน้า เลื่อนแค่ในกรอบ หรือ ใช้กับ Tab control ให้มันไม่แสดงรูปนอกกรอบ พอจะมีแนวทางมั้ยครับ



ประวัติการแก้ไข
2015-07-16 08:42:58
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-16 08:35:15 By : golfgee12
 


 

No. 9



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



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


มีครับ Me.Controls.Add(CheckBox(i)) เปลี่ยนจากตรงนี้ เป็น Add เข้า Panel แทน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-16 08:39:58 By : Thaidevelopment.NET
 


 

No. 10



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



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


ตอบความคิดเห็นที่ : 9 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-16 08:39:58
รายละเอียดของการตอบ ::
ผมลองทำแล้วมันเหมือน Panel มันไปบังรูปอยู่ครับ ผมอยากให้รูปมันอยู่ภายใต้ Panel
โดยกรอบผมกำหนดไว้แล้ว แต่ถ้ารูปเยอะก็จะมี AutoScroll

Code (VB.NET)
        Panel = New System.Windows.Forms.Panel
        Panel.Location = New System.Drawing.Point(begin, 0)
        Panel.Name = "panel1"
        Panel.Size = New System.Drawing.Size(232, 80)
        Panel.AutoScroll = True
        Me.Controls.Add(Panel)


ประมาณนี้อะครับที่ผมลอง แต่รูปไม่ได้เข้าไปข้างใน

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-16 09:05:34 By : golfgee12
 


 

No. 11



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



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


ที่ผมหมายถึง ไม่ได้ให้สรา้ง Panel ขึ้นมาเองนะคัรบ ให้ลากเอามาวางตามตำแหน่งที่ต้องการนั่นแลหะ แล้ว Add Control ลง panel เช่น

panel1.Controls.Add(PictureBox(i));
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-16 09:27:24 By : Thaidevelopment.NET
 


 

No. 12



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



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


ตอบความคิดเห็นที่ : 11 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-16 09:27:24
รายละเอียดของการตอบ ::
ครับขอบคุณครับ กำลังจะมาพิมบอกว่าทำได้แล้ว
ขอบคุณพี่มากๆเลยนะครับ :D

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-16 09:37:05 By : golfgee12
 


 

No. 13



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



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


ตอบความคิดเห็นที่ : 11 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2015-07-16 09:27:24
รายละเอียดของการตอบ ::
แล้วถ้าในขณะที่เราสร้าง check box กับ picture box เราสามารถใส่ Event ให้กับมันได้มั้ยครับ

เช่น event click picture box แล้วจะแสดง ... ไรแบบนี้ครับ



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-17 18:29:15 By : golfgee12
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB.NET นำรูปที่มีอยู่ในโฟลเดอร์ทั้งหมด มาแสดงบนหน้าจอ ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 05
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 อัตราราคา คลิกที่นี่