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تحياتي
قناتنا على اليوتوب
