For i As Integer = 0 To filePaths.Length - 1
PictureBox(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(55, 45)
PictureBox(i).SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Controls.Add(PictureBox(i))
begin += 85
Next
ผมอยากได้ Event PictureBox_click เพื่อขยายรูปครับ
Code (VB.NET)
Private Sub pictureBox1_Click(sender As Object, e As EventArgs)
' เมื่อคลิก picturebox อันที่ 1
Dim F As New Form2(pictureBox1)
' สร้างฟอร์มแสดงรูปขยาย โดยส่งตัวแปร pictureBox1 ให้
F.ShowDialog()
' สั่งแสดงฟอร์มแสดงรูปขยาย
F.Dispose()
' คืนทรัพยากรหลังจากปิดฟอร์มแสดงรูปขยายแล้ว
F = Nothing
' ตั้งตัวแปรให้เป็นว่าง
End Sub
ประมาณนี้ครับ รบกวนพี่ๆเทพๆ ช่วยแนะนำผมทีนะครับ
Tag : .NET, Ms SQL Server 2008, Win (Windows App), Device (Mobile), VB.NET, VS 2008 (.NET 3.x)
Private Sub CustomPictureBox_clicked(ByVal Sender As Object, ByVal e As EventArgs)
Dim sP As New showP(PictureBox(1))
sP.ShowDialog()
sP.Dispose()
sP = Nothing
End Sub