VB6.0→VB.NETで構造体に関するエラーが発生する

前へ 次へ
このQ&Aのポイント
  • VB6.0で問題なく動作するプログラムがVB.NET(2003)でエラーになる
  • 「オブジェクト参照がオブジェクトインスタンスに設定されていません」というエラーメッセージが表示される
  • 対処法を知りたい
回答を見る
  • ベストアンサー

構造体に関するエラーについて(VB6.0→VB.NET)

私はプログラミング初心者なのですが、 モジュールAにて Type test A_test() As String End Type Global AAA As test 他の複数のモジュールにて For i = 1 To 10 AAA.Atest(i) = "123"　　　←（A) Next i VB6.0では上記のようなプログラムが問題無く動作するのですが、VB.net(2003)にてアップグレードし、実行すると他のモジュールの(A)のところにて"オブジェクト参照がオブジェクト インスタンスに設定されていません。"といったエラーが発生してしまいます。"AAA.A_test(i)"の値"Nothing"になっており、それが問題だと思うのですが対処法が分かりません。ご存知の方がおられましたら御教授宜しく御願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

ＶＢ．ＮＥＴはこれからの者ですが http://dobon.net/i/vb/dotnet/vb6/structure.html などがのっけから出てきて、ＶＢ６からの変更が大きい点のようです。 「ＶＢ．ＮＥＴ　構造体」で照会すると数百ヒットします。

参考URL：
http://dobon.net/i/vb/dotnet/vb6/structure.html
tattintin
質問者

お礼

