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

ابو باسل2016

عضو جديد 01
  • Posts

    3
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه ابو باسل2016

  1. السلام عليكم ورحمة الله وبركاته 

    أستاذتنا الأعزاء عملت شيت مكون من يوزر فوم وشيت اكسل  لشؤون الموظفين على الاكسيل على جهاز لاب توب ولكن عند نقل ملف الاكسيل على جهاز pc  يعطيني أخطاء في الاكواد التالية

    
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function ShowWindow Lib "user32" _
    (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Const WS_MINIMIZEBOX As Long = &H20000
    Private Const GWL_STYLE As Long = (-16)
    Private Const WS_SYSMENU As Long = &H80000
    Private Const SW_SHOWMAXIMIZED = 3
    
      

     ارجو منكم توجيهي بتصحيح الخطاء كما عهدناكم في هذا المنتدي الاكثر من الرئع 

     

×
×
  • اضف...

Important Information