Visual Basic

Re: LINQ: How To Make Order By Conditional?

31-May-18 1:15

You could always create your own extension method. Smile | :)

VB.NET

Module SortingExtensions
    <Extension()> 
    Public Function OrderBy(Of TElement, TKey)(
        ByVal source As IEnumerable(Of TElement), 
        ByVal selector As Func(Of TElement, TKey), 
        ByVal sortDescending As Boolean) _
        As IOrderedEnumerable(Of TElement)
        
        Return If(sortDescending, source.OrderByDescending(selector), source.OrderBy(selector))
    End Function
    
    <Extension()> 
    Public Function ThenBy(Of TElement, TKey)(
        ByVal source As IOrderedEnumerable(Of TElement), 
        ByVal selector As Func(Of TElement, TKey), 
        ByVal sortDescending As Boolean) _
        As IOrderedEnumerable(Of TElement)
        
        Return If(sortDescending, source.ThenByDescending(selector), source.ThenBy(selector))
    End Function
End Module

...

Dim fileItem = itemList.Where(Function (files) files.Tag(0) = "file").OrderBy(Function (files) files.SubItems.Item(indx).Text, shouldSortDescending)

There's no option to extend the query syntax though.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Alan Burkhart31-May-18 7:18

Alan Burkhart

31-May-18 7:18

Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.

Re: LINQ: How To Make Order By Conditional?

Alan Burkhart31-May-18 7:33

Alan Burkhart

31-May-18 7:33

Thanks Richard. I ended up writing something similar to the "Simple" version. I've been shamelessly flip-flopping around on this thing for a month - good thing it's just for me and not a customer Big Grin | :-D

Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.

WebBrowser Javascript Error handing via HtmlWindow works in IE8 mode but not in IE10 or Edge.

Jeffrey Cobb26-May-18 15:55

Jeffrey Cobb

26-May-18 15:55

I have an HTML file that I'm loading into a WebBrowser control via .Navigate(myfileURI) which works fine.
In my application I'm trapping Javascript errors in order to handle them myself via the code on this web page:
https://msdn.microsoft.com/en-us/library/system.windows.forms.htmlwindow.error%28v=vs.110%29.aspx?f=255&MSPPError=-2147217396

This seems to work fine until I tweak the compatibility mode in the html file. For example, using the meta tag:
<meta http-equiv="X-UA-Compatible" content="IE=8">

or even no such tag at all works fine. However when I use the meta tag:
<meta http-equiv="X-UA-Compatible" content="IE=10">
or
<meta http-equiv="X-UA-Compatible" content="IE=edge">

the code to trap Javascript errors no longer works.

I'd really like to know why?

I'd prefer to use IE10 or edge for access to better Javascript functionality.

Here's the code I used in a simple Visual Basic Form and WebBrowser control as well as a simple "test.html" file below it:
(Note: the "a.args" line in the html file is suppose to deliberately throw an error)

Thanks in advance,
Jeff

Form1.vb

Imports System.Runtime.InteropServices

Public Class Form1

    <ComVisible(True)>
    Public Class JSRequester

        Public this As Form1

        Public Sub log(s As String)
            Debug.Print(s)
        End Sub

        Public Sub send(MFSYS As String)
            Debug.Print("[" + this.Name + "]  INPUT   <" + MFSYS + ">")
            this.WebBrowser1.Document.InvokeScript("eval", New Object() {"alert('Hello Script!');"})
        End Sub

        Public Sub New(frmSender As Form1)
            this = frmSender
        End Sub
    End Class

    <ComVisible(False)>
    Public bMouseDown As Boolean = False
    Public bFormActivated As Boolean = False
    Public WithEvents ScriptWindow As HtmlWindow

    Private Sub nav(uriFile As Uri)
        Debug.Print("STARTED")
        WebBrowser1.Navigate(uriFile)
    End Sub

    Private Sub SuppressScriptErrors()
        If (WebBrowser1.Document IsNot Nothing) Then
            ScriptWindow = WebBrowser1.Document.Window
        End If
    End Sub

    Private Sub ScriptWindow_Error(ByVal sender As Object, ByVal e As HtmlElementErrorEventArgs) Handles ScriptWindow.Error
        MessageBox.Show("Suppressed error!")
        e.Handled = True
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '*** Change this to your path ***
        Dim strAppPath As String = "D:\dev\vbnet\SuppressJavascriptErrors"
        Dim uriFile As New Uri("file:///" + strAppPath + "\test.html")
        Me.WebBrowser1.ObjectForScripting = New JSRequester(Me)
        nav(uriFile)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Debug.Print("COMPLETED")
    End Sub

    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Debug.Print("NAVIGATED")
        SuppressScriptErrors()

    End Sub
End Class

test.html

