تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف تغير الحجم
#1
كيف تغير الحجم برنامج [How To resize Process]
مثلآ لو عندى كود مثل هذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Resize As Process In Process.GetProcessesByName("HiPlayer")
            If ComboBox1.SelectedItem = ("640 × 480") Then

            End If
            If ComboBox1.SelectedItem = ("800 × 600") Then

            End If
            If ComboBox1.SelectedItem = ("1024 × 768") Then

            End If
            If ComboBox1.SelectedItem = ("1600 × 1200") Then

            End If
            If ComboBox1.SelectedItem = (Screen.PrimaryScreen.Bounds.Width & " × " & Screen.PrimaryScreen.Bounds.Height) Then

            End If
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("640 × 480")
        ComboBox1.Items.Add("800 × 600")
        ComboBox1.Items.Add("1024 × 768")
        ComboBox1.Items.Add("1600 × 1200")
        ComboBox1.Items.Add(Screen.PrimaryScreen.Bounds.Width & " × " & Screen.PrimaryScreen.Bounds.Height)
    End Sub
ما الكزد الذى يضاف لى هضا الكود لكي يغير حجم البرنامج
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Private Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr
    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal ByValhwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer

    Dim _focusedWindow As IntPtr = GetForegroundWindow()
    Dim _activeWindowName As String
    Dim _processID As Integer = 0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim _focusedWindow As IntPtr = GetForegroundWindow()
        If _focusedWindow <> IntPtr.Zero Then
            If GetWindowThreadProcessId(_focusedWindow, _processID) <> 0 Then
                Dim proc As Process = Process.GetProcessById(_processID)
                If proc Is Nothing Then Exit Sub
                _activeWindowName = proc.ProcessName
                '
                'Get access to the window properties somehow!
                '    
            End If
        End If
    End Sub
وجد هذا الكود
و هذا
كود :
Imports System.Runtime.InteropServices

Public Class Form1

    Dim tom As New Process
    Dim tomstyle As New ProcessWindowStyle
    Dim hndtom As IntPtr

    Public Declare Auto Function SetWindowPos Lib "user32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal hWndInsertAfter As IntPtr, _
    ByVal X As Int32, _
    ByVal Y As Int32, _
    ByVal cx As Int32, _
    ByVal cy As Int32, _
    ByVal uFlags As UInt32 _
    ) As Boolean

    Public Declare Auto Function MoveWindow Lib "user32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal X As Int32, _
    ByVal Y As Int32, _
    ByVal nWidth As Int32, _
    ByVal nHeight As Int32, _
    ByVal bRepaint As Boolean _
    ) As Boolean


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        tomstyle = ProcessWindowStyle.Normal

        tom = Process.Start("c:\program files\internet explorer\iexplore.exe")

        hndtom = tom.MainWindowHandle

        MsgBox(MoveWindow(hndtom, 10, 10, 300, 400, True))

    End Sub

End Class
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير تاريخ الفورم ddemed 0 33 01-12-16, 06:37 PM
آخر رد: ddemed
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,348 30-11-16, 10:16 PM
آخر رد: omferas
  كيفية تغير رسائل الخطأ؟ noway 3 68 11-11-16, 05:37 PM
آخر رد: ممدوح
  تغير مكان الادوات علي الفورم makky 4 174 02-08-16, 01:19 AM
آخر رد: makky
  [VB.NET] هل يمكن تغير الوان الفورم بالمشروع بمديول كافكرة CSS nour83 4 177 03-07-16, 05:08 PM
آخر رد: أسامة
  [VB.NET] شباب عند تغير بزرار الانتقال الى الامام او الخلف تظهر لى هذه الرساله احمد عبد الحكيم 3 389 05-07-15, 03:04 PM
آخر رد: sphinx
Tongue مشكلة الحجم الكبير للبرنامج ع الشاشة ims.ataya 3 771 19-04-15, 04:09 PM
آخر رد: silverlight
  [سؤال] السلام عليكم شباب هل من الممكن عمل تقرير فى كريستال ريبورت بهذا الحجم والطريقة احمد عبد الحكيم 7 1,287 13-04-15, 12:02 AM
آخر رد: الكاتب
  [سؤال] ازاى اظهر البيانات الموجودة فى الداتا جريد عند تغير صفحات TabControl احمد عبد الحكيم 4 636 10-04-15, 02:46 AM
آخر رد: احمد عبد الحكيم
  [VB.NET] تم تغير جملة insert into فظهرت لى هذه الرساله احمد عبد الحكيم 2 384 24-02-15, 11:57 PM
آخر رد: محمد العبيدي

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


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