メソッドの使い分けについて (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

←解決時は質問者本人がここをチェックしてください。

戻る