منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف أستعراض صورة بانوراما في برنامج دكتور أسنان - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف أستعراض صورة بانوراما في برنامج دكتور أسنان (/showthread.php?tid=1528)



كيف أستعراض صورة بانوراما في برنامج دكتور أسنان - محمد نافع - 11-01-14

أرجو المساعدة
بعمل برنامج لدكتور أسنان وفيه يحتاج الدكتور لإستعراض صور بانوراما (( صور إشاعة )) وهذه الصور لا تعمل إلا ببرنامج Agfa و أريد حفظ الصورة الخاصة بكل كشف في مكان علي القرص الصلب و عنوان المكان في قاعدة البيانات
أرجو الاجابة وشكرا


RE: كيف أستعراض صورة بانوراما في برنامج دكتور أسنان - asto - 11-01-14

لا اعلم شيئا عن البرنامج

اظن انه يقوم بالمسح فيمكنك استعمال برنامج Mouse and Keyboard Recorder لتقليد حركات الماوس و الكيبورد و حفظ المسح في مكان معين باسم معين

(غير المكان الذي تريده في قاعدة البيانات) طبعا يجب ان يكون برنامج Agfa بوضعية ملئ الشاشة

و هذا كود نقل او اعادة تسمية او كليهما

كود :
d:\12  إلى  c:\12 من   dd.txtهنا ننقل ملف  

Name "c:\12\dd.txt" As "d:\12\dd.txt"

أو  أي مسار آخر c:\  كمان في الـ  14.txt  إلى  c:\في    12.txtهنا نعيد تسمية الملف  

Name "c:\12.txt" As "c:\14.txt"

و يمكن استبدال ما هو مابين "" بتكست1 او تكست2 او .................. و يجب ان يحوي المسار و الاسم و الامتداد

ثم تقوم بالاضافة الى قاعدة البيانات

و هذا كود فتح اي ملف : حيث تفتح قاعدة البيانات و تقوم بقراءة القيمة و اسنادها الى تكست1

كود :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


ما اعلاه في سطر واحد في القسم العام

Private Sub Command1_Click()

ShellExecute Me.hWnd, "open", text1.text, &O0, &O0, &O1

Sub End