برنامج الصادر والوارد ( الارشفة الالكترونية ) محتاج الى اضافة ضرورية

[gadelrab]

الاخوة الاعزاء

السلام عليكم ورحمة الله

قمت بتصميم برنامج للصادر والوارد وذلك بمساعدة الافكار العظيمة الموجودة فى هذا المنتدى الرائع

ولكن البرنامج يحتاج الى اضافة مهمة

وهى عند النقر على الصورة يتم عرضها فى متصفح الويندوز

وذلك للطباعة او التصغير والتكبير للصورة

فمن لديه هذه الاضافة فلا يبخل بها علينا

والبرنامج فى المرفقات لمن اراد الاستفادة منه وعمل التعديل المطلوب

in and out.rar

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي  gadelrab 🙂 

هناك أكثر من طريقة لفتح الملفات (الروابط) خارج قاعدة البيانات  .. منها على سبيل المثال :

(1)

followhyperlink ("C:\Document\File.Jpg")

(2) تضع هذا الكود في موديول وتناديه في المكان المطلوب :

Public Sub OpenPath(strPath As String)
Shell "explorer.exe" & " " & strPath, vbNormalFocus
End Sub

وتناديه كالتالي :

OpenPath "C:\Document\File.Jpg"

(3) تضع هذا الكود في موديول وتناديه في المكان المطلوب :

Public Sub OpenFilePath(sFilePath As String)
CreateObject("Shell.Application").Namespace(0).ParseName(sFilePath).InvokeVerb "Open"
End Sub

وتناديه كالتالي:

OpenFilePath "C:\Document\File.Jpg" 

(4)  تضع هذا الكود في موديول وتناديه في المكان المطلوب :

Public Declare PtrSafe Function FileProtocolHandler Lib "url.dll" _
      Alias "FileProtocolHandlerA" (ByVal hwnd As Long, ByVal hinst As Long, _
      ByVal lpszCmdLine As String, ByVal nShowCmd As Long) As Long

Public Sub OpenHyperlink(ByVal Url)
  FileProtocolHandler 0, 0, Url, 1
End Sub

وتناديه كالتالي:

OpenHyperlink ("C:\Document\File.Jpg")

 

[gadelrab]

الاخ العزيز Moosak

شكرا لك على تفضلك بالرد

حاولت تطبيق ما ذكرته على البرنامج ولكنى لم استطيع

الرجاء ان تقوم بعمل تطبيق على المثال المرفق

وجزاك الله خير الجزاء

[ابوخليل]

مشاركة مع اخي موسى .. تفضل هذا يقوم بالمهمة

انقر نقرا مزدوجا على الصورة

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 Image_DblClick(Cancel As Integer)
ShellExecute Me.hwnd, "open", Import_pictures_path, "", "", 1
End Sub

ان كان نظامك 64 اضف  PtrSafe  بعد Declare

 

in and out2.rar

[gadelrab]

الاخ العزيز ابوخليل

جزاك الله خير الجزاء

ان ماتفضلت به هو المطلوب

فشكرا لك ولكل من تفضل بالمساهمة