The place for the VB community to join our collective voice! See https://github.com/CommunityVB/Main for more info.
Winforms: https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.dialogresult?view=netframework-4.8 Of course that matters if I am writing winforms or not.
WPF: https://docs.microsoft.com/en-us/dotnet/api/system.windows.messageboxresult?view=netframework-4.8
I use the one needed in the ui framework I am using.
They made it so that all you have to remember MessageBox.Show in either ui framework.
I am working in dailies to get the application model working. If anyone has been working on that, or is interested, let me know.
My status, it requires some extra stuff in the project file, but when we got that straight, we found a bug on something missing in the runtime. That is in PR and should be in daily builds next week.
No test matches the given testcase filter `FullyQualifiedName=XUnitTestProject1.XUnitTestProject1.UnitTest1.AdditionTest|FullyQualifiedName=XUnitTestProject1.XUnitTestProject1.UnitTest1.EqualsTest|FullyQualifiedName=XUnitTestProject1.XUnitTestProject1.UnitTest1.MultiplicationTest|FullyQualifiedName...` in C:\Users\PaulM\Source\Repos\VBUncheckedMath\XUnitTestProject1\bin\Debug\netcoreapp3.1\XUnitTestProject1.dll
I just wrote a TechNet article on dynamic ordering/sorting Entity Framework data, perhaps this might be helpful for new to vb.net and want to work with Entity Framework may find helpful
@DuckheadUK_twitter the disk performance and startup is where I got the biggest boost (but I never worked around any issues) when I moved to Core 3.1. I pulled My out of Winforms GitHub repo and just wrapped it with
#If Not netcoreapp5_0 Then
I am still waiting for road map so I will have some idea when it "is ready".
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.
#If Not netcoreapp5_0 Then
Imports System.Collections.ObjectModel
Imports System.Reflection
Imports CSharpToVBApp.Microsoft.VisualBasic.CompilerServices
Namespace Microsoft.VisualBasic.ApplicationServices
''' <summary>
''' A class that contains the information about an Application. This information can be
''' specified using the assembly attributes (contained in AssemblyInfo.vb file in case of
''' a VB project in Visual Studio .NET).
''' </summary>
''' <remarks>This class is based on the FileVersionInfo class of the framework, but
''' reduced to a number of relevant properties.</remarks>
Public Class AssemblyInfo
''' <summary>
''' Creates an AssemblyInfo from an assembly
''' </summary>
''' <param name="CurrentAssembly">The assembly for which we want to obtain the information.</param>
Public Sub New(ByVal currentAssembly As Assembly)
If currentAssembly Is Nothing Then
Throw ExceptionUtils.GetArgumentNullException("CurrentAssembly")
End If
_assembly = currentAssembly
End Sub
''' <summary>
''' Gets the description associated with the assembly.
''' </summary>
''' <value>A String containing the AssemblyDescriptionAttribute associated with the assembly.</value>
''' <exception cref="InvalidOperationException">if the AssemblyDescriptionAttribute is not defined.</exception>
Public ReadOnly Property Description() As String
Get
If _description Is Nothing Then
Dim Attribute As AssemblyDescriptionAttribute =
CType(GetAttribute(GetType(AssemblyDescriptionAttribute)), AssemblyDescriptionAttribute)
_description = If(Attribute Is Nothing, "", Attribute.Description)
End If
Return _description
End Get
End Property
''' <summary>
''' Gets the company name associated with the assembly.
''' </summary>
''' <value>A String containing the AssemblyCompanyAttribute associated with the assembly.</value>
''' <exception cref="InvalidOperationException">if the AssemblyCompanyAttribute is not defined.</exception>
Public ReadOnly Property CompanyName() As String
Get
If _companyName Is Nothing Then
Dim Attribute As AssemblyCompanyAttribute =
CType(GetAttribute(GetType(AssemblyCompanyAttribute)), AssemblyCompanyAttribute)
_companyName = If(Attribute Is Nothing, "", Attribute.Company)
End If
Return _companyName
End Get
End Property
''' <summary>
''' Gets the title associated with the assembly.
''' </summary>
''' <value>A String containing the AssemblyTitleAttribute associated with the assembly.</value>
''' <exception cref="InvalidOperationException">if the AssemblyTitleAttribute is not defined.</exception>
Public ReadOnly Property Title() As String
Get
If _title Is Nothing Then
Dim Attribute As AssemblyTitleAttribute =
CType(GetAttribute(GetType(AssemblyTitleAttribute)), AssemblyTitleAttribute)
_title = If(Attribute Is Nothing, "", Attribute.Title)
End If
Return _title
End Get
End Property