منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

برنامج يقوم بإظهار السكاين وعرض الأدوات لك لترى إيهم أحسن لك ويقوم بعرض الأكواد الخاصة للسكاين طبعاً لم استطع أن أضع هذه العلامات "" لذلك عملت بدلها *
وشكر خاص لعاصم شاهين عندما سألته كيف أضيف سطر والكتابة فيه أيضاً اتمنى أن يكون مرجع للمبرمجين

عدل كود تحميل الفورم ليتم تحميل المينيو على الفاست تكست :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBoxSkinFiles(ComboBox1)
        FastColoredTextBox1.ContextMenuStrip = ContextMenuStrip1
    End Sub 

عدل السطر التالي :

PHP كود :

FastColoredTextBox1.Text = "Imports Sunisoft.IrisSkin" & vbNewLine & vbNewLine & "'" & Label4.Text & vbNewLine & "Dim skn As New Sunisoft.IrisSkin.SkinEngine" & vbNewLine & "skn.SerialNumber = *kUb2DF5pvGF3X9dKPFvIdkXQ0sE8LkAVp9fMme9wCnjZ+ArdRVlxKw==*" & vbNewLine & "skn.SkinFile = Application.StartupPath & " & "*" & ComboBox1.Text & ".ssk" & "*" 

ليصبح :

PHP كود :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FastColoredTextBox1.Text = "Imports Sunisoft.IrisSkin" & vbNewLine & vbNewLine & vbNewLine & "Dim skn As New Sunisoft.IrisSkin.SkinEngine" & vbNewLine & "skn.SerialNumber = ""kUb2DF5pvGF3X9dKPFvIdkXQ0sE8LkAVp9fMme9wCnjZ+ArdRVlxKw==""" & vbNewLine & "skn.SkinFile = Application.StartupPath & " & """" & ComboBox1.Text & ".ssk" & """"
        FastColoredTextBox1.Text &= vbNewLine & "SkinChange(Me, ComboBox1.Text)"
        FastColoredTextBox1.Text &= vbNewLine & vbNewLine & "Public Sub SkinChange(ByVal frm As Form, Optional ByVal skinFile As String = ""DeepCyan"")" _
        & vbNewLine & "Skin.SkinFile = SkinsPath & skinFile & "".ssk""" _
        & vbNewLine & "Skin.AddForm(frm)" _
        & vbNewLine & "End Sub"
    End Sub 

كل اشارتين من "" تعتبر اشارة واحدة " و لك مني كل الاحترام و التقدير .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أمجد وضاح

asemshahen5