منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برنامج استخدام السكاين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : برنامج استخدام السكاين (/showthread.php?tid=32810)

برنامج استخدام السكاين - أمجد وضاح - 05-01-20

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

RE: برنامج استخدام السكاين - asemshahen5 - 03-02-20

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

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 

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