• Home
 · 
• Files/File Controls/Input/Output
 · 
• This code can save/load pictures and textfiles into or out of the clip board. This is an increadabl

This code can save/load pictures and textfiles into or out of the clip board. This is an increadabl

This code can save/load pictures and textfiles into or out of the clip board. This is an increadably handy tool to have!

Rate This code can save/load pictures and textfiles into or out of the clip board. This is an increadabl

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Clipboard.SetData LoadPicture(file)
End Function

Public Function Save_Image_From_Clipboard(file As String)
SavePicture Clipboard.GetData, file
End Function

Public Function send_Text_File_To_Clipboard(file As String)
On Error GoTo error
Open file For Input As #1
Clipboard.SetText Input(LOF(1), 1)
Close #1
Exit Function
error:
y = MsgBox("File Not Found", vbOKOnly, "Error")
End Function

Public Function recive_Text_From_Clipboard_to(file As String)
On Error GoTo error
Open file For Output As #1
a$ = Clipboard.GetText
Print #1, a$
Close 1
Exit Function
error:
x = MsgBox("There has been a error!", vbOKOnly, "Error")
End Function