タイトル : 文字列の容量 投稿日 : 2009/03/14(Sat) 06:37 投稿者 : れお♪
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の""の中の数字の容量は最大どれくらい入りますか? オーバー風呂の数字が知りたいなぁ〜 |