<!DOCTYPE html>
<html>
<head profile="http://gmpg.org/xfn/11">
	<meta http-equiv="X-UA-Compatible" content="IE=8"> <!-- change this to "10" or "edge" it FAILS -->
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
	<META HTTP-EQUIV="EXPIRES" CONTENT="0">
	<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
	<title>YouTube Viewer</title>
	<link rel="stylesheet" type="text/css" href="ytv.css">
</head>
	<body onload="init();">
		<script type="text/javascript">
			function testme() {
				a.args = "hello" // deliberately throw error
				return;
			}

			function init() {
				window.external.log(">>>HELLO DEBUG...");
				window.external.send(">>>HELLO SENDER...");
				testme();
				document.write("<h1>Hello World!</h1>");
			}
		</script>
	</body>
</html>

Outlook Mail Drag Drop into Textbox of a Win Form

HPS-Software24-May-18 18:41

HPS-Software

24-May-18 18:41

Task:

Two windows have been opened.
1. Outlook
2. the Windows Explorer

If you now take a mail from the Outlokk Inbox with the left mouse button, pull it over to the Windows Explorer and release it there over a folder then the mail is stored there as a file under the name e.g. Request.msg
Request is the subject of the mail.

Now the second window should be the application to be developed.
There should be a textbox above in which the mail is dropped.
So far I have the following code:

Private Sub TextBox1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox1.DragOver
    'erlaubte DropEffects festlegen
    If e.Data.GetDataPresent("FileGroupDescriptor") Or e.Data.GetDataPresent("FileDropList") Then
      e.Effect = DragDropEffects.All
    Else
      e.Effect = DragDropEffects.None
    End If
  End Sub
 
  Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles TextBox1.DragDrop
