15-10-20, 11:53 PM
(15-10-20, 01:42 AM)عبد العزيز البسكري كتب :تقصد بهذا الشكل أستاذنا القدير ..كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Dim _thread As Thread = New Thread(Function()
' Application.Run(New Form() With {.MdiParent = Form1})
' End Function)
'_thread.SetApartmentState(ApartmentState.STA)
'_thread.Start()
Dim _thread As Thread = New Thread(AddressOf OpenForm1)
End Sub
Private Sub OpenForm1()
Application.Run(New Form() With {.MdiParent = Form1})
End Subاخي الفاضل
حدد الاجراء اللي بيعمل تهنيج للشاشة وضيفه في ثريد واستدعيه في اي وقت
بدلا من فتح الفورم باستخدام الثريد اظنه غير عملي وهيتأخر في فتح الشاشة , هتعالج عمليه التهنيج بس
