DragDrop/Form_frmFiles.doccls at master · hattski/DragDrop · 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
Option Compare Database
Option Explicit

Private m_AllFiles As String

Private Sub Form_Load()

DragDropInitForm Me.hWnd

End Sub

Private Sub Form_Open(Cancel As Integer)

' just a better comment
Me.txtDropbox = "Files hier reinziehen ..."

End Sub

Private Sub Form_Timer()

' another comment
SaveDropbox Me.txtDropbox
Me.txtDropbox = "Files hier reinziehen ..."
Me.TimerInterval = 0
m_AllFiles = ""

End Sub

Public Sub SaveDropbox(pstrFilelist As String)

Me.txtFilelist = pstrFilelist

End Sub

Public Sub DragDropFiles(FileList As String)

  If m_AllFiles = "" Then
    m_AllFiles = FileList
  Else
    m_AllFiles = m_AllFiles & ";" & FileList
  End If

  m_AllFiles = DragDropRemoveDuplicates(m_AllFiles)

  Me.txtDropbox = DragDropFormatAs(ReturnLineFormattedString, m_AllFiles)
  Me.TimerInterval = 500

End Sub

Private Sub txtDropbox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

DragDropSetHook True, Me.hWnd

End Sub