Declare Function WinHelp Lib "user32.dll" Alias "WinHelpA"(ByVal hWndMain As Integer, ByVal lpszHelp As String, ByVal uCommand As Integer, ByRef dwData As Any) As Integer
Any型でエラーとなる。Long型に変換。
Private Const strMoji As String * 13 = "1234567890123"
->Private Const strMoji As String = "1234567890123"
Formsがエラーになる。
Visual Basic .NET で Forms コレクションを作成する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;JP308537
Public Class FormsCollection
Inherits CollectionBase
Public Shadows Function Add(ByVal FormObject As Form) As Form
MyBase.List.Add(FormObject)
Return FormObject
End Function
Public Shadows Sub Remove(ByVal FormObject as Form)
MyBase.List.Remove(FormObject)
End Sub
End Class
Module StartHere
Public Forms As FormsCollection
Sub Main()
Forms = New FormsCollection()
Application.Run(New Form1())
End Sub
End Module
0 件のコメント:
コメントを投稿