ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INIT OK 20.1.4

Browse Source
This commit is contained in:
ivanszabo
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
+5 -4
View File
@@ -3,6 +3,7 @@ Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports System.Windows
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
@@ -265,8 +266,8 @@ Public Class ContactsVC
Private Sub aContactEmailToClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aContactEmailToClipboard.Execute
Dim _ClipboardText As String = ""
If Windows.Forms.Clipboard.ContainsText(System.Windows.Forms.TextDataFormat.Text) Then
_ClipboardText = Windows.Forms.Clipboard.GetText(Windows.Forms.TextDataFormat.Text)
If System.Windows.Forms.Clipboard.ContainsText(System.Windows.Forms.TextDataFormat.Text) Then
_ClipboardText = Forms.Clipboard.GetText(Forms.TextDataFormat.Text)
End If
For Each _Contacts As Contacts In View.SelectedObjects
If _ClipboardText = "" Then
@@ -275,10 +276,10 @@ Public Class ContactsVC
_ClipboardText += ";" + _Contacts.Email
End If
Next
Windows.Forms.Clipboard.SetText(_ClipboardText, Windows.Forms.TextDataFormat.UnicodeText)
Forms.Clipboard.SetText(_ClipboardText, Forms.TextDataFormat.UnicodeText)
End Sub
Private Sub aClearClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aClearClipboard.Execute
Windows.Forms.Clipboard.Clear()
Forms.Clipboard.Clear()
End Sub
End Class