اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

قاعدة بيانات عسكرية معدله


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

السلام عليكم

رااااااااااااائع استاذ احمد

دائما للامام ايها الرائع

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

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

السلام عليكم

رااااااااااااائع استاذ احمد

دائما للامام ايها الرائع

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

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

الاخ الفاضل الاستاذ / حماده عمر

شكراً لحضرتك اخي العزيز

كلماتك الطيبة الرقيقه اكبر مني بكثييييييييييييييير جداً جداً جداً

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

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

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

  • 5 months later...
  • 1 month later...
  • 4 months later...
  • 1 year later...

إذا واجهتك مشكلة أخي الكريم أبو راكان فاطرح المشكلة

التعامل مع نظام 64 بت يحتاج لممارسة ولا يوجد قواعد ثابتة بشكل كبير ..أنا أجتهد في التعديل إلى أن يتم الأمر (لأنني بدأت التعامل مع 64 بت منذ فترة)

تقبل تحياتي

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

'In Standard Module
'-----------------

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    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 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
#End If

Sub RemoveCaption(objForm As Object)
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
    
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", objForm.Caption)
    Else
        mhWndForm = FindWindow("ThunderDFrame", objForm.Caption)
    End If
    
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
End Sub

Sub ShowForm()
    UserForm1.Show False
End Sub

'In UserForm Module
'------------------
Private Sub UserForm_Initialize()
    Call RemoveCaption(Me)
End Sub

تفضل أخي الكريم

 

 

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

  • 4 weeks later...

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