آموزش: قراردادن کليدهای اضافی در نوار ابزار گزارشهای اکتيو ريپورت [بایگانی]

moghadam1372

دوشنبه 06 شهریور 1391, 18:24 عصر

در اکتیور ریپورت در قسمت
Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
Select Case Tool.ID
Case Is = 21
Dim a As String * 255, B As Integer
B = GetSystemDirectory(a, 255)
Shell Left(a, B) & "\calc.exe", vbNormalFocus
End Select
End Sub

ودر اکتیور ریپورت ودر قسمت ریپورت استارت

If Toolbar.Tools.Count <= 21 Then
Toolbar.Tools.Add "ماشین حساب "
End If