واسه متن متحرک در کنترل Lable
از کنترل تایمر استفاده کن, هر موقع خواستی متن شروع به حرکت کنه, خاصیت Enable تایمر رو True کن. اندازه لیبل رو به مقدار مورد نیاز خودت ست کن, راست به چپش رو به دلخواه خودت ست کن و در نهایت هم Padding لیبل رو یه مقدار تغییر بده تا حاشیه مختصری هم داشته باشه
Dim
aa AsString = "\ | - /\ | - /\ | - /\ | - /\ | - /"
Private
Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
aa = aa.Substring(1) & aa.Substring(0, 1)
Label1.Text = aa
EndSub
واسه سوال اولت که بصورت راندوم سطری رو انتخاب کنی
با حلقه While می تونی ردیف هایی با اولویت بالا رو می تونی بگیری, اما یه مشکل اینجا هست : ممکنه ردیف ها در محدوده وسیعی قرار داشته باشند مثلا ردیف های 5 , 17 , 39 , 94 و 100 دارای مقدار 5 در ستون مورد نظر شما هستند با این محدوده نمیشه عدد تصادفی تولید کرد که مطلقا یکی از 5 عدد فوق باشه اما میشه یه کار دیگه کرد, شماره ردیف ها رو بریز در یه آرایه, حال آرایه ای داریم با 5 عضو. الان میشه عددی راندوم بین 0 تا 5 (اندیس ارایه) تولید کرد و بعد مقدارش رو گرفت و همین ردیف رو در دیتاگرید Select کرد.
واسه تبدیل کد هم بهتره دنبال Convertory چیزی باشه,
در پناه حق