تبلیغات
تبلیغات متنی
محبوبترینها
ساقدوش کیست ؟ | وظیفه ساقدوش در مراسم عقد و عروسی چیست ؟
قایق‌سواری تالاب انزلی؛ تجربه‌ای متفاوت با چاشنی تخفیف
چگونه ویزای توریستی فرانسه را بگیریم؟
معرفی و فروش بوته گرافیتی ریخته گری
بهترین بروکر برای معاملات فارکس در سال 2024
تجربه رانندگی با لندکروز در جزیره قشم؛ لوکس‌ترین انتخاب
اکسپرتاپ: 10 شغل پردرآمد برای مهاجران کاری در کانادا
بهترین سایتهای خرید تیک آبی رسمی اینستاگرام در ایران
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1815338645
روش كار با clip board در VB -
واضح آرشیو وب فارسی:سایت ریسک: t=1098">روش كار با clip board در VB Amin_vb 02 خرداد 1382, 22:59با استفاده از اين كد شما ميتوانيد يك عكس يا فايل متني را در كليپ بورد ذخيره نماييد يا اينكه تصوير يا متن ذخيره شده در كليپ بورد را در يك فايل ذخيره كنيد. Public Function Load_Image_To_Clipboard(file As String) 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
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 349]
-
گوناگون
پربازدیدترینها