タイトル : Re: 文字列の容量 投稿日 : 2009/03/15(Sun) 22:08 投稿者 : レオ
> Option Strict On > Public Class Form1 > Private x, x1, y, y1 As Integer > Private counto As Integer = 1 > Private Const yomikomiSuu As Integer = 3 > Private dataa As Integer > Private mojii As String = "000000020020040070100100125211140000000000" > Private data_suu As Integer = 5 > > Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint > For ii As Integer = 0 To data_suu > hyouji() > line(e.Graphics) > counto -= yomikomiSuu > Next > End Sub > Private Sub dainyuu() > dataa = CInt(Mid(mojii, counto, yomikomiSuu)) > End Sub > Private Sub line(ByVal g As Graphics) > g.DrawLine(Pens.Green, x, x1, y, y1) > End Sub > Private Sub hyouji() > dainyuu() > x = dataa > counto += yomikomiSuu > dainyuu() > x1 = dataa > counto += yomikomiSuu > dainyuu() > y = dataa > counto += yomikomiSuu > dainyuu() > y1 = dataa > End Sub > End Class > この場合のmojiiの""の中の数字の容量は最大どれくらい入りますか? > オーバー風呂の数字が知りたいなぁ〜 このプログラムは実行しないほうがいい。 ちょっと走りました!!(暴走) 描画はリソースを使おうね。 では。 |