CommandLine/Mainfrm.frm at master · Bangbiu/CommandLine · GitHub

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
VERSION 5.00
Begin VB.Form Mainfrm
   Caption         =   "Command"
   ClientHeight    =   4785
   ClientLeft      =   6000
   ClientTop       =   2010
   ClientWidth     =   7455
   Icon            =   "Mainfrm.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4785
   ScaleWidth      =   7455
   Begin VB.FileListBox CurPathCom
      Height          =   2250
      Left            =   7440
      TabIndex        =   1
      Top             =   0
      Width           =   3375
   End
   Begin VB.TextBox Console
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   4695
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "Mainfrm.frx":014A
      Top             =   0
      Width           =   7455
   End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Console_Change()
        Dim Pref As Long
        Pref = Len(History) + Len(CurPath)
        If Pref < Len(Console.Text) Then
            CurInput = Right(Console.Text, Len(Console.Text) - Pref)
        Else
            CurInput = Empty
        End If
End Sub

Private Sub Console_KeyDown(KeyCode As Integer, Shift As Integer)
        If Console.SelStart < Len(History) + Len(CurPath) Then
            ResetSel
        End If
        If KeyCode = vbKeyBack Then
        Reset
        ElseIf KeyCode = vbKeyReturn Then
            History = Console.Text & CmdDealer.Deal()
            Console.Text = History & CurPath
            Console.SelStart = Len(History)
            History = History & vbCrLf
        Else
        End If
End Sub


Private Sub Reset(Optional Force As Boolean = False)
        If CurInput = Empty Or Force Then
            Console.Text = History & CurPath
            Console.SelStart = Len(Console.Text)
        End If
End Sub

Private Sub ResetSel()
    Console.SelStart = Len(Console.Text)
End Sub

Private Sub Console_KeyUp(KeyCode As Integer, Shift As Integer)
    If Console.SelStart < Len(History) & Len(CurPath) Then
        ResetSel
    End If
    If KeyCode = vbKeyBack Then
        Reset
    ElseIf KeyCode = vbKeyReturn Then
        Console.SelStart = Len(Console.Text)
        Reset True
    End If
End Sub

Private Sub Form_Load()
    'Helper.Show
    History = CmdDealer.GetVersionDescription() & vbCrLf
    Reset True

End Sub

Private Sub Form_Resize()
    Console.Move 0, 0, ScaleWidth, ScaleHeight
    CurPathCom.Move ScaleWidth
End Sub