السّلام عليكم و رحمة الله و بركاته
أخي الكريم عبدو .. صدقني ليس لدي أي إجراءات أخرى غير التي بالملف بالمشروع الذي وضعته
حتى كود أستاذنا الكريم الشاكي لله بارك الله فيه و له
[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
تحياتي
والله ما عندي فكرة بالديف
المشكلة أخي عبدو ليست بالديف .. أنا وضحت لك الكود كاملا .. أما ظهور السكاين أم عدم ظهورة ليست هي المشكلة .. المشكلة مثلما أوضحت هي توقف الشريط المتحرك بمجرد الضغط على فتح أي فورم آخر لغاية ظهورة الفورم .. فيرجع الشريط يتحرك عادي
تحياتي
قد ينفعك هذا الحل أخى عبد العزيز فلقد نفعنى كثيراً فى أمر التهنيج...
كود :
Imports System.Threading.Thread
Public Class Form1
Dim thread1 As System.Threading.Thread
وممكن تضيف ثريد أخر
Dim thread2 As System.Threading.Thread
Public Sub darkness1()
ضع الأمر هنا الذى تريد تنفيذه
End Sub
وهذا فى الزر
thread1 = New System.Threading.Thread(AddressOf darkness1)
thread1.Start()
وده فى الفورم لود
CheckForIllegalCrossThreadCalls = False
تم التعديل وهذا بفضل الاخوه بارك الله فيهم
ان شاء الله ينفع
السّلام عليكم و رحمة الله و بركاته
أهلا أخي الغالي أبو روضة
صدقني أخي الكريم ..
بدأت أفكّر فعلا بإلغاء فكرة الشريط المتحرّك تماما .. منذ أكثر من 10 أيّام و أنا أجرّب .. بكل كود .. كل نقطة .. كل فاصلة .. هنا .. بالمواقع العربية و الاجنبية .. لكن بدون فائدة
شوف أخي أبو روضة
أنا الآن قمت بالضغط على زر الأمر المشار إليه بالسهم الاحمر و لم أفعل شيئا آخر
و مع ذلك توقّف كل شيء و لم تظهر إطلاقا الفورم المعنية و ظهرت رسالة الخطأ التالية
ملاحظة : إذا حذفت أمور الثريد هذه .. و فقط بزر الامر كتبت
Frm_RichControl.ShowDialog()
كل شيء يسير جد عادي .. لكن مع توقف الشريط المتحرك
تحياتي
السلام عليكم و رحمة الله و بركاته
للأسف أساتذتي الأكارم
الشاكي لله
أبو ليلى
ما ضبطت الحكاية
واعذروني علن التأخر بالرد لأنه يجب قبل الأجابة أن أجرب الفكرة بكم طريقة ثم أكتب
تحياتي و احتراماتي للجميع
