タイトル : Re^2: 文字列から文字を取り出したい 投稿日 : 2009/03/04(Wed) 14:34 投稿者 : れお♪
> > とある場合に文字列の?番目の1文字を取り出したいです。 > > コード見ずにパッと思いました。 > Mid関数ではダメなんですか? できたで、ゴザール。 ありがとうございました。 Option Strict On 'VisualBasic2008(無料版) Public Class Form1 Private label1_Mojicount As Integer = 1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim a As String = Label1.Text Dim msg As String = Mid(a, label1_Mojicount, 1) Label2.Text = msg label1_Mojicount += 1 If label1_Mojicount = 19 Then label1_Mojicount = 1 End Sub End Class |