This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 1cf32d9c authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

code formatting

parent c3a52dfe
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
VECTOAux/VectoAuxiliaries/UI/FB_Dialog.vb
+ 1006
− 989
View file @ 1cf32d9c
......@@ -17,7 +17,6 @@ Imports System.Windows.Forms
''' </summary>
''' <remarks></remarks>
Public Class FB_Dialog
Private MyFolder As String
Private MyFiles() As String
Private MyDrive As String
......@@ -80,12 +79,14 @@ Public Class FB_Dialog
End Sub
'SplitterMoved
Private Sub SplitContainer1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
Private Sub SplitContainer1_SplitterMoved(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
If Initialized Then Resized()
End Sub
'Closing (Overwrite-Check etc)
Private Sub FileBrowser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Private Sub FileBrowser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _
Handles Me.FormClosing
Dim x As Int32
Dim path As String
Dim Ext As String
......@@ -181,7 +182,8 @@ Public Class FB_Dialog
End Sub
'Browse - Custom Dialog
Public Function Browse(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean, ByVal ExtMode As tFbExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, ByVal Title As String) As Boolean
Public Function Browse(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean,
ByVal ExtMode As tFbExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, ByVal Title As String) As Boolean
Dim x As Int16
If Not Initialized Then Init()
......@@ -435,18 +437,21 @@ Public Class FB_Dialog
End Sub
'ComboBoxDrive_SelectedIndexChanged
Private Sub ComboBoxDrive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxDrive.SelectedIndexChanged
Private Sub ComboBoxDrive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ComboBoxDrive.SelectedIndexChanged
If Not UpdateLock Then SetFolder(Me.ComboBoxDrive.SelectedItem.ToString)
End Sub
'ButtonFolderBack_Click
Private Sub ButtonFolderBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFolderBack.Click
Private Sub ButtonFolderBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ButtonFolderBack.Click
FolderUp()
End Sub
'TextBoxPath_KeyDown (ENTER)
Private Sub TextBoxPath_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxPath.KeyDown
Private Sub TextBoxPath_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBoxPath.KeyDown
Dim path As String
If e.KeyCode = Keys.Enter Then
path = Me.TextBoxPath.Text
......@@ -465,7 +470,8 @@ Public Class FB_Dialog
End Sub
'ListViewFolder_SelectedIndexChanged
Private Sub ListViewFolder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewFolder.SelectedIndexChanged
Private Sub ListViewFolder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ListViewFolder.SelectedIndexChanged
If bBrowseFolder Then
UpdateLock = True
If Me.ListViewFolder.SelectedItems.Count > 0 Then
......@@ -476,13 +482,15 @@ Public Class FB_Dialog
End Sub
'ListViewFolder_MouseDoubleClick
Private Sub ListViewFolder_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewFolder.MouseDoubleClick
Private Sub ListViewFolder_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles ListViewFolder.MouseDoubleClick
If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
End Sub
'ListViewFolder_KeyDown
Private Sub ListViewFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListViewFolder.KeyDown
Private Sub ListViewFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles ListViewFolder.KeyDown
If e.KeyCode = Keys.Enter Then
If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
......@@ -512,7 +520,8 @@ Public Class FB_Dialog
''End Sub
'ListViewFiles_SelectedIndexChanged
Private Sub ListViewFiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewFiles.SelectedIndexChanged
Private Sub ListViewFiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ListViewFiles.SelectedIndexChanged
UpdateLock = True
If Me.ListViewFiles.SelectedItems.Count = 0 Then
Me.TextBoxPath.Text = ""
......@@ -528,14 +537,16 @@ Public Class FB_Dialog
End Sub
'ListViewFiles_MouseDoubleClick
Private Sub ListViewFiles_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewFiles.MouseDoubleClick
Private Sub ListViewFiles_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles ListViewFiles.MouseDoubleClick
If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
'ListViewFiles_KeyDown
Private Sub ListViewFiles_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListViewFiles.KeyDown
Private Sub ListViewFiles_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles ListViewFiles.KeyDown
If e.KeyCode = Keys.Enter Then
If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
Me.DialogResult = Windows.Forms.DialogResult.OK
......@@ -544,7 +555,8 @@ Public Class FB_Dialog
End Sub
'TextBoxSearchFolder_KeyDown
Private Sub TextBoxSearchFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxSearchFolder.KeyDown
Private Sub TextBoxSearchFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBoxSearchFolder.KeyDown
Dim ItemCount As Int32
Dim SelIndex As Int32
Dim NoItem As Boolean
......@@ -584,12 +596,14 @@ Public Class FB_Dialog
End Sub
'TextBoxSearchFolder_TextChanged
Private Sub TextBoxSearchFolder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSearchFolder.TextChanged
Private Sub TextBoxSearchFolder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBoxSearchFolder.TextChanged
If Not UpdateLock Then LoadListFolder()
End Sub
'TextBoxSearchFile_KeyDown
Private Sub TextBoxSearchFile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxSearchFile.KeyDown
Private Sub TextBoxSearchFile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBoxSearchFile.KeyDown
Dim ItemCount As Int32
Dim SelIndex As Int32
Dim NoItem As Boolean
......@@ -628,17 +642,20 @@ Public Class FB_Dialog
End Sub
'TextBoxSearchFile_TextChanged
Private Sub TextBoxSearchFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSearchFile.TextChanged
Private Sub TextBoxSearchFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBoxSearchFile.TextChanged
If Not UpdateLock Then LoadListFiles()
End Sub
'ComboBoxExt_TextChanged
Private Sub ComboBoxExt_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxExt.TextChanged
Private Sub ComboBoxExt_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles ComboBoxExt.TextChanged
If Not UpdateLock Then LoadListFiles()
End Sub
'ButtonHisFolder_Click
Private Sub ButtonHisFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHisFolder.Click
Private Sub ButtonHisFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ButtonHisFolder.Click
Me.ContextMenuHisFolder.Show(Control.MousePosition)
End Sub
......@@ -658,7 +675,8 @@ Public Class FB_Dialog
End Sub
'ContextMenuHisFile_ItemClicked
Private Sub ContextMenuHisFile_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFile.ItemClicked
Private Sub ContextMenuHisFile_ItemClicked(ByVal sender As Object,
ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFile.ItemClicked
Dim path As String
path = e.ClickedItem.Text.ToString
......@@ -668,11 +686,11 @@ Public Class FB_Dialog
SetFolder(fPATH(path))
Me.TextBoxPath.Text = IO.Path.GetFileName(path)
End Sub
'ContextMenuHisFolder_ItemClicked
Private Sub ContextMenuHisFolder_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFolder.ItemClicked
Private Sub ContextMenuHisFolder_ItemClicked(ByVal sender As Object,
ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFolder.ItemClicked
Dim path As String
Dim favdlog As FB_FavDlog
Dim x As Integer
......@@ -697,11 +715,11 @@ Public Class FB_Dialog
Else
SetFolder(path)
End If
End Sub
'TextBoxCurrent_MouseClick
Private Sub TextBoxCurrent_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBoxCurrent.MouseClick
Private Sub TextBoxCurrent_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles TextBoxCurrent.MouseClick
Dim x As Int32
Dim x1 As Int32
Dim path As String
......@@ -743,6 +761,7 @@ Public Class FB_Dialog
Next
Me.ContextMenuHisFile.Items(0).Text = path
End Sub
Private Sub UpdateHisFolder(ByVal path As String)
Dim x As Int16
Dim y As Int16
......@@ -757,7 +776,6 @@ Public Class FB_Dialog
Next
Me.ContextMenuHisFolder.Items(0).Text = path
End Sub
'Manuelles History-Update
......@@ -809,7 +827,6 @@ Public Class FB_Dialog
'Me.TextBoxPath.SelectionStart = Me.TextBoxPath.Text.Length
UpdateLock = False
End Sub
'Folder one level up
......@@ -892,11 +909,11 @@ Public Class FB_Dialog
End Try
Me.ListViewFiles.EndUpdate()
End Sub
'Rename File
Private Sub RenameFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RenameFileToolStripMenuItem.Click
Private Sub RenameFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles RenameFileToolStripMenuItem.Click
Dim file0 As String
Dim file As String
If Me.ListViewFiles.SelectedItems.Count = 1 Then
......@@ -920,13 +937,15 @@ lb1:
End Sub
'Delete File
Private Sub DeleteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteFileToolStripMenuItem.Click
Private Sub DeleteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles DeleteFileToolStripMenuItem.Click
Dim x As Int32
Dim c As Int32
c = Me.ListViewFiles.SelectedItems.Count
If c > 0 Then
If c = 1 Then
If MsgBox("Delete " & MyFolder & Me.ListViewFiles.SelectedItems(0).Text & "?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
If MsgBox("Delete " & MyFolder & Me.ListViewFiles.SelectedItems(0).Text & "?", MsgBoxStyle.YesNo) = MsgBoxResult.No _
Then Exit Sub
Else
If MsgBox("Delete " & c & " files?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
End If
......@@ -1006,6 +1025,4 @@ lb10:
NoExt = False
End Set
End Property
End Class
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about