ArrayListの初期値の設定方法（VB.NET）
- VB.NET2005についての質問です。ArrayList型の変数の初期値に、プロパティの戻り値を設定することは可能でしょうか。
- Public Class form1 Dim hoge As New ArrayList 'a）初期値としてClass1.P_hogeを設定したい hoge = Class1.P_hoge 'b）消したい End Class
- Public Class Class1 Private Shared _hoge As New ArrayList 'すでに値が格納されているものとする Public Shared Property P_hoge() As ArrayList Get Return _hoge End Get End Property End Class
- ベストアンサー
ArrayListの初期値の設定の仕方（VB.NET）
VB.NET2005についての質問です。 ArrayList型の変数の初期値に、プロパティの戻り値を設定することは可能でしょうか。 （つまり、下記の(a)(b)の二行を一行にまとめたい、と考えています） どうぞよろしくお願い致します。 Public Class form1 Dim hoge As New ArrayList 'a）初期値としてClass1.P_hogeを設定したい hoge = Class1.P_hoge 'b）消したい End Class Public Class Class1 Private Shared _hoge As New ArrayList 'すでに値が格納されているものとする Public Shared Property P_hoge() As ArrayList Get Return _hoge End Get End Property End Class
- tekan
- お礼率80% (46/57)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Dim hoge As ArrayList = Class1.P_hoge こういうことですか。
その他の回答 (1)
- koko_u_
- ベストアンサー率18% (459/2509)
コンストラクタに ArrayList(ICollection) ってあるけど、 Dim hoge As New ArrayList(Class1.P_hoge) ではアカンの？ VB まったく知らん。
お礼
koko_u_さん ご指摘の構文を試してみると、「アクセス可能なNewがないため、オーバーロードの解決に失敗しました」というエラーが発生しました。 回答ありがとうございました。
関連するQ&A
- ArrayListの初期値に二次元配列を設定したい(VB2005)
下記は、aryhogeにTextBoxオブジェクトを格納する処理です。 ---------------------------------------- 'a) Dim hoge()() As TextBox = _ {New TextBox() {txta01, txtb01, txtc01}, _ New TextBox() {txta02, txtb02, txtc02}, _ New TextBox() {txta03, txtb03, txtc03}} Dim aryhoge As New ArrayList 'b) aryhoge.Add(hoge(0)) aryhoge.Add(hoge(1)) aryhoge.Add(hoge(2)) ---------------------------------------- (a)を(b)の初期値として設定するにはどのようにすればよいか、ということが質問内容です。 試しに(b)の部分を以下のようにしてみましたが、「1次元配列の値を変換できない」とのエラーが出ました。 Dim aryhoge As New ArrayList(New TextBox() {hoge(0), hoge(1), hoge(2)}) どうぞよろしくお願い致します。
- ベストアンサー
- Visual Basic
- arraylistの呼び出し
A.classでB.classのarraylistを作成し Cクラスのオブジェクトを何個もarraylistに保存しているんですけど そのarraylistをｂクラスで使いたいんですけど うまくいきません 例とエラー文を載せますので、教えてください 例 public class A{ int i=0; int b=0; public static void main(String[] args){ ArrayList<B> strs=new ArrayList<B>(0); for(b=0;b<30;b++){ B b =new B(); //ここは何回も作ってます strs.add(b,i); i++; } } public ArrayList get(){ return strs; } } class C { A a; static count=0; public void syutoku(SimpleTrajectoryViewer si){ this.a=a; } public void c(){ B b=new B(); ArrayList b =a.get(); B p=b.get(count); count ++; } } エラー文はクラスの ArrayList b =a.get();の部分で 互換性のない型 期待値 B 検出値 object と出ています 解決策教えてください 全てのプログラムを書いてるわけではありませんので おそらく関係のあるだろうってところを書きましたので わかりづらかったらすみません
- 締切済み
- Java
- クラスの初期値設定について
早速ですが、教えてください(開発環境は WindowsXP,VisualBasic.NET2003 です) Public Class CCC Private Key As Integer Private Value As String End Class 上記のようなクラスを用意して Public Sub SSS() Dim III() As CCC = New CCC() {{1, "VALUE1"}, _ {2, "VALUE2"}} End Sub といった具合に初期値を設定したいのですが、 コンパイルエラー(配列初期化子の次元が多すぎます。)に なってしまいます。(ほかに思いついた記述パターンも試してみましたがだめでした) 仕方なく、CCCに下記のようなメソッドを作って Public Class CCC Private Key As Integer Private Value As String Public Sub SetValue(ByVal a As Integer, ByVal b As String) Key = a Value = b End Sub End Class このメソッドを利用し Public Sub SSS() Dim III() As CCC III(0).SetValue(1, "VALUE1") III(1).SetValue(2, "VALUE2") End Sub 上記のように初期値を設定するようにしています。 初期化子({})をつかって、C言語？風に初期値を設定することは できないのでしょうか？ 上記の例では、顕著に現れてませんが、クラスの中のクラスにも 初期値を設定しようとする場合、どのような初期値が設定されて いるかが、ソース上、整然と並ばなくなってしまい、修正しにくい 、見た目が美しくない状態になってしまいます。 何かよい方法はないのでしょうか？ご教示願います。 (参考URLだけでもかまいません、よろしくお願いします)
- ベストアンサー
- Visual Basic
- ArrayListに格納したクラス内のメンバの呼び出し方法(VB)
お世話になります。VB2003でご質問があります。 通常Arryalistでは下記例1のように使用するのが一般的だと思うのですが、例2のようにArryaListにクラスを追加し、その中のメンバを呼び出すにはどのようにコーディングすればよいのでしょうか？ コメントのコンパイルエラー箇所の部分です。 お手数ですが、ご教授よろしくお願いいたします。 ******************************************* (例1) Dim Test as new ArrayList Test.ADD("テスト") console.writeline(test(0)) ******************************************* ******************************************* (例2) Public Class A public strA as string public sub subTest() strA = "おはよう" end sub End Class Public Class B Dim a as new ArrayList a.Add(new A) a(0).subTest '--コンパイルエラー箇所 console.writeline(a(0).strA) '--コンパイルエラー箇所 End Class *******************************************
- ベストアンサー
- Visual Basic
- VBAでクラス設定
（標準モジュール） Option Explicit Sub test() Dim Class As Class1 Set Class = New Class1 Class.Obj = 1000 Set Class = Nothing Set Class = New Class1 Range("a1").Value = Class.Obj Set Class = Nothing End Sub （クラスモジュールClass1） Option Explicit Private a As Integer Public Property Get Obj() As Integer Obj = 2000 End Property Public Property Let Obj(ByVal NewNumber As Integer) a = NewNumber End Property 上のマクロではやり取り１変数になってますがこれを配列に変えたいのですがどうすればいいでしょうか？
- ベストアンサー
- Visual Basic
- EXCEL VBA でユーザー定義型データーをproperty get let を使って受け渡しをしたい
Excel2002Sp3を使用しています。 （WindowsはXpSp3です） ユーザー定義型の各メンバーに対して、property get/let/set を使用してデーターの受け渡しを行いたいのですが、うまくいきません。 以下に作成したプログラムを載せてみます。 main1()とmain2()がありますが、 main2()だとうまくいきます。 しかし、メンバー個別のやりとりにはなっていません。 main1()のようにメンバー個別でやりとりできるようにする方法がわかりません。 property get/let/setの書き方でできるようになるのでしょうか。 それとも、メンバー個別でのやり取りは仕様上できないのでしょうか。 もしできるのであれば、サンプルコードを教えていただけると助かります。 よろしくお願いします。 ------------------- Class1 ------------------- Option Explicit Private m_xx As X Public Property Get xx() As X xx = m_xx End Property Public Property Let xx(p As X) m_xx = p End Property ------------------- Module1 ------------------- Option Explicit Type X a As Long b As Long End Type Sub main1() '個別にやり取り Dim cc As New Class1 Dim p As Long Dim q As Long cc.xx.a = 5 cc.xx.b = 2 p = cc.xx.a q = cc.xx.b MsgBox p & "," & q End Sub Sub main2() 'yyを用意してまとめてやり取り Dim cc As New Class1 Dim p As Long Dim q As Long Dim yy As X yy.a = 5 yy.b = 2 cc.xx = yy p = cc.xx.a q = cc.xx.b MsgBox p & "," & q End Sub ----------------------------------------
- ベストアンサー
- Visual Basic
- ArrayListへArrayListの格納
お世話になっております。 ArrayListを２つ使用して２次元配列のような事をしようとしております。 データベースから取得したデータの１行をArrayListItemへ格納してそのArrayListItemをArrayListRecordへ格納しようとしております。 追加し終わり最後にArrayListRecordの中身を見ると全て一番最後のデータで置き換わっています。 どなたかご存知でしたらお教え願います。 ' 変数宣言 Dim objSqlDR As SqlDataReader Dim alSetItem As ArrayList Dim alSetRecord As ArrayList alSetItem = New ArrayList alSetRecord = New ArrayList ' データ取得分ループ While objSqlDR.Read() alSetItem.Clear() For intSetIndex = 0 To (objSqlDR.FieldCount - 1) alSetItem.Add(objSqlDR(intSetIndex)) Next intSetIndex alSetRecord.Add(alSetItem) End While
- ベストアンサー
- Visual Basic
- VC++ .net のArrayListについて
教えてください。 環境: VC++ .net 2003（Framework） 内容： ArrayListについて質問があります。 <.cpp> ： ： ArrayList* Al = new ArrayList(); samObj obj = new samObj(); obj->set_aaaa(S"うまくいかないよ"); Al.Add(obj); Console::WriteLine(Al->get_item(i)->get_aaaa()); ： ： <.h> (sam_objctの中身) ： ： __property void set_aaaa(String* value){mstraaaa = value->Trim();} __property String* get_aaaa(){ return mstraaaa->Trim(); } ： ： 上記のようにsam_objctに入れたものをitem(i)を使って呼び出したのですが、Alにはaaaaプロパティは存在しません。記述方法が違っているのでしょうか？ VBやC#やMFCでは出来たと思っていたのですが・・・・
- ベストアンサー
- C・C++・C#
- VC#2010 ArrayListに入れた要素の型
こんにちは。ＡｒｒａｙＬｉｓｔに異なる型のクラスを入れて、後からそれがどの型か判断してから処理しようとしているのですが、エラーになってしまいます。 //ベースオブジェクトクラス class BaseObj { string path; BaseObj(string p){path = p:} } //製品Ａクラス BaseObjを継承 class ProductA : BaseObj { ProductA(string p) : base(p) {} } //製品Ｂクラス BaseObjを継承 class ProductB : BaseObj { ProductB(string p) : base(p) {} } ------------------------------------------- ArrayList ObjList;//オブジェクトを格納する ProductA A = new ProductA(@"C:\"); ProductB B = new ProductB(@"D:\"); ObjList.Add(A); ObjList.Add(B); ------------------------------------------- //ここでは、0番目にＡが入ってると分かっているのでＡかＢか調べる処理は省いてます。 MessageBox.Show'((ProductA)ObjList[0]).path); 上記メッセージボックスのところで、 型 'System.Collections.Generic.List`1[Application.ProductA]' のオブジェクトを型 'Application.ProductA' にキャストできません。 というエラーになってしまいます。これはどうしてなのでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- ArrayListなかへのArrayListオブジェクトのセット方法
スケジュールのプログラムを作成していまして、1日分のオブジェクトをArrayListにいれて、さらに、1日分のArrayLisのオブジェクトを1ヶ月のArrayListにいれました。 そこで、1ヶ月のArrayListのオブジェクトから1日のArrayListのオブジェクトに分解して、表示したところに、最後の日にちの件数が表示されました。 1.ArrayListにオブジェクトをいれますと、うまく表示されます。 2.ArrayListにArrayListオブジェクトをいれまして、総件数を表示したら、1日から31日までのArrayListのsizeメソッドが最後の日にちが表示されます。よって1日から30日のArrayListに31日分のArrayListが上書きされているように思われます。 1と2の違いと原因をご教授下さい。 //arraylist作成1ヶ月分。 public ArrayList setMonth(int year,int month,int user_id){ -省略- ArrayList monthList=null; for(int count=1; count<=day; count++){ monthList=new ArrayList(); ArrayList dayList=new ArrayList(); dayList=setDay(year,month,count); monthList.add(dayList); } for(int a=0; a<monthList.size(); a++){ ArrayList saa = (ArrayList)monthList.get(a); int mm= saa.size(); System.out.println("mm:"+mm); } return monthList; -省略- } //ArrayList作成1日分 public ArrayList setDay(int year,int month,int day){ ArrayList aList = new ArrayList(); -省略- while(rs.next()){ Allday schAll=new Allday(); schAll.setSchedule_id(rs.getInt("schedule_id")); schAll.setContents(rs.getString("contents")); aList.add(schAll); } for(int b=0; b<aList.size(); b++){ int si= ((Allday)aList.get(b)).getSchedule_id(); String con=((Allday)aList.get(b)).getContents(); } return aList; -省略- }
- ベストアンサー
- Java
お礼
burroughs6さん できました！Newキーワードが不要になるんですね！ インスタンスについてもっと勉強しなきゃ。。 大変参考になりました。 ご回答ありがとうございました。