تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أستعراض صورة بانوراما في برنامج دكتور أسنان
#1
Exclamation 
أرجو المساعدة
بعمل برنامج لدكتور أسنان وفيه يحتاج الدكتور لإستعراض صور بانوراما (( صور إشاعة )) وهذه الصور لا تعمل إلا ببرنامج Agfa و أريد حفظ الصورة الخاصة بكل كشف في مكان علي القرص الصلب و عنوان المكان في قاعدة البيانات
أرجو الاجابة وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
لا اعلم شيئا عن البرنامج

اظن انه يقوم بالمسح فيمكنك استعمال برنامج 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
الرد }}}}
تم الشكر بواسطة: محمد نافع


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 70 منذ 6 ساعة مضت
آخر رد: Ahmed_Mansoor
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 5 139 17-03-17, 01:47 AM
آخر رد: zine pef
  [سؤال] عرض صورة على ActiveReport Microsoft Visual Basic 6.0 2 95 03-03-17, 10:26 AM
آخر رد: Microsoft Visual Basic 6.0
  استفسار عن اضافة اكثر من صورة الي رقم واحد عمر سالم 1 104 26-02-17, 01:21 PM
آخر رد: Ahmed_Mansoor
  محتاج برنامج ارشفه الكترونية مفتوح المصدر رجل الكهرباء 26 2,955 23-02-17, 04:59 PM
آخر رد: فهد الحياه
  [سؤال] برنامج شؤون الموظفين بصورة الموظف مروة سالم 5 193 11-02-17, 01:43 AM
آخر رد: Amir_alzubidy
  رابط تحميل برنامج 6.0 Microsoft Visual Basic ابو يسرية 2 114 08-02-17, 04:52 PM
آخر رد: ابو يسرية
  طلب برنامج ActiveReports 2 iAwadop 3 135 27-01-17, 12:38 AM
آخر رد: iAwadop
  البحث عن صورة kafrnabl 0 141 07-12-16, 10:06 AM
آخر رد: kafrnabl
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 285 01-12-16, 03:40 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم