الأحد، 13 يناير 2013

Open pdf File using vb6


  1. Option Explicit
  2.  
  3. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  4.                     ByVal hwnd As Long, _
  5.                     ByVal lpOperation As String, _
  6.                     ByVal lpFile As String, _
  7.                     ByVal lpParameters As String, _
  8.                     ByVal lpDirectory As String, _
  9.                     ByVal nShowCmd As Long) As Long
  10.  
  11. Private Const SW_HIDE As Long = 0
  12. Private Const SW_SHOWNORMAL As Long = 1
  13. Private Const SW_SHOWMAXIMIZED As Long = 3
  14. Private Const SW_SHOWMINIMIZED As Long = 2
  15.  
  16. Private Sub Form_Load()
  17.  
  18.  
  19. 'ShellExecute Me.hWnd, "open", App.Path & "\your.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
  20. ShellExecute Me.hwnd, "open", "C:\VB6_Downloads\VB6_Jan_2008\LM-1_quickstart.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
  21.  
  22.  
  23. End Sub




مرسلة بواسطة في
التسميات:

ليست هناك تعليقات:

إرسال تعليق

الاشتراك في: تعليقات الرسالة (Atom)