06-10-12, 09:38 PM
كاتب الموضوع : BADRMEDIA
كيف حصل علي نص خزنته فى الذاكرة أو صورة ؟؟؟
أنه التعامل مع Clipboard
كود :
[color=#000000][COLOR=#0000bb] Sub Get_Text_From_ClipBoard[/color][COLOR=#007700]()
Try
If [/COLOR][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Clipboard[/color][color=#007700].[/color][color=#0000bb]ContainsText[/color][color=#007700]() [/color][COLOR=#0000bb]Then
Dim ClipboardText [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String
ClipboardText [/COLOR][color=#007700]= [/color][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Clipboard[/color][color=#007700].[/color][COLOR=#0000bb]GetText
MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ClipboardText[/color][COLOR=#007700])
Else
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"No Text in ClipBoard"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]ex[/color][color=#007700].[/color][color=#0000bb]Message[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
الكود واضح وما يحتاج شرح