عاوز اعرف الأمر اللي بيخلي كل النوافذ تكون Minimize

Public Class Form1

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _

ByVal dwExtraInfo As Long)

Const VK_STARTKEY = &H5B

Const VK_M = 77

Const KEYEVENTF_KEYUP = &H2



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

keybd_event(VK_STARTKEY, 0, 0, 0)

keybd_event(VK_M, 0, 0, 0)

keybd_event(VK_M, 0, KEYEVENTF_KEYUP, 0)

keybd_event(VK_STARTKEY, 0, KEYEVENTF_KEYUP, 0)



Dim f As New Form1

f.Show()

End Sub

End Class

لكن واجهتني مشكله ان الفورم يفتح مرتين طبعاً السبب هو كلمة New

بدونها ما يفتح الفورم لو حد يعرف شي طريقه اضافيه ممكن يساعدك

ولو عرفت الحل يا ريت تقلي :)

شكرا جدا اخي

مشكلتك مش شايفلها سبب انك تستدعي ظهور الفورمة من تاني

الكود صح وشيل اساتدعاء الفورمة من تاني

لأني مش محتاج كدة

وشكرا مرة اخر

هههه فكرت انك هيك عاويز :)

مش مشكله المهم ان الطريقه شغاله .. يوجد طريقه اخرى عن طريق كود من سطر واحد

اذا كنت بحاجه قلي

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

توجد طريقة أخرى بدون API

قم بإضافة المرجع Microsoft Shell Controls And Automation من قائمة Project ثم Add Reference وستجده فى التبويب COM

ثم اكتب هذا الكود

		Dim sh As New Shell32.Shell
		sh.MinimizeAll()

----------------------------------------

اقتباس

اذا كنت بحاجه قلي

الأخ الكريم ,,

إذا كانت لديك معلومة تفيد الموضوع فضعها مباشرة دون الانتظار أن يطلبها منك أحد

معك حق بس المشكله كنت مستعجل وكان لازم ابحث عنها لاني استعملتعا بشي برنامج صصممته

وهذا الكود

CreateObject("Shell.Application").MinimizeAll

ايضا بدون استخدام ال API