طلب مساعده كود يجبر دقة الشاشه في مقاس معين - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185) +--- الموضوع : طلب مساعده كود يجبر دقة الشاشه في مقاس معين (/showthread.php?tid=52240)

طلب مساعده كود يجبر دقة الشاشه في مقاس معين - قاسم اليافعي - 14-03-25 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ماهو الكود الذي يمكنني من تغيير دقة الشاشة الى دقة محددة ( مثلا الى دقة 1366 *768) بس يكون كود جاهز ينحط في كل فورم ولكم جزيل الشكر RE: طلب مساعده كود يجبر دقة الشاشه في مقاس معين - قاسم اليافعي - 14-03-25 ليه مافي حد متواجد عشان يرد وينكم يا بش مهندسين RE: طلب مساعده كود يجبر دقة الشاشه في مقاس معين - قناص المدينة - 17-03-25 Imports System.Runtime.InteropServices Module Module1 <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE Public dmDeviceName As String Public dmSpecVersion As Short Public dmDriverVersion As Short Public dmSize As Short Public dmDriverExtra As Short Public dmFields As Integer Public dmPositionX As Integer Public dmPositionY As Integer Public dmDisplayOrientation As Integer Public dmDisplayFixedOutput As Integer Public dmColor As Short Public dmDuplex As Short Public dmYResolution As Short Public dmTTOption As Short Public dmCollate As Short <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Public dmFormName As String Public dmLogPixels As Short Public dmBitsPerPel As Integer Public dmPelsWidth As Integer Public dmPelsHeight As Integer Public dmDisplayFlags As Integer Public dmDisplayFrequency As Integer Public dmICMMethod As Integer Public dmICMIntent As Integer Public dmMediaType As Integer Public dmDitherType As Integer Public dmReserved1 As Short Public dmReserved2 As Short Public dmPelsDensity As Integer Public dmDisplayData As Integer Public dmReserved3 As Integer Public dmDriverExtra2 As Integer End Structure <DllImport("user32.dll", CharSet:=CharSet.Auto)> Public Function ChangeDisplaySettings(ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer End Function Sub Main() Dim dm As New DEVMODE() dm.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE))) dm.dmPelsWidth = 1366 dm.dmPelsHeight = 768 dm.dmFields = &H80000 Or &H40000 ' DM_PELSWIDTH | DM_PELSHEIGHT Dim result As Integer = ChangeDisplaySettings(dm, 0) If result = 0 Then Console.WriteLine("تم تغيير دقة الشاشة بنجاح.") Else Console.WriteLine("فشل في تغيير دقة الشاشة. الكود: " & result) End If End Sub End Module