نوشته اصلی توسط
Amir Ghasemiyan
شما براي دكمه ها تعريف نكرديد چه عملياتي انجام بدن. براي تعريف عمليات مورد نظر به اين ترتيب عمل كنيد:
در ساب روتين MakePopUp اين دو خط رو در انتها اضافه كنيد
............
ممنون فقط یه موضوع تموم کد هائی که این کار رو انجام میدن میشه
کد:
Sub MakePopUp()
'Remove any old instance of MyPopUp
On Error Resume Next
CommandBars("MyPopUp").Delete
On Error GoTo 0
With CommandBars.Add(name:="MyPopUp", Position:=msoBarPopup)
.Controls.Add Type:=msoControlButton, ID:=19
.Controls.Add Type:=msoControlButton, ID:=22
End With
CommandBars("MyPopUp").Controls(1).OnAction = "CopyText"
CommandBars("MyPopUp").Controls(2).OnAction = "PasteText"
End Sub
و
کد:
' Action CopyPrivate Sub CopyText()
Set txtData = New DataObject
txtData.SetText fullint.TextBox1.SelText
txtData.PutInClipboard
End Sub
و
کد:
' Action PastePrivate Sub PasteText()
fullint.TextBox1.Paste
End Sub
و
کد:
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MakePopUp
If Button = 2 Then
Application.CommandBars("MyPopUp").ShowPopup
End If
End Sub
حالا من تو یه کار دیگه چندین عدد تکست باکس دارم اگه بخوام از این کد استفاده کنم آیا باید همه شونو برای هر کدوم تکرار کنم (با تغییرات هر فرم ) یا بعضیهاش مشترکه و فقط یه دفعه نوشتنش کافیه ؟
علاقه مندی ها (Bookmarks)