tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル文字列から文字を取り出したい
記事No8775
投稿日: 2009/03/04(Wed) 06:25
投稿者れお♪

かっこよく文字を取り出したい!!
例えば
A="EZ安心アクセスサービスに加入しよう"
とある場合に文字列の?番目の1文字を取り出したいです。
コードを作りましたが、かっこよくないのでお願いします。
'VisualBasic2008(無料版)
'EZ安心プログラム
Option Strict On
Public Class Form1
    Private moji_suu As Integer = 18
    Private moji(moji_suu - 1) As String
    Private ezlabel() As System.Windows.Forms.Label
    Private x, y As Integer
    Private colorR_suu As Integer = 5
    Private colorR(colorR_suu - 1) As Color
    Private colorR_count As Integer = 0
    Private label_count As Integer = 1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        moji(0) = "E" : moji(1) = "Z" : moji(2) = "安" : moji(3) = "心" : moji(4) = "ア" : moji(5) = "ク"
        moji(6) = "セ" : moji(7) = "ス" : moji(8) = "サ" : moji(9) = "-" : moji(10) = "ビ" : moji(11) = "ス"
        moji(12) = "に" : moji(13) = "加" : moji(14) = "入" : moji(15) = "し" : moji(16) = "よ" : moji(17) = "う"
        Me.BackColor = Color.Gray
        Me.ezlabel = New System.Windows.Forms.Label(17) {}
        Me.SuspendLayout()
        Dim pp As Integer
        For pp = 0 To Me.ezlabel.Length - 1
            Me.ezlabel(pp) = New System.Windows.Forms.Label
            Me.ezlabel(pp).Text = moji(pp)
            Me.ezlabel(pp).Size = New Size(20, 20)
            Me.ezlabel(pp).Font = New Font("MS UI Gothic", 13)
            Me.ezlabel(pp).Visible = False
            ezlavel_ichi(pp * -20)
            Me.ezlabel(pp).Location = New Point(100 + x, 100 + y)
        Next
        Me.Controls.AddRange(Me.ezlabel)
        Me.ResumeLayout(False)
        '_____________________color
        colorR(0) = Color.Aqua : colorR(1) = Color.BurlyWood : colorR(2) = Color.GreenYellow
        colorR(3) = Color.Blue : colorR(4) = Color.Pink
        Timer1.Interval = 200
    End Sub
    Private Sub ezlavel_ichi(ByVal kakudo As Integer)
        x = CInt(70 * Math.Cos(kakudo * Math.PI / 180))
        y = CInt(70 * Math.Sin(kakudo * Math.PI / 180))
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim cc As Integer
        For cc = 0 To 17
            Me.ezlabel(cc).Visible = False
        Next
        Me.ezlabel(label_count).Visible = True
        If label_count = 0 Then
            For cc = 0 To 17
                Me.ezlabel(cc).Visible = True
            Next
        End If
        Me.ezlabel(label_count).ForeColor = colorR(colorR_count)
        colorR_count += 1
        If colorR_count = 5 Then colorR_count = 0
        label_count += 1
        If label_count = 18 Then label_count = 0
    End Sub
End Class

[ツリー表示へ]
タイトルRe: 文字列から文字を取り出したい
記事No8776
投稿日: 2009/03/04(Wed) 09:01
投稿者
> とある場合に文字列の?番目の1文字を取り出したいです。

コード見ずにパッと思いました。
Mid関数ではダメなんですか?

[ツリー表示へ]
タイトルRe^2: 文字列から文字を取り出したい
記事No8778
投稿日: 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

[ツリー表示へ]