Мое решение VB.NET не содержит функцию Main

Question

MSDN :

Каждое приложение Visual Basic должно содержать процедуру с именем Main.

Я ... Не нашел такого метода в моем решении ...

начинается с

Private Sub MyApplication_Startup( _
   ByVal sender As Object, _ 
   ByVal e As StartupEventArgs) _ 
       Handles Me.Startup

Моя проблема на самом деле я пытаюсь следовать рекомендации, которая гласит:

Clipboard.GetDataObject Всегда возвращает ноль? Если вы обнаружите, что вы всегда получаете ноль от GetDataObject, попробуйте добавить [STAThread] перед статической пустотой Main().

Итак, я, если я не найду Main() ... Я не могу следовать этой рекомендации в VB.NET ...

Answer 1

Сначала добавьте файл .vb в ваш проект (скажем, Program.vb).

Public Class Program
    <STAThread()>
    Shared Sub Main()
        Dim frm As New Form1
        Application.Run(frm)
    End Sub
End Class

и отключите его - включите Application Framework из [Project + Properties + Application], установите объект запуска - Program илиSub Main.