تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف الحصول على حجم نوافذ عملية
#1
اسف اذا كان الموضوع السابق كان مخالف للقوانين

كود :
           If Process.GetProcessesByName("calc").Length > 0 Then
            Dim calc_size As System.Drawing.Size
            Dim processWindowHandle As IntPtr = Process.GetProcessesByName("calc")(0).MainWindowHandle
            Dim s As Size = GetControlSize(processWindowHandle)
            calc_size = s
            Dim GWL_STYLE As Integer = -16
            Dim style As Integer = GetWindowLong(processWindowHandle, GWL_STYLE)
            original_style = style
            SetWindowLong(processWindowHandle, GWL_STYLE, original_style)
            MsgBox(calc_size.Width)
        End If
المشكلة ان الناتج 0
الرد
تم الشكر بواسطة:
#2
السلام عليكم

الكود ناقص،
الرجاء وضع كامل الكود لمعرفة التصحيح المناسب.
الرد
تم الشكر بواسطة: Mohamed20
#3
(06-03-17, 04:27 PM)مساعدة كتب : السلام عليكم

الكود ناقص،
الرجاء وضع كامل الكود لمعرفة التصحيح المناسب.

تم الحل بحمد الله

كود :
    Public Shared Function GetControlSize(hWnd As IntPtr) As Size
        Try
            Dim pRect As RECT
            Dim cSize As New Size()
            ' get coordinates relative to window
            GetWindowRect(hWnd, pRect)
            cSize.Width = pRect.Right - pRect.Left
            cSize.Height = pRect.Bottom - pRect.Top

            Return cSize
        Catch ex As Exception

        End Try
    End Function
     
 Dim p = (From x In Process.GetProcessesByName("calc") Order By x.StartTime).Last
       Dim processWindowHandle As IntPtr = p.MainWindowHandle
       Dim s As Size = GetControlSize(processWindowHandle)
       Dim calc_size As System.Drawing.Size
       calc_size = s
       MsgBox(calc_size.Width)

المشكلة ان كان يقرءة MainWindowHandle بعد اما يفتج المشروع

تم تصحيح الكود للافادة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 2 63 أمس, 05:23 AM
آخر رد: سعود
  شرح عملية التفعيل حافظ حافظ 11 247 06-04-18, 01:35 AM
آخر رد: emamtron2014
  كيفية بدء عملية جديدة دون امتيازات المسؤول من عملية لها امتيازات المسؤول؟ ali.alfoly 8 249 25-03-18, 12:54 PM
آخر رد: ali.alfoly
  [VB.NET] إلغاء عملية إضافة سجل جديد larbihamri 4 178 20-03-18, 11:33 PM
آخر رد: larbihamri
  كيفية اضهار نتيجة عملية حسابية بالتكست بوكس تلقائياً الميساني 4 172 05-03-18, 08:11 PM
آخر رد: الميساني
  كيفية اضهار نتيجة عملية حسابية بالتكست بوكس تلقائياً الميساني 4 140 02-03-18, 08:10 PM
آخر رد: الميساني
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 190 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [VB.NET] كيف يمكن الحصول على ترميز ينيكود Lamyaa 2 63 27-01-18, 12:32 AM
آخر رد: محمود صالح
  كيف يمكننى الحصول على فيجوال استوديو مبرمج مصرى 1 74 05-01-18, 09:18 PM
آخر رد: الكاتب
  ربط أداة progress bar مع عملية البحث fouadhdfouad 1 136 09-12-17, 01:19 AM
آخر رد: Rabeea Qbaha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم