نوشته شده توسط
Mahmoud.Afrad
اینو تست کن
private bool altPressed;
private void ContextMenuStrip1_Closing(object? sender, ToolStripDropDownClosingEventArgs e)
{
if (e.CloseReason == ToolStripDropDownCloseReason.Keyboard && altPressed)
{
e.Cancel = true;
altPressed = false;
}
}
private void ContextMenuStrip1_PreviewKeyDown(object? sender, PreviewKeyDownEventArgs e)
{
if (e.Alt)
{
altPressed = true;
}
else
{
altPressed = false;
}
}
کد مشخصه، خودتون تبدیل کنید به vb
سلام مجدد
این کدی که هست می شه برای DropDown از یک ToolStripDropDownButton به این شکل استفاده کرد که کار نرم افزار من رو راه انداخت:
ابتدا یک متغیر برای صدا زدن DropDown از آیتم ToolStripDropDownButton در بخش تعاریف یا Declaration از کلاس ساختم:
Protected Friend WithEvents FilterDropDown As ToolStripDropDown
و از بخش اشیاء اون رو انتخاب و رویدادهای موردنظر رو انتخاب و این کدها رو براشون نوشتم:
Private Sub FilterDropDown_Closing(sender As Object, e As System.Windows.Forms.ToolStripDropDownClosingEvent Args) Handles FilterDropDown.Closing
If e.CloseReason = ToolStripDropDownCloseReason.Keyboard AndAlso UserClose = False Then
e.Cancel = True
End If
End Sub
Private Sub FilterDropDown_Opened(sender As Object, e As System.EventArgs) Handles FilterDropDown.Opened
Me.UserClose = False
End Sub
و برای UserControl یک کلید Close اضافه کردم که بصوزت مدیریت شده بسته بشه برای اینکه کلید Escape رو هم از کار میندازه (چرا نمی دونم!!!!)
Screenshot 202224-09-30 124006.jpg
برای UserControl رویداد Close ساختم:
Event Close()
از رویداد Click از کلید Close استفاده کردن برای Raise کردن رویداد مدنظر:
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
RaiseEvent Close()
End Sub
در نهایت آیتم سفاذشی که وراثت از ToolStripControlHost داره رو هم بهش رویداد اضافه کردم:
Public Class FilterBox
Inherits ToolStripControlHost
Event SearchButtonClicked(P As PersonInfo)
Event Close()
Sub New()
MyBase.New(New NameValueControl)
Me.BoxValue = Me.Control
End Sub
Private WithEvents BoxValue As NameValueControl
Public ReadOnly Property Box() As NameValueControl
Get
Return Me.BoxValue
End Get
End Property
Private Sub BoxValue_Close() Handles BoxValue.Close
RaiseEvent Close()
End Sub
Private Sub BoxValue_SearchButtonClicked(P As PersonInfo) Handles BoxValue.SearchButtonClicked
RaiseEvent SearchButtonClicked(P)
End Sub
End Class
و در کلاس فرم اصلی به این شکل به ToolStripDropDownButton اضافه کردم:
Dim WithEvents FilterBox As New FilterBox
Sub CreateFilterBoxes()
With Me.FilterDropDownButton.DropDownItems
.Insert(0, FilterBox)
End With
End Sub
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Me.SelectedPage = ApplicationPages.StartPage
CreateFilterBoxes()
و رویداد Close زو صدا زدم و این کد رو براش نوشتم :
Private Sub FilterBox_Close() Handles FilterBox.Close
UserClose = True
Me.FilterDropDownButton.DropDown.Close()
End Sub
با تشکر....
چطور براری منوی سفارشی کلید ALT را غیر فعال کنم؟!
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول