vahid_jam2
جمعه 22 مهر 1390, 15:13 عصر
با سلام خدمت دوستای گلم
اول تشکر میکنم سایتتون خیلی عالیه خیلی استفاده کردم
دوم یه سوال
من به تازگی برنامه نویسی رو با VB2008 شروع کردم دارم یه برنامه مینویسم (تمرین این هفته امون در دانشگاست) که کاربر مثلا با زدن دکمه ۱ یا ۲ در inputbox دکمه بر روی فرم ایجاد میکنه به صورت های مختلف مثلا عمودی، افقی یا شطرنجی...
حالا برنامه رو نوشتم کامل ولی میخوام در موقع ایجاد وقتی دکمه ها روی صفحه میان ... یکدفعه نیاد روی صفحه و مثلا یکی یکی بیاد (مثلا افکت دار بشه)
مثلا این تابعشو نگاه کنید
Private Sub Horizontal()
Dim x, y, w, h, a, b As Integer
a = Me.Width
b = Me.Height
Label1.Hide()
Label2.Hide()
Button1.Hide()
For x = 0 To a
For y = 0 To b
Dim btn As New Button
w = 40
h = 40
btn.SetBounds(x, y, w, h)
Me.Controls.Add(btn)
btn.BackgroundImage = Create_button_like_table.My.Resources.heart_love
btn.BackgroundImageLayout = ImageLayout.Stretch
y = y + 40
Next
x = x + 80
Next
End Sub
من دستور Threading.Thread.Sleep(500) رو وسط حلقه میزارم ولی دکمه ها یکی یکی به وقفه نمی افتند و مثلا چند ثانیه طول میکشه و یه دفعه کل دکمه ها با هم میان
اول تشکر میکنم سایتتون خیلی عالیه خیلی استفاده کردم
دوم یه سوال
من به تازگی برنامه نویسی رو با VB2008 شروع کردم دارم یه برنامه مینویسم (تمرین این هفته امون در دانشگاست) که کاربر مثلا با زدن دکمه ۱ یا ۲ در inputbox دکمه بر روی فرم ایجاد میکنه به صورت های مختلف مثلا عمودی، افقی یا شطرنجی...
حالا برنامه رو نوشتم کامل ولی میخوام در موقع ایجاد وقتی دکمه ها روی صفحه میان ... یکدفعه نیاد روی صفحه و مثلا یکی یکی بیاد (مثلا افکت دار بشه)
مثلا این تابعشو نگاه کنید
Private Sub Horizontal()
Dim x, y, w, h, a, b As Integer
a = Me.Width
b = Me.Height
Label1.Hide()
Label2.Hide()
Button1.Hide()
For x = 0 To a
For y = 0 To b
Dim btn As New Button
w = 40
h = 40
btn.SetBounds(x, y, w, h)
Me.Controls.Add(btn)
btn.BackgroundImage = Create_button_like_table.My.Resources.heart_love
btn.BackgroundImageLayout = ImageLayout.Stretch
y = y + 40
Next
x = x + 80
Next
End Sub
من دستور Threading.Thread.Sleep(500) رو وسط حلقه میزارم ولی دکمه ها یکی یکی به وقفه نمی افتند و مثلا چند ثانیه طول میکشه و یه دفعه کل دکمه ها با هم میان