กลับไปรายการกระดานข่าว ตอบกลับ โพสใหม่

4.PictureBox เปิดรูป ในฟอร์ม

สร้างโปรเจคใหม่ชื่อ เปิดรูป
ลาก PictureBox ใน toolsbar ลงมาวางบน form1 เลือกรูปแบบการจัดวางเป็น Zoom เลือก Dock เพื่อขยาย PictureBox1 ให้เต็มฟอร์ม
สร้างโพซีเยอร์ อีเว้นโหลด แบบนี้
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End
Sub

พิมพ์โค๊ดภายในโพซีเยอร์
PictureBox1.Image = New System.Drawing.Bitmap("ตรงนี้คือพาทของรูป")


ลองรันโปรแกรม ถ้าerror ให้แก้ไขพาทใหม่
เปลี่ยน จากเปิดรูปจากเครื่องเป็นเปิดจากอินเตอร์เน็ต ขั้นตอนคือโหลดรูปมาให้เสร็จก่อนในแบบไบท์ แปลงไบท์เป็นสตีม
PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("URL")))




โค๊ดตัวอย่างทั้งหมด
Public Class Form1
Private Sub Form1_Load() Handles MyBase.Load
'เปิดจากเครื่อง
'PictureBox1.Image = New System.Drawing.Bitmap _
'("C:\Documents and Settings\Administrator\My Documents\My Pictures\UlTraSnap\68.jpg")
' เปิดจาก URL
PictureBox1.Image = New System.Drawing.Bitmap _
(
New IO.MemoryStream(New System.Net.WebClient().DownloadData _
(
"http://img21.imageshack.us/img21/204/46055551.jpg")))
' ต้องเลือกอย่างนึงว่าจะเปิดจากที่ไหน
End Sub
End
Class



หมั่นฝึกฝน ดัดแปลงโค๊ดที่เข้าใจแล้ว ให้เข้าใจยิ่งขึ้น
ผมหวังว่าก่อนที่ผมจะเลิกหายใจ
จะได้เห็นโปรแกรมเมอร์ไทยเป็นเจ้าของแบรนด์ดังๆกับเขาบ้าง
Thank you
ขอบคุณ ครับ
http://valenzaa.com/bbs/?fromuid=58
แอดมินน่าจะบล็อคโค๊ดไว้เป็นชิ้นๆนะครับ ขนาดผมเป็นแล้วยังเกือบงง
โหลดรูปมาเปิดง่ายจังเลย visual
เก๋ไก๋มากมาย คนในรูปใช่เนาวรัตน์ใช่มั้ย
อย่างงี้นี่เอง
357
เก๋ไก๋มากมาย คนในรูปใช่เนาวรัตน์ใช่มั้ย
ต้นฉบับโพสโดย foxthaimoxer เมื่อ 25/5/2009 03:48
ไม่ใช่มั้ง

You need to upgrade your Adobe Flash Player to watch this video.
Download it from Adobe.
บทนี้ง่ายดีแหะ

ไปด่านต่อไปเลยนะ
อันนี้เคยทำมาแล้วตอนทำโปรแกรมตรวจข้อสอบ เดวต้องไปดูเรื่องการเปิดภาพจากเว็บอีกที เอาเจ๋งๆหน่อย
  1.        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog() With {.InitialDirectory = curdir, .Filter = "YouTube (*.flv)|*.flv|All files (*.*)|*.*", .FilterIndex = 1, .RestoreDirectory = True, .Multiselect = False}

  2.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

  3.         End If
คัดลอกโค๊ด

You need to upgrade your Adobe Flash Player to watch this video.
Download it from Adobe.
thank you so much
เข้าใจง่ายดีครับ  ขอบคุณนะ
ขอบคุณมากครับ อธิบายสั้นได้ใจความครับ
ขอบคุณมากคับ แจ่มเรย  แต่ code ของพี่ bonparadorn ยังมีปริศนาให้ศึกษาต่อไป T^T
เข้าใจง่ายดีคับ
ให้พิมพ์ตามพอได้ แต่ถ้าให้เราคิดเอง ไม่รู้จะนึกออกไหม ไม่เป็นไรทำไปเรื่อยๆ เดี๋ยวมันก็ต้องเข้าใจสักวัน สู้ๆ
ให้พิมพ์ตามพอได้ แต่ถ้าให้เราคิดเอง ไม่รู้จะนึกออกไหม ไม่เป็นไรทำไปเรื่อยๆ เดี๋ยวมันก็ต้องเข้าใจสักวัน ...
ต้นฉบับโพสโดย dynamic เมื่อ 30/7/2010 00:11
ก่อนจะวาดรูปต้องจับภู่กันเป็นก่อน งานนี้คืองานศิลป์ครับ
ลองทำอันนี้ดูครับเป็นโปรแกรมคำนวนบัตรประชาชนครับ

วิธีคิดเลขบัตรประชาชน
สิ่งที่ต้องรู้
dim m as int32
m = 205 mod 11 'm=7
'หรือ m = 205 \ 11
randommize()'ใส่ไว้ในโพซีเยอร์โหลดจะทำให้ rnd() ไม่ซ้ำ
dim n as int32
n = rnd() * 9 ' n จะเป็นค่าซุ่มตั้งแต่ 0 - 9

รู้แค่นี้น่าจะเขียนโปรแกรมเจนรหัสบัตรได้แล้วครับ ถ้าจะเอาแบบเนียนๆต้องรู้ลึกๆ

You need to upgrade your Adobe Flash Player to watch this video.
Download it from Adobe.
เสร็จเรียบร้อยครับผม

ทำได้แล้ว
กลับไปรายการกระดานข่าว