tampilan awal program


menu untuk merubah tampilan skin

Imports DevExpress.Skins

Imports System.IO



Public Class Changeskinmenu

#Region "Sub"

 Sub loads1()

 Text1.Text = Skins

 End Sub

 Sub loads2()

 Dim cnt As DevExpress.Skins.SkinContainer



 For Each cnt In SkinManager.Default.Skins

 ComboBoxEdit1.Properties.Items.Add(cnt.SkinName)

 Next

 End Sub

 Sub change()

 Try

 Dim a As String

 Dim i As Integer

 Dim File1, File11 As String

 File1 = ComboBoxEdit1.SelectedItem



 File11 = ("" + AppPath + "\Files\Skins.txt")

 Dim FileHolder1 As FileInfo = New FileInfo(File11)

 Dim initialpath As String

 a = File1

 Dim WriteFile As StreamWriter = FileHolder1.CreateText()

 WriteFile.Write(a)

 WriteFile.Close()

 Text1.Text = ComboBoxEdit1.EditValue.ToString()

 MsgBox("Setting Skin Sudah Dirubah!")

 Catch ex As Exception

 MsgBox("Error!" & vbCrLf & Err.Description)

 End Try

 End Sub

#End Region

 Private Sub Changeskinmenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 loads2()

 loads1()

 End Sub



 Private Sub ComboBoxEdit1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged

 DevExpress.LookAndFeel.UserLookAndFeel.Default.SetSkinStyle(ComboBoxEdit1.EditValue.ToString())

 End Sub



 Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click

 GroupBox1.Enabled = True

 End Sub



 Private Sub SimpleButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton2.Click

 If GroupBox1.Enabled = True Then

 change()

 End If

 End Sub

End Class