PMTornado
دوشنبه 02 دی 1392, 22:17 عصر
سلام دوستان
ميخواستم تكست هاي زير رو بصورت شطرنجي در بيارم كه نشد :
از Mod استفاده كردم كه به يه مشكل برخورد كردم . روش ديگه اي هم به ذهنم نرسيد ...
وقتي Text1 رو عدد فرد وارد ميكنم مشكلي نداره و با كد زير اين شكل توليد ميشه :
For X = 1 To (text1*text1)
If X Mod 2 = 0 Then
txt1(X).BackColor = &HC0C0C0
Else
txt1(X).BackColor = &H80000005
End If
Next X
http://s5.picofile.com/file/8105373976/Chees1.jpg
اما وقتي text1 رو عدد زوج وارد ميكنم اين شكل توليد ميشه :
http://s5.picofile.com/file/8105374026/Chees2.jpg
اگه كسي از حرفام سر در آورد كمكم كنه :قلب:
ميخواستم تكست هاي زير رو بصورت شطرنجي در بيارم كه نشد :
از Mod استفاده كردم كه به يه مشكل برخورد كردم . روش ديگه اي هم به ذهنم نرسيد ...
وقتي Text1 رو عدد فرد وارد ميكنم مشكلي نداره و با كد زير اين شكل توليد ميشه :
For X = 1 To (text1*text1)
If X Mod 2 = 0 Then
txt1(X).BackColor = &HC0C0C0
Else
txt1(X).BackColor = &H80000005
End If
Next X
http://s5.picofile.com/file/8105373976/Chees1.jpg
اما وقتي text1 رو عدد زوج وارد ميكنم اين شكل توليد ميشه :
http://s5.picofile.com/file/8105374026/Chees2.jpg
اگه كسي از حرفام سر در آورد كمكم كنه :قلب: