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
اخي الفاضل
حدد الاجراء اللي بيعمل تهنيج للشاشة وضيفه في ثريد واستدعيه في اي وقت
بدلا من فتح الفورم باستخدام الثريد اظنه غير عملي وهيتأخر في فتح الشاشة , هتعالج عمليه التهنيج بس
16-10-20, 12:12 AM (آخر تعديل لهذه المشاركة : 16-10-20, 12:14 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
أخي الكريم عبدو .. صدقني ليس لدي أي إجراءات أخرى غير التي بالملف بالمشروع الذي وضعته
حتى كود أستاذنا الكريم الشاكي لله بارك الله فيه و له
[b]يا فرحة .. ما تمّت[/b]
ضبط معي و ماعاد الشريط النصي يتوقف عند محاولة فتح فورم آخر لكن الفورم الذي ينفتح أجد أنّه ما تظهر عليه السكاينات Bonus Skins
هذا كامل الكود .. ضبط معي و لا يهنّج ال WebBrowSer و لكن يظهر الفورم 1 بدون سكاين .. رغم أنه بدون هذه الاكواد و بتوقف الشلريط النصي يظهر السكاين بطريقة عادية
كود :
Imports DevExpress.XtraEditors
Imports System.Threading
Public Class MDIParent1
Sub New()
InitializeComponent()
DevExpress.UserSkins.BonusSkins.Register()
DevExpress.Skins.SkinManager.EnableFormSkins()
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"
End Sub
Private Sub MDIParent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim T_WebBrowser As Thread = New Thread(AddressOf Move_Web_Browser)
T_WebBrowser.SetApartmentState(ApartmentState.STA)
T_WebBrowser.Start()
End Sub
Private Sub Move_Web_Browser()
Dim Animate As String, Couleur As String, Vitesse As Long
Animate = "السلام عليكم و رحمة الله و بركاته "
Vitesse = 6 : Couleur = "#OOFFFF"
Me.WebBrowser1.Navigate("About:<Html><Body BGCOLOR ='#000000' Scroll='No'><Font Color= " & Couleur & " Size='5' Face='Tahoma'><Body Topmargin='0'>" & "<Marquee Scrollamount=" & ">" & Animate & "</Marquee></Font></Body><Center></Html>")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim T_Form1 As Thread = New Thread(AddressOf OpenForm1)
T_Form1.SetApartmentState(ApartmentState.STA)
T_Form1.Start()
Catch ex As Exception
XtraMessageBox.Show(ex.Message, "خطأ غير متوقع", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End Try
End Sub
Private Sub OpenForm1()
Form1.ShowDialog()
End Sub
End Class
المشكلة أخي عبدو ليست بالديف .. أنا وضحت لك الكود كاملا .. أما ظهور السكاين أم عدم ظهورة ليست هي المشكلة .. المشكلة مثلما أوضحت هي توقف الشريط المتحرك بمجرد الضغط على فتح أي فورم آخر لغاية ظهورة الفورم .. فيرجع الشريط يتحرك عادي
بدأت أفكّر فعلا بإلغاء فكرة الشريط المتحرّك تماما .. منذ أكثر من 10 أيّام و أنا أجرّب .. بكل كود .. كل نقطة .. كل فاصلة .. هنا .. بالمواقع العربية و الاجنبية .. لكن بدون فائدة
شوف أخي أبو روضة
أنا الآن قمت بالضغط على زر الأمر المشار إليه بالسهم الاحمر و لم أفعل شيئا آخر
و مع ذلك توقّف كل شيء و لم تظهر إطلاقا الفورم المعنية و ظهرت رسالة الخطأ التالية
ملاحظة : إذا حذفت أمور الثريد هذه .. و فقط بزر الامر كتبت
السلام عليكم ورحمة الله و بركاته الاخ عبد العزيز البسكري المحترم, هل الغاية من استخدام Web Browser فقط لعرض شريط متحرك. و هل جربت ان تعملها في Task منفصل لترى النتيجة.
PHP كود :
Dim T = Task.Factory.StartNew(Sub() Form1.ShowDialog())
الاخ الغالي ابو جاسم (الشاكي لله) حمداً لله على سلامتك , اطلت الغيبة , عوداً محموداً ان شاء الله.
