09-04-17, 02:03 PM
(آخر تعديل لهذه المشاركة : 09-04-17, 02:05 PM {2} بواسطة khodor1985.)
السلام عليكم أخي العزيز ورحمة الله وبركاته
قم بإنشاء موديل جديد بعنوان Rsize وضع بداخله الكود التالي :
ثم ضع في الحدث Open للنموذج الكود التالي :
أتمنى لك التوفيق
طبعا يجب أن تنادي الموديل Resize في الحدث Open لكل نموذج
قم بإنشاء موديل جديد بعنوان Rsize وضع بداخله الكود التالي :
PHP كود :
Option Compare Database
Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STILL_ACTIVE = &H103
ثم ضع في الحدث Open للنموذج الكود التالي :
PHP كود :
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
ReSizeForm Me
أتمنى لك التوفيق
طبعا يجب أن تنادي الموديل Resize في الحدث Open لكل نموذج
واعبد ربك حتى يأتيك اليقين
