اذهب الي المحتوي
أوفيسنا

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


gadelrab
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

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

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

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

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

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

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

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

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

in and out.rar

رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته أخي  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")

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information