التعامل مع حافضة الويندوزclipboard

التعامل مع حافضة الويندوزclipboard

'اضف 5 زر امر
    ' اضف 3 مربعات نص
Private Sub Command1_Click()
    Dim Edafah As String
    If Text2 = Empty Then MsgBox "اكتب نصا في الصندوق", , "صندوق النص": Text2.SetFocus: Exit Sub
    Edafah = Clipboard.GetText
    Edafah = Edafah & " " & Text2.Text
    Clipboard.SetText Edafah
    Command1.Enabled = False: Text2.Enabled = False: Command3.Enabled = True
    MsgBox "تم إضافة النص الجديد", vbInformation, "شكرا لك"
End Sub
Private Sub Command2_Click()
    Dim Nskh As String
    If Text1 = Empty Then MsgBox "اكتب نصا في الصندوق", , "صندوق النص": Text1.SetFocus: Exit Sub
    Clipboard.Clear
    Nskh = Nskh & Text1.Text
    Clipboard.SetText Nskh
    Command1.Enabled = True: Text2.Enabled = True: Text1.Enabled = False: Command2.Enabled = False
    MsgBox "تم نسخ النص إلى الحافظة", vbInformation, "شكرا لك"
End Sub
Private Sub Command3_Click()
    Text3.Text = Clipboard.GetText: Command3.Enabled = False: Command5.Enabled = True
End Sub
Private Sub Command4_Click()
    Unload Me: Set Form1 = Nothing
End Sub
Private Sub Command5_Click()
    Text1 = "": Text2 = "": Text3 = "": Command5.Enabled = False
    Command2.Enabled = True: Text1.Enabled = True: Text1.SetFocus
End Sub