 |
| |
รบกวนเรื่อง Loop เหตุการณ์ครับ เช่นการคลิกเม้าส์ที่ป้ายลาเบล แล้วให้มีเมนูขึ้นมา แต่มีหลายลาเบลน่ะครับ |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub lbl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click
Me.mnu1.Show(Me.lbl1, Me.lbl1.PointToClient(Cursor.Position))
End Sub
Private Sub lbl2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl2.Click
Me.mnu2.Show(Me.lbl2, Me.lbl2.PointToClient(Cursor.Position))
End Sub
Private Sub lbl3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl3.Click
Me.mnu3.Show(Me.lbl3, Me.lbl3.PointToClient(Cursor.Position))
End Sub
Private Sub lbl4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl4.Click
Me.mnu4.Show(Me.lbl4, Me.lbl4.PointToClient(Cursor.Position))
End Sub
Private Sub lbl5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl5.Click
Me.mnu5.Show(Me.lbl5, Me.lbl5.PointToClient(Cursor.Position))
End Sub
ผมสามารถเขียนลูปได้หรือไม่ครับเมื่อผมคลิกแล้วให้เมนูเปิดขึ้นมาน่ะครับ ผมไม่ทราบว่าวิธีเขียนต้องทำยังไง รบกวนด้วยครับ
Tag : .NET, VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2012-02-14 14:08:21 |
By :
benzkatak |
View :
1113 |
Reply :
7 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
หรือผมต้องไปศึกษาตรงไหน ช่วยแนะแนวหน่อยนะครับ เกรงใจเหมือนกัน
|
| |
|
|
| |
| Date :
2012-02-14 22:18:41 |
By :
benzkatak |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Private Sub lbl2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl1.Click, lbl2.Click, lbl3.Click, lbl4.Click, lbl5.Click
Me.mnu2.Show(Me.lbl2, Me.lbl2.PointToClient(Cursor.Position))
End Sub
ประมาณนี้เปล่าคับ คือคลิกป้ายอันไหนก็ได้ ก็จะแสดงเมนูขึ้นมา
|
ประวัติการแก้ไข
2012-02-15 09:31:53
| |
|
|
| |
| Date :
2012-02-15 09:30:08 |
By :
TheCom |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คือ คลิก ลาเบล1 ก็จะได้ เมนู1
คลิก ลาเบล2 ก็จะได้ เมนู2 น่ะครับ
เพราะคลิกแต่ละครั้งจะมีค่าของตัวเมนูที่ต่างกันด้วยน่ะครับ
ขอบคุณทุกความเห็นครับ
|
| |
|
|
| |
| Date :
2012-02-15 12:34:28 |
By :
benz |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมเข้าใจผิดเอง
ก็ใช้ if ตรวจสอบ
|
ประวัติการแก้ไข
2012-02-15 12:54:58
| |
|
|
| |
| Date :
2012-02-15 12:54:20 |
By :
TheCom |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พอจะรบกวนขอตัวอย่างได้หรือป่าวครับ เพื่อจะได้นำไปประยุกต์น่ะครับ
|
| |
|
|
| |
| Date :
2012-02-15 18:57:30 |
By :
benzkatak |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim listLabel As New List(Of Label)()
listLabel.AddRange(New Label() {Label1, Label2, Label3, Label4})
For Each lbl As Label In listLabel
AddHandler lbl.Click, AddressOf Label_Click
Next
End Sub
Private Sub Label_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim currentLabel As Label = sender
MsgBox(currentLabel.Name & " : " & _
currentLabel.PointToClient(Cursor.Position).ToString())
End Sub
End Class
|
| |
|
|
| |
| Date :
2012-02-17 23:07:49 |
By :
GhostProgrammer |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
