مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[pmf_1]

سلام ازتوضیحات خوبتون ممنونم
من یه سری عددداخل یه textbox دارم که باید اول ازهم تفکیکشون کنم بعدشم براشون یه چارت رسم کنم
اگه بتونید راهنماییم کنید ممنون میشم

[MoBiN.R]

سلام ازتوضیحات خوبتون ممنونم
من یه سری عددداخل یه textbox دارم که باید اول ازهم تفکیکشون کنم بعدشم براشون یه چارت رسم کنم
اگه بتونید راهنماییم کنید ممنون میشم

بیشتر توضیح بدید دوست عزیز .. چه نوع اعدادی هستند

[deopen]

سلام ازتوضیحات خوبتون ممنونم
من یه سری عددداخل یه textbox دارم که باید اول ازهم تفکیکشون کنم بعدشم براشون یه چارت رسم کنم
اگه بتونید راهنماییم کنید ممنون میشم

Dim intLen As Integer
Dim intRenge As Byte
Dim arrInt() As Integer

Private Sub Command1_Click()

intRenge = intLen
ReDim arrInt(intRenge)

For i = 1 To (intLen + 1)
arrInt(i - 1) = Val(Mid(Text1.Text, i, 1))
Print arrInt(i - 1)
Next

MSChart1.ChartData = arrInt

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 49 Or KeyAscii > 58 Then
KeyAscii = 0
Else
intLen = Len(Text1.Text)
End If

End Sub

ازComponet این را Microsoft chart controler را add کنید .

من راجع به chart اطلاعاتی نداشتم اما این را مطالعه کنید :

http://msdn.microsoft.com/en-us/libr...8VS.60%29.aspx