回答有難う御座います。教えて頂きました参考URLを見てみますとlenB関数等、他にも疑問に思っていた所について記載してあり大変参考になりました。有難う御座います。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ＶＢ2008で構造体を引数とした時にエラー

    VB2008の勉強を始めて数週間の初心者です。 勉強用にいろいろとプログラムを作っているのですが、 構造体(Structure)を引数で渡して戻り値を取得する Ｆｕｎｃｔｉｏｎを作成してみました。 同一クラス内のPrivate Function の場合は問題ないのですいが、 追加した別クラスに Function を作成したところ 「 型 'TEST_A.Form1.str_IN' の値を 'TEST_A.Class1.str_IN' に変換できません。」 のエラーが表示されてしまいます。 別クラスのFunctionを使用する時、引数には構造体は指定できないのでしょうか？ なにか文法上の誤りがあるのでしょうか？ 初心者なので変な質問してたらスイマセン。 詳しい方がいらっしゃいましたらよろしくお願いします。 ------------------------------------------------------ Public Class Form1 　Public Structure str_IN 　　Public in_aaa As String 　End Structure 　Private Sub Button1_Click(ByVal sender As System.Object, 　ByVal e As System.EventArgs) ～ 　　Dim stin As New str_IN 　　'------------------------------------ 　　stin.in_aaa = "aaa" 　　Label1.Text = Test_Sub(stin) '<------- これはｏｋ 　　'------------------------------------- 　　Dim cls = New Class1 　　stin.in_aaa = "aaa" 　　Label1.Text = cls.CFnk(stin) '<----- エラーになる 　End Sub 　Private Function Test_Sub(ByVal prm_in As str_IN) As String 　　Dim stin As New str_IN 　　Dim sout As String 　　sout = "test_aaa" 　　Return sout 　End Function End Class ------------------------------------------------------------ Public Class Class1　'新たに作成したクラス 　Public Structure str_IN 　　Public in_aaa As String 　End Structure 　Public Function CFnk(ByVal prm_in As str_IN) As String 　　Dim stin As New str_IN 　　Dim sout As String 　　sout = "test_aaa" 　　Return sout 　End Function End Class

  • VB.NETでのシリアル通信

    .NET初心者です。 VB.NETでシリアル通信をしようとしています。 参照設定のところに Microsoft MSCOMM CONTROLというのがあったので 選択しました。 すると、MSLib.MSCommというのがでてきたので Vb6の Dim test As mscomm のように宣言して使えるかと思い Dim test As MSLib.MSComm test.PortOpen と書いてみたところ、 オブジェクト参照・・・インスタンス化されていません。と、エラーがでました。 ブレイクしてみたところ、test = Nothingでした。 testが無いのでインスタンス化されていないという エラーがでるのだなということは分かったのですが なぜこのエラーがでるのか、 どうしたらこのエラーを回避し、 .NETでシリアル通信ができるのか教えてください。 よろしくお願いします。

  • 構造体のコピー

    VB6ですが、構造体のコピーは正しくできるのでしょうか type a test1(0 to 5) as byte test2 as integer test3 as string end type dim b1 as a dim c1 as a b1.test = 2 c1 = b1 私はここで、c1.test2が０だった

  • VB６のTYPE文をVB.NETのStructureに変えるとき

    VB６のTYPE文をVB.NETのStructureに変えるとき 下記VB6のコードをVB.NETのStructureに変える場合 Type kouzou1 i As Integer j As Integer a As String * 20 b As String * 50 End Type を下記にしてみたのですが *20,*50のところは、どのように表現するのでしょうか。 Structure kouzou1 Dim i As Integer Dim j As Integer Dim a As String * 20　<- ステートメントの終わりを示してくださいのエラーになる。 Dim b As String * 50　<- ステートメントの終わりを示してくださいのエラーになる。 End Structure お教え下さい。

  • Vb.netのグローバル変数の宣言の仕方の質問

    こんばんわ！ VB6.0からの移行でVB.net2012に挑戦中なんですが、グローバル変数の宣言の仕方で分からないことがあり質問しに着ました！ 内容 モジュール内で public hoge as string="aaa" と宣言するのと モジュール内で public hoge as string と宣言しておいて フォーム起動時に hoge="aaa" と宣言するのにどのような違いがあるのでしょうか？ hogeの変数を変更したいのですが、上記の方法だと動いて、下記の方法だと動かないのですが・・・ まだ良く分かっていないので、程度の低い質問で申し訳ないのですが、アドバイスのほどよろしくお願いいたします。

  • VB6.0 →VB2005 のアップグレードでエラー表示

    VB6.0の標準モジュールでは Private Type typset a As String b As String c As Integer End Type Public make() As typset と記述してエラーもなく正常なのですが、VB2005にアップグレードしたときに、 Option Strict Off Option Explicit On Module Module1 Private Structure typset Dim a As String Dim b As String Dim c As Integer End Structure Public make() As typset←▼エラー▼　　　　　　　　　　　 End Module 【エラー内容】 'make' は、module 'Module1' をとおして型 'typset' を namespace 'WindowsApplication1' で公開することはできません。 structure部をPublicなどにしてもエラーは消えますが、参照先に影響が出てしまいます。 根本的な解決方法が分かりません。 教えていただけないでしょうか？

  • VB6.0からVB.NETへの移行

    VB6.0から.NETへの移行を行うこととなりましたが、C++で作成したDLL呼び出し方法がわからず悩んでいます。 C++側で作成したDLLは修正が出来ない為、.NET側のみで修正しなければならない状況です。 VB6.0側のプログラムは以下のような感じです。 Public FName() As String Declare Function A Lib "Test.dll" (ByRef field As Variant) As Long ReDim FName(4) As String FName(1) = "1" FName(2) = "22" FName(3) = "333" FName(4) = "4444" Call A(fieldName) C++側は、以下の形で受けているようです。 A(variant *field); SAFEARRAY *psa = *(field->pparray); VB.NET側で以下の様にしてみたのですが、まともに動いてくれません。 Public FName() As String Declare Function A Lib "Test.dll" (ByRef field As Object) As Integer ReDim FName(3) As String FName(0) = "1" FName(1) = "22" FName(2) = "333" FName(3) = "4444" Call A(FName) VB.NETに詳しい方であれば、すごく基本的なことなのではないかと思いますが、よろしくお願いいたします。

  • VB6で構造体(ユーザー定義型)の比較でエラーになります。

    VB6で構造体(ユーザー定義型)の比較でエラーになります。 仕様でしょうか？ type TEST_STRUC x as integer y(0 to 10) as byte end type a as TEST_STRUC b as TEST_STRUC a.x = 1 b.x = 1 if a = b then 　　　<--- ここでエラー msgbox("同じ") end if 強引でも比較できる方法があれば知りたいです。 項目ごとに比較するしかないのでしょうか if a.x = b.x then のように、長々と記述するのが間違えそうで・・・ 簡単に比較できると、楽です。

  • どんなオブジェクトでも表示できる方法はありますか？ VB2008

    VB2008で文字列の二次元配列を作成しました。 これをPHPのvar_dump()関数のようにVB.NETでどんなオブジェクトに対しても中身を見せるようにさせる方法が知りたいです。 private test_data( , ) as string = { _ { "あ", "a" }, _ { "い", "i" }, _ { "う", "u" } _ } debug.print (test_data) 'PHPのvar_dump()のようなものはありますか

  • VB.NETのデリゲートについて

    VB.NETのデリゲートについて質問です。 以下のプログラムなのですが、 デリゲート型をインスタンス化しているところで、コンストラクタにパラメータを渡していますが、 そのコンストラクタはどこに定義されているのでしょうか。 (AddressOf t1.Ohayou)というパラメータが渡されていますが、このパラメータを受け取っているコンストラクタがどれなのかが分かりません。 ご教示よろしくお願いいたします。 Delegate Sub Myprint(ByVal s As String) Module Module1 Sub Main() Dim t1 As Test1 = New Test1() Dim t2 As TEst2 = New Test2() Dim d As Myprint = New Myprint(AddressOf t1.Ohayou) d.Invoke("VB太郎") d = New Myprint(AddressOf t2.Konbanwa) d.Invoke("VB太郎") End Sub End Module Class Test1 Sub Ohayou(ByVal s As String) Console.WriteLine("おはようございます。{0}です。", s) End Sub End Class Class Test2 Sub Konbanwa(ByVal s As String) Console.WriteLine("こんばんわ。{0}です。", s) End Sub End Class

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する