0

以下のような「カスタム」フォームを作成しました。私が言ったら:

Dim nSplash As New frmSplash(nBitmap)

「 PublicSubNewの議論が多すぎる」と言っています。

なぜそれをあざけるのかわかりません。

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace AlphaWindow

Public Class frmSplash

    Inherits Form

    Public Sub New(ByRef uBitmap As Bitmap)

        Me.Size = uBitmap.Size
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        APIHelp.ShowTopmost(Me)

        Me.SelectBitmap(uBitmap)

    End Sub

 (...)

' Class to assist with Win32 API calls
Class APIHelp

    Private Const SW_SHOWNOACTIVATE As Integer = 4
    Private Const HWND_TOPMOST As Integer = -1

 (...)

End Class
End Namespace
4

1 に答える 1

3

問題は名前空間ではありませんが、名前空間が含まれている場合、フォームは「フォーム」だけでなく「Namespace.Form」によって呼び出される必要があります。

于 2012-11-27T07:29:57.013 に答える