جدول ضرب را توی ویژوال با چی میشه نشون داد؟
(کدوم کامپوننت):20:
Printable View
جدول ضرب را توی ویژوال با چی میشه نشون داد؟
(کدوم کامپوننت):20:
سلام دوست عزیز من کمپوننت پیدا نکردم میتونی از کد زیر استفاده کنی:نقل قول:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک 6(VB6) کد:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک(Visual Basic)کد:کد:Dim I, C As Integer
For I = 1 To 10
For C = 1 To 9
Print I * C;
Next
Print I * C
Next
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی شارپ(#C) کد:کد:Dim I = 0, C = 0, Y1 = 0, X1 As Integer = 0
Dim F As Font = Me.Font
For I = 1 To 10
For C = 1 To 10
Me.CreateGraphics().DrawString((I * C), F, Brushes.Red, X1, Y1)
X1 += 30
Next
X1 = 0
Y1 += 10
Next
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی پلاس پلاس(++C) کد:کد:int Y1 = 0, X1 = 0;
Font F = this.Font;
for (int I = 1; I <= 10; I++)
{
for (int C = 1; C <= 10; C++)
{
this.CreateGraphics().DrawString((I * C).ToString(), F, Brushes.Red, X1, Y1);
X1 += 30;
}
X1 = 0;
Y1 += 10;
}
کد:int Y1 = 0, X1 = 0;
System::Drawing::Font^ F = this->Font;
System::Drawing::Pen^ MPen = gcnew Pen(Color::Red);
System::Drawing::Brush^ BR = MPen->Brush;
for (int I = 1; I <= 10; I++)
{
for (int C = 1; C <= 10; C++)
{
this->CreateGraphics()->DrawString(Convert::ToString((I * C)), F,BR,Convert::ToInt16( X1),Convert::ToInt16( Y1));
X1 += 30;
}
X1 = 0;
Y1 += 10;
}