テキスト広告:プレミアムプランが最初の3か月月額99円!【2025年7月31日まで】

AdMax右サイドバー広告

火曜日, 4月 04, 2006

VB6.0からVB.NETに変換

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 件のコメント: