22-12-19, 11:46 AM
السلام عليكم و رحمة الله و بركاته ، تحية طيبة لكل أعضاء المنتدى و بعد :
هل من الممكن تحقيق الشرط التالي : عندما يكون : CheckBox1.Checked = True و CheckBox2.Checked = False فإن المظهر يكون كالتالي :
و عندما يكون الشرط : CheckBox2.Checked = True و CheckBox1.Checked = False فإن المظهر يكون على الشكل :
هل من الممكن تحقيق الشرط التالي : عندما يكون : CheckBox1.Checked = True و CheckBox2.Checked = False فإن المظهر يكون كالتالي :
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
= Dim skn As New Sunisoft.IrisSkin.SkinEngine
skn.SkinFile = "skin/DiamondBlue.ssk"
skn.AddForm(Me)
CheckBox2.Checked = False
End If
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
= Dim skn As New Sunisoft.IrisSkin.SkinEngine
skn.SkinFile = "skin/DiamondPurple.ssk"
skn.AddForm(Me)
CheckBox1.Checked = False
End If
End Sub
------------------------
منكم أتعلم
------------------------