أخواني الأعزاء أريد أن أطلب منكم طلب ألا وهو أني لدي كودين واحد لأخذ صورة للشاشة وآخر لتحويل الصورة إلى Jpg أنا أريد منكم أخواني الكرام أن تدمجوا الكودين بحيث يصبح عندما أضغط على زر أخذ لقطة للشاشة يأخذ اللقطة ومن ثم يحولها إلى Jpg مباشرة وكل هذا تحت كوماند واحد فقط.
وشكرا......
ملاحظة الأكواد في المرفقات.
Email : sao_-5000@hotmail.com
أخي الكريم القصد من كود تحويل صيغة الصورة ليس الصيغة فقط فأنا حولتها لكي يصبح حجمها أقل بكثير من السابق فالكود المرفق يقوم بعمل ذلك على أكمل وجه والكود الذي أعطيتني إياه فقط يغير الصيغة بدون تصغير الحجم والهدف الأساسسي من الكود تصغير الحجم.
المطلوب دمج الكودين بحيث يصبح عندما أضغط على زر أخذ لقطة للشاشة يأخذ اللقطة ومن ثم يحولها إلى Jpg مباشرة وكل هذا تحت كوماند واحد فقط.
وشكرا.....
Email : sao_-5000@hotmail.com
أستغرب مثل هذه الأسئلة!!!
الكود موجود لديك ولا تعرف كيف تغير فيه ليتناسب مع ما تريد!
شئ كهذا قد يفيد ( غير في الكود كما تشاء بحيث يتناسب مع ما تريد مراعياً أن يكون الكود الناتج جيداً ولا تعتمد القص واللصق فقط) ..
Private Sub cmdConvert_Click()
Dim pict As StdPicture
On Error GoTo cmdConvert_Click_Error
'---------------
Dim Path As String
keybd_event VK_SNAPSHOT, 0, 0, 0
DoEvents
Set pict = Clipboard.GetData(vbCFBitmap)
'Path = SaveDialog(Me, "JPG Files (*.JPG)|*.jpg", "Save as", , "MyFileName")
'If Path <> "" Then
SaveJPG pict, App.Path & "\1.jpg", 100: MsgBox "Done", vbInformation, ":)"
'End If
'---------------
On Error GoTo 0
Exit Sub
cmdConvert_Click_Error:
MsgBox "Failed", vbCritical, ":("
End Sub"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أخي الكريم أنا أعرف أن الكود موجود ولكن لم أعرف كيف أعدل على الكود فقط وشكرا جزيلا على التوضيح.
Email : sao_-5000@hotmail.com
المثال المرفق يقوم بالتحكم بتوعية الصورة الملتقطة باستعمال مكتبة خارجية
اذا كنت تريد ارسال الصورة عبر الوينسوك عندي مثال أحسن يقوم بضغط الصورة باستعمال zlib
المثال يقوم بالتقاط الصورة وارسالها عبر الوينسوك بعد ضغطها بالمكتبة zlib
في الحقيقة لم يكن المثال الذي كلمتك عنه لكنه يشبهه الى حد بعيد
اليك مثال آخر فقط عليك عمل ملف تنفيذي له ومن ثم تنفيذ نسخة كخادم serveur ونسخة أخرى كعميل client
ومن ثم ارسال الصورة
تم تعديل هذه المشاركة بواسطة DreamNet في 11 يونيو 2007 في 15:50
السلام عليكم
إن شاء الله اني فهمت صح وجبت المراد وانكان سبقني احد
فزيادة الخير خيرين هذا تطبيقي وحفظة على صيغتين
انا اللي فهمته ان حجم الصوره يطلع كبير شوف تطبيقي وإن شاء الله
تستفيد منه
صوره من الصور اللي التقطها من البرنامج
السورس بالمرفقات
والسلام عليكم
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
