 |
| File encryption center - DragList.vb |
DragList.vb
- Public Class DragList
- Dim MyName As String = My.Application.Info.AssemblyName
- Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
- Dim GetLinkPath As String = MyDir & "\Free GetLink.exe"
- Dim SmallImageLV As New ImageList()
- Dim LargImageLV As New ImageList()
- Dim Clossing As Boolean = False
- Public Sub CopyNJWMGetLink()
- If My.Computer.FileSystem.FileExists(GetLinkPath) = True Then
- System.IO.File.SetAttributes(GetLinkPath, IO.FileAttributes.Normal)
- System.IO.File.Delete(GetLinkPath)
- End If
- My.Computer.FileSystem.WriteAllBytes(GetLinkPath, My.Resources.NJWM_GetLink, False)
- End Sub
- Public Sub LoadItems()
- LoadingItems:
- 'On Error Resume Next
- LV.Items.Clear()
- ' Set Images to Items :
- SmallImageLV.Images.Add(My.Resources.KeyPIC)
- SmallImageLV.Images.Add(My.Resources.KeyPIC)
- LargImageLV.Images.Add(My.Resources.KeyPIC)
- LargImageLV.Images.Add(My.Resources.KeyPIC)
- ' Set Images size :
- LargImageLV.ImageSize = New Size(32, 32)
- SmallImageLV.ImageSize = New Size(32, 32)
- ' Set Images to Items :
- LV.LargeImageList = LargImageLV
- LV.SmallImageList = SmallImageLV
- ' Set Images size :
- LV.LargeImageList.ImageSize = New Size(32, 32)
- LV.SmallImageList.ImageSize = New Size(32, 32)
- Dim Addad As Integer = 0
- For Addad = 0 To ListDragTarget.Items.Count - 1
- Dim FileFullName As String = ""
Hello, 