blob: b0b4afbe792d9db626f164af87e262b508a8f128 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
Public Class DuWM_Shifter
Private PrevHeight As Integer = Height
Private PrevWidth As Integer = Width
Private FeatureGap As Integer = 450 - 400
Private ChildFeature As String
Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
Close()
End Sub
Private Sub DuWM_Shifter_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
Dim WidthRatio As Double = (Width / PrevWidth)
Dim HeightRatio As Double = (Height / PrevHeight)
lst_Features.Height = Height - FeatureGap
PrevHeight = Height
PrevWidth = Width
End Sub
Private Sub lst_Features_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_Features.SelectedIndexChanged
If lst_Features.SelectedItem = ChildFeature Then
Else
Select Case lst_Features.SelectedItem
Case "Desktop"
Dim Shifter_Desktop As New DuWM_Shifter_Desktop
Shifter_Desktop.Size = pnl_Content.Size
ChildFeature = "Desktop"
pnl_Content.Controls.Clear()
pnl_Content.Controls.Add(Shifter_Desktop)
Case "About"
ChildFeature = "About"
Dim Shifter_About As New DuWM_Shifter_About
Shifter_About.Size = pnl_Content.Size
pnl_Content.Controls.Clear()
pnl_Content.Controls.Add(Shifter_About)
End Select
End If
End Sub
End Class
|
