メソッドの使い分けについて (ID:146378)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >他人にとって理解しやすいのであれば、自分の頭の中を整理するのに役立つ>でしょう。 >また、公共の場である質問掲示板で質問している時点で、他人に説明する力>が必要になります。 >ならば、むしろ積極的に取り入れるべきという結論になりそうなものですが 確かにその通りだと思います。 ただ、いろいろと表記の仕方が面倒というか、消化しきれていないからなのでしょう。オブジェクト指向は、今後少しずつ勉強していきたいと思います。 > 何をどう判断しようとして、どんな場合になぜ判断しかねているのですか？ 戻り値という概念が理解できていないのかもしれません。 メソッドをFunctionにして下記のように書き直してみましたが これでは、要素数を超える回数をクリックすると「インデックスが配列の境界外です。」というエラーをはきます。 Imports System.IO, System.Text Public Class Form1 Dim count As Integer Dim total As Integer Dim fname As String Dim n As Integer = -1 Dim i As Integer ’スタート Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox4.Visible = True Label1.Visible = False If Label1.Text = "" Then MessageBox.Show("ファイルを読み込んでください") Else mondai(i) End If End Sub ’ストップ Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() TextBox2.Text = total.ToString & "秒です" End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick count += 1 total = count End Sub '問題文を表示するメソッド Function mondai(ByVal i As Integer) As String TextBox1.Focus() ImeModeBase = Windows.Forms.ImeMode.Hiragana count = 0 Timer1.Start() TextBox1.Text = "" TextBox2.Text = "" Dim line As Integer line = File.ReadAllLines(fname).Length Dim str(line - 1) As String Dim sr As StreamReader = New StreamReader(fname, Encoding.Default) n += 1 For i = 0 To n If i < line Then str(i) = sr.ReadLine TextBox4.Text = str(i) Else n = -1 End If Next sr.Close() Return str(i) End Function 'ファイルをLabel1に読み込む Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox4.Visible = False Label1.Visible = True If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Label1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName, Encoding.Default) fname = OpenFileDialog1.FileName End If End Sub End Class