' Drop durchführen
 
    Dim ioStream1 As IO.Stream = DirectCast(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
 
    Dim Array1(CInt(ioStream1.Length)) As Byte 'Array anlegen
    ioStream1.Read(Array1, 0, Array1.Length) 'Array füllen
 
    'Build the FileName from the FileGroupDescriptor block.
    Dim sFileName As New System.Text.StringBuilder("")
    Dim i As Integer = 76 'The FileName starts at position 76 in the FileGroupDescriptor. 

     While Array1(i) <> 0
      sFileName.Append(Convert.ToChar(Array1(i)))
      i += 1
    End While

    ioStream1.Close()
 
    MessageBox.Show(sFileName.ToString) 'der Dateiname wird richtig angezeigt
 
    'Mail Inhalt auslesen
    Dim ioStream2 As IO.Stream = DirectCast(e.Data.GetData("FileDropList", True), IO.Stream)
    Dim Array2(CInt(ioStream2.Length)) As Byte 'Array anlegen
    ioStream2.Read(Array2, 0, Array2.Length) 'Array füllen
 
  End Sub

The file name is displayed correctly but ioStream2 is allways nothing

"FileDropList" is probably the wrong parameter. But which one is the right one?

Microsoft.Office.Interop or
System.Runtime.InteropServices and
Dim objOL As New Microsoft.Office.Interop.Outlook.Application
may not be used because an error message is displayed on the Exchange Server.

How can I read the content of the mail?
Thanks in advance

Re: Outlook Mail Drag Drop into Textbox of a Win Form

Richard Deeming25-May-18 2:35

Re: Outlook Mail Drag Drop into Textbox of a Win Form

25-May-18 2:35

There's a sample right here on CodeProject:
Outlook Drag and Drop in C#[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

HPS-Software26-May-18 20:51

HPS-Software

26-May-18 20:51

Thanks for the answer!
But System.Runtime.InteropServices; is used.
This causes error messages on the Exchange Server.

Re: Outlook Mail Drag Drop into Textbox of a Win Form

Eddy Vluggen26-May-18 23:05

Re: Outlook Mail Drag Drop into Textbox of a Win Form

26-May-18 23:05

Office Interop is blocked on a server. So, why would you want to create a UI for the server? And might what you want not be easier by writing an outlook-plugin?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

HPS-Software27-May-18 18:14

HPS-Software

27-May-18 18:14

I'll suggest it to my investigator. Thank you for all your answers!

Save in datagriedview in application

Member 1361197220-May-18 8:13

Member 13611972

20-May-18 8:13

Hello everyone,

I created a code to save all information in datagriedview1 when I close my application but it doesn't work. Could you help me to find my error?

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1
    <Serializable()> _
   Public Class TNode
        Public text As DataGridView
    End Class


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DataGridView1 As DataView
        Dim Col As Integer
        Dim ran As Integer
        Dim contacttable As New List(Of String)
        Dim f As IO.FileStream = File.Create("enregistreContact.bin")
        Dim text As New BinaryFormatter
        Try
            For Ran = 0 To DataGridView1.Count - 1
                For Col = 0 To 2
                    text = DataGridView1.Item(Col, Ran).Value
                Next
            Next

            text.Serialize(f, contacttable)


        Catch File As Exception
            MsgBox("You must write a text!")
        End Try

        f.Close()
    End Sub
End Class

Dave Kreskowiak20-May-18 11:40

Dave Kreskowiak

20-May-18 11:40

You should be storing all of your data in a suitable data stricture, NOT directly in the DGV. Once you have the data in a data structure, you set the DataSource of the DGV to the data structure. It also makes it MUCH easier to save the data structure to a file than the DGV.

You data structure can be a List<t>, a DataSet, a DataTable, some custom collection, ... whatever. Just don't use the DGV to "store" data. Controls are there to show a visual representation of data and edit that data, not to store it.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Member 1361197221-May-18 1:26

Member 13611972

21-May-18 1:26

Thank for your answer.

Have Nice day.

Richard Deeming21-May-18 2:11

21-May-18 2:11

Member 13611972 wrote:

Dim text As New BinaryFormatter
...
text = DataGridView1.Item(Col, Ran).Value

Unless the Value of every cell is a BinaryFormatter object, that code will throw an InvalidCastException.

Compile your code with Option Explicit, Option Strict and Option Infer all turned on. That way, you'll be more likely to catch simple mistakes like this.

Option Explicit Statement (Visual Basic) | Microsoft Docs[^]
Option Strict Statement | Microsoft Docs[^]
Option Infer Statement | Microsoft Docs[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

What am I missing with Clone()?

Member 1361197222-May-18 6:00

Member 13611972

22-May-18 6:00

Thank you for your answer.I'm going to try.I'm continous to search a good code.

Have good day. Blush | :O

mo149218-May-18 13:48

mo1492

18-May-18 13:48

Here is a sample of the Issue:

Class A
Implements ICloneable

Public _ar(2) As Byte

Public Function Clone() As Object Implements System.ICloneable.Clone
Return Me.MemberwiseClone()
End Function
End Class

Private Sub ToolStripButtonTest1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonTest1.Click

Dim _A As New A
Dim _B As A

_A._ar(0) = 1
_A._ar(1) = 2

' I thought this would create a new instance copy of _A.
_B = _A.Clone()

' However, these changes are reflected in _B.
_A._ar(0) = 2
_A._ar(1) = 1

end sub

What am I missing? How do I create a copy of _A?
Thanks

Eddy Vluggen18-May-18 14:03

18-May-18 14:03

speedbump99 wrote:
What am I missing?

It's not a class, but an array of byte-values.

How to copy the contents of your array of values to another array? Array.Copy Method (System)[^].

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

mo149218-May-18 14:10

mo1492

18-May-18 14:10

Thanks a lot, I get it now.

Eddy Vluggen18-May-18 14:13

18-May-18 14:13

You're welcome; and I recognize the confusion/frustration Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

Richard Deeming21-May-18 2:06

How can obtaing the filename of spool job?

21-May-18 2:06

Object.MemberwiseClone Method (System) | Microsoft Docs[^]:
Creates a shallow copy of the current Object.

You're creating a new instance of your class, but sharing the same byte array reference. Changes to the array on one instance will update the array on the other instance.

Shallow Copy vs. Deep Copy in .NET[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

bGuidi7-May-18 4:59

bGuidi

7-May-18 4:59

Hi:

   I work on a program that must capture the printout of a DOS application, filter its contents and send them to another printer.
   
   Monitoring the print queue, I can detect the print job, but I need to take the name of the .spl file that contains the data to print or some way to take its content.
   I use the PrintSystemJobInfo object but:
The JobStream property has a NULL value
    Neither the JobName property nor the Name property point to the name of the file that contains the data.

(I have read the code of the PrinterQueueWatch project published in the articles, but it is too complex)
This is my first post in the forum.
I appreciate the help

modified 7-May-18 18:55pm.

External Media player sdk for vb

Asanka Akash Sovis5-May-18 22:27

Asanka Akash Sovis

5-May-18 22:27

Hay Guys,

I'm working on a subtitle editing program... I was wondering if there are other sdk's to play media files rather than the wmp.dll s. The wmp.dll doesn't support text overlaying in front of the video. Is there any other media player sdk to overlay text in front of the video playback? Big Grin | :-D

Re: External Media player sdk for vb

Eddy Vluggen6-May-18 23:55

Re: External Media player sdk for vb

6-May-18 23:55

Have you tried Fun with Video[^]?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

Asanka Akash Sovis7-May-18 19:58

Asanka Akash Sovis

7-May-18 19:58

Thank You I'll try it! But usually the video is rendered by the gpu in front of the window right? So if a window is kept in front of this gpu overlay will it be visible? The gpu always overlay it in front of everything right? Confused | :confused:

Re: External Media player sdk for vb

Eddy Vluggen7-May-18 22:39