Combo Box پویا، Spin Box و تشخیص Right-Click
فصل ۹ — Combo Box پویا، Spin Box و تشخیص Right-Click
ReportName میتواند ComboBox باشد. بهجای Value List ثابت، Form_Load نام Reportها را از CurrentProject.AllReports میخواند و List را در زمان باز شدن Form میسازد.
Dynamic Value List
Private Sub Form_Load()
Dim ValueList As String
For Each AccessObject In CurrentProject.AllReports
If AccessObject.Name <> "LabelsTempReport" Then
If InStr(1, AccessObject.Name, "label", vbTextCompare) > 0 Then
ValueList = ValueList + Chr(34) + AccessObject.Name + Chr(34) + ";"
End If
End If
Next
ReportName.RowSource = ValueList
ReportName.Requery
End Sub
Rule نامگذاری میتواند از label به Avery یا معیار مناسب Database تغییر کند.
Spin Box
Access Spin Box استاندارد در Toolbox ندارد؛ میتوان دو Picture/Command Button کوچک برای Up/Down ساخت و Event Click آنها Value را افزایش/کاهش دهد.
Private Sub SpinUpBttn_Click()
If Me!LabelsToSkip.Value < 80 Then Me!LabelsToSkip.Value = Me!LabelsToSkip.Value + 1
End Sub
Private Sub SpinDownBttn_Click()
If Me!LabelsToSkip.Value > 0 Then Me!LabelsToSkip.Value = Me!LabelsToSkip.Value - 1
End Sub
MouseDown و Right-Click
On Click نوع کلیک راست را مستقیماً جدا نمیکند. MouseDown Argumentهای Button، Shift، X و Y را میگیرد. Button میتواند acLeftButton، acMiddleButton یا acRightButton باشد و Shift وضعیت Shift/Ctrl/Alt را گزارش میکند.
Private Sub ObjectName_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = acRightButton Then MsgBox "You pressed the Right mouse button"
End Sub
شکلها و عناصر بصری این بخش