vb.net Charsメソッドについて
- vb.netの勉強をしている際に、getStringメソッドに引数を指定せずに呼び出した場合、ビルドエラーにならないことに疑問があります。
- 調査の結果、getStringメソッドに引数を指定することでCharsメソッドが呼ばれることがわかりました。
- しかし、この書き方が正しいのかどうかについては腑に落ちないため、詳しい説明を求めています。
- ベストアンサー
vb.net Charsメソッドについて
vs2008、.NET Framework 3.5 にてvb.net の勉強をしているのですが、 下記のような場合にビルドエラーにならないことについて 疑問があります。 Public Class ClassA Private Sub methodA() Dim a As String = getString(1) ・・・★ End Sub Private Function getString() As String Return "abcdefg" End Function End ClassA getStringメソッドには引数をとらないもののみが定義 されているので、methodAからgetStringメソッドを呼び出した 場合(★)は、ビルドエラーになると思うのですが、なりません。 a の値は"b"になります。 調べてみたところ、引数に1を設定したことによって、 Charsというメソッドが呼ばれているようなのですが、 それであれば、 Dim a As String = getString().Chars(1) と書くものだと思うのですが…。 こういう書き方もできるんだという話であればそれまでなのですが、 どうも腑に落ちないので、説明できる方がいらっしゃれば 教えていただきたいです。
- daijigo73
- お礼率33% (1/3)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
getString の時点で戻り値と同じ扱いだから、String の機能が 摘要されていますね。関数呼び出しの引数ではなく、String に Index 指定した解釈です。 String は Char の配列ですよね? Private Sub methodA() Dim a As String = "xyz" Debug.WriteLine(a(1)) Debug.WriteLine(a.Chars(1)) For Each temp As Char In a Debug.WriteLine(temp) Next Debug.WriteLine(getString(1)) Debug.WriteLine(getString()(1)) Debug.WriteLine(getString().Chars(1)) End Sub 例えば戻り値を String の配列にすれば理解できるでしょうか? Private Sub methodA() Dim a As String = getString(1) Dim b As String = getString()(1) '本来はこう書くべき? Dim c As Char = getString()(1)(1) Dim d As String = getString()(1)(1) 'これが成り立つのはCharとStringの関係 End Sub Private Function getString() As String() Dim rtn As String() = {"aaa", "bbb", "ccc"} Return rtn End Function 確かにコードだけ見ると分かり難いですね。 VBは要らぬおせっかい解釈が多いです。それが被って2つの意味で 解釈できるんですね。 自分で Private Overloads Function getString(ByVal index As Integer) As String を用意すると、また解釈が変わったりします。 エラーにしてしまった方が良い様にも思いますが、適当に解釈してくれます。 バグを生みやすい部分ですね。
関連するQ&A
- 自作したメソッド・・・引数はなるべく省略すべき?(VB2005)
自作したメソッドに関して、引数はなるべく設定するべきでしょうか?それとも、引数は省略できるなら省略したほうがよいでしょうか? 下記(a)、(b)は例です。 a)引数はなるべく省略 --------------------------------- Private Sub hoge() Call foo() End Sub Private Sub foo() Dim hoga As integer = Pbar 'プロパティ「Pbar」の値を設定 '処理 End Sub --------------------------------- b)あえて引数を設定 --------------------------------- Private Sub hoge() Dim hoga As integer = Pbar 'プロパティ「Pbar」の値を設定 Call foo(hoga) End Sub Private Sub foo(ByVal hoga As integer) '処理 End Sub --------------------------------- 現在、(b)のようにあえて引数を設定したほうが、呼び出し先のメソッドがどういう処理を行っているかを掴めていいかな?と考え始めています。 ご助言よろしくお願い致します。
- ベストアンサー
- Visual Basic
- vb.net変数に入れた文字列でメソッドを実行する
こんにちわ!! Vb.netで文字列を格納した変数を使ってメソッドを呼び出したいのですが、可能でしょうか? サンプル 'メインルーチン public sub test() Dim aaa as string ="testfunction" Dim num as integer=0 '↓の様にメソッドを呼び出したい Dim bbb = aaa(num) Msgbox(bbb ,vbinformation) aaa="testfunction2" bbb=aaa(num) Msgbox(bbb,vbinformation) Endsub 'メソッド1 Private function testfunction1(num) Return num+1 End function 'メソッド2 Private function testfunction2(num) Return num+2 End function 上記はあくまでサンプルです。 実際はメソッド数が多く、aaaにいれる名前も別で取得するので、stringになります。 ですので、bbb=aaaはforで回します。 このようなことは可能でしょうか? やりかたもしくは解決方法があればお願いします。
- ベストアンサー
- Microsoft ASP
- VB6.0のクラスで、自分自身のインスタンスを作成するメリット
クラスのメソッドで、自分自身のインスタンスを作成している、コードをよく見かけます。 どんなメリットがるのでしょうか? 簡単に、クラスファイルのコードを書きました。 【A.cls】 Option Explicit Dim pstrID As Long Dim pstrName As String Public Function fncCreate() As Object Set fncCreate = New clsA '★自分自身のインスタンスを作成する End Function Public Function fncID() As Boolean pstrName = "ID" End Function Public Function fncName() As Boolean pstrName = "STRING" End Function Private Sub Class_Initialize() pstrID = 0 pstrName = "" End Sub
- ベストアンサー
- Visual Basic
- VB.NETで値や参照について ByRefなど
VB.NETで値や参照について、まだ初学ですがよろしくお願いします。 VBは2008です。 以下のようなs文字列を参照引数にしたSetDataメソッドがあります。 ByRef s As Stringという引数は、SetData内でsを書き換えると、 呼び出したSetDataメソッド外でも中身が変わるので 私のByRefの認識ではポインタと解釈しています。間違っているでしょうか? SetData(1,1, buf)とすれば、DataGridViewの中は、「初期値」という文字が表示されます。 別のメソッド(KaKikae)でbufを"あ"という文字に変えた場合、SetDataメソッドを使わなくても 書き換わっていると思っていたのですが、実際実行してみると書き換わりません。 値や参照について理解が足りないからだと思いますがわかりません。 どのようにすれば、それが実現できるのでしょうか? Public Class HogeClass Private buf As String = "初期値" Private Sub SetData(ByVal x As Integer, ByVal y As Integer, ByRef s As String) As Boolean Dim dg As DataGridView dg = DataGridView1 dg.Item(x, y).value = s End Sub Private Sub KaKikae() buf = "あ" End Sub End Class
- 締切済み
- Visual Basic
- 自作したメソッド・・・こんな場合、引数は省略すべき?(VB2005)
#注)この質問は下記のリンク先の質問の続きとなります。 #未読の方はリンク先をお読みくださいませ。 # #自作したメソッド・・・引数はなるべく省略すべき?(VB2005) #http://oshiete1.goo.ne.jp/qa3409289.html 仮に、フォームにボタンが複数個あり(Name = btnA,btnB,btnC…)、いずれかのボタンをクリックすると、共通処理のモジュール「shori」を呼び出すプログラムを想定します。 コード ------------------------------------------------ Private Sub btnA_Click() Dim hoge As integer = Phoge 'a)プロパティの値を設定 Dim foo As integer = Pfoo 'b) Dim bar As integer = Pbar 'c) Call syori(hoge,foo,bar) End Sub Private Sub btnB_Click() Dim hoge As integer = Phoge 'a)プロパティの値を設定 Dim foo As integer = Pfoo 'b) Dim bar As integer = Pbar 'c) Call syori(hoge,foo,bar) End Sub : : Private Sub shori() 'ボタンクリックイベントの共通処理 'd) 処理 End Sub ------------------------------------------------ 引数を省略しない形だと、(a)~(c)のコードを、全てのボタンのClickイベントに書き込むことになり、コードが煩雑になります。こういった場合、引数を省略する形、つまり(a)~(c)のコードを(d)の箇所へ書き込む手法は積極的に行うべきでしょうか?(Call文の形は、syori() となる) ご助言よろしくお願い致します。
- ベストアンサー
- Visual Basic
- VB2008で構造体を引数とした時にエラー
VB2008の勉強を始めて数週間の初心者です。 勉強用にいろいろとプログラムを作っているのですが、 構造体(Structure)を引数で渡して戻り値を取得する Functionを作成してみました。 同一クラス内の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) '<------- これはok '------------------------------------- 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
- ベストアンサー
- Visual Basic
- AccessVBA:TransferSpreadSheetメソッドで既存テーブルに挿入は出来る?
元となるAccessテーブルはあります。 そこに、ExcelからTransferSpreadSheetメソッドを使って、フィールド挿入という形が出来ますでしょうか。 指定したExcelデータじたいのインポートは出来てますけど、挿入となるとさっぱり分かりません。 (Win2000/Access2000/Excel2000) 現在の書き込みは以下のとおりです。 Function ExcelDataImport() On Error GoTo Err_コマンド1_Click Dim varac As Variant Dim varxls As Variant Dim strrange As string Dim strmsg As string varac = "既存テーブル" varxls = "C:\Temp\EX.xls" strrange = "(A1:A1000)" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, varac, varxls, True, strrange (エラーメッセージ定義が続く) End Function --------------------------------------------------Private Sub Excelin_() Call ExcelDataImport End Sub
- 締切済み
- オフィス系ソフト
- .netからアクセスへの配列変数渡しについて
.NET 2010でアクセスのモジュールを実行させようとしております。 アクセスに配列を引数にしようとしていますが “Public ReadOnly Default Propety Chars(index as Integer) as Charに対する引数が多すぎます。” のエラーが発生しており困っております。 これはどのようなことが原因でエラーが発生しているのでしょうか。 また、解決策がありましたらご教授していただけないでしょうか。 .net側 Private sub AcsRun() Dim strdata as string Dim pData(50,10) as object Strdata =数値1 pData(1,1) = 文字2 pData(2,1) = 数値2 ・・・・・・・ ‘ここでpDataでエラーがでます。 If app.Run("AcsMdl"( Strdata, pData) = False) Then Exit sub End If End sub アクセス側 Public Function AcsMdl (Strdata As Integer, pData () As Variant) As Integer AcsMdl = false ‘処理 AcsMdl = true End function
- ベストアンサー
- Visual Basic
- VB2008: 文字列を逆順にする関数が判らない!
Sub Main() Debug.Print(Reverse("ABC") End Sub Function Reverse(ByVal aChars As String) As String Dim C As Char Dim I As Integer Dim J As Integer Dim L As Integer = aChars.Length - 1 J = L Do While I < J C = aChars.Chars(I) aChars.Remove(I, 1) aChars.Insert(I, aChars.Chars(J)) aChars.Insert(J, C) aChars.Remove(J + 1, 1) J -= 1 I += 1 Loop Return aChars End Function 1、"ABC"の"A"を変数 C に保存。 2、"ABC"の"A"を削除。 3、"BC" の先頭に"C"を挿入。 4、"CBAC" の3番目(J=2)に変数Cを挿入。 5、"CBAC" の4番(J+1=3)を削除 6、"CBA" を戻り値にセット。 という Reverse 関数ですが動作しません。 一体、どこでどのように考え違いをしているのでしょうか? 全くわかりません。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- VB6で作成した自作DLLをVB.NETで呼び出し例外発生時に参照渡しの引数に値を設定する方法
VB6で作成した自作のDLLをVB.NET2005で作成したEXEから呼び出した際に、DLLメソッドの正常・異常終了に関わらず第2引数の戻り値に第1引数の値を設定したいと考えていますが旨くいきません。 何かよい方法はないでしょうか? 以下、簡単なサンプルです。 =========================== VB6 DLL =========================== Public Sub getDataForTest(ByVal strIn As String, ByRef strOut As String) Dim intData As Integer 'strInの値をstrOutに代入 strOut = strIn 'strInの値を1で割り算 intData = CInt(strIn) / 1 End Sub =============================================================== =================== DLL呼び出し正常パターン =================== Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim objCom As New Project1.Class1 Dim strRet As String = "" Try Call objCom.getDataForTest("1", strRet) Catch ex As Exception MsgBox(ex.Message) Finally MsgBox(strRet) ←←← 1が表示される End Try End Sub =============================================================== =================== DLL呼び出し異常パターン =================== Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim objCom As New Project1.Class1 Dim strRet As String = "" Try Call objCom.getDataForTest("A", strRet) Catch ex As Exception MsgBox(ex.Message) Finally MsgBox(strRet) ←←← この時にAを表示したいがstrRetが空 End Try End Sub ===============================================================
- 締切済み
- Visual Basic
お礼
ご回答ありがとうございます。 大変わかりやすかったです。 >自分で > Private Overloads Function getString(ByVal index As Integer) As String >を用意すると、また解釈が変わったりします。 確かにIntegerを引数にとるgetStringをオーバーロードした場合は、こちらが優先されて解釈されるのですね。 勉強になりました。