سلام دوستان
برنامه ای میخوام که وقتی روی فرم کلیک کردیم رنگ فرم در هر بار کلیک به صورت تصادفی به یکی از رنگ های، قرمز،سبز،آبی،سیاه،زرد و.. تغییر کند.
لطفا کمک کنید (+ اعتبار)
سلام دوستان
برنامه ای میخوام که وقتی روی فرم کلیک کردیم رنگ فرم در هر بار کلیک به صورت تصادفی به یکی از رنگ های، قرمز،سبز،آبی،سیاه،زرد و.. تغییر کند.
لطفا کمک کنید (+ اعتبار)
Private Sub Form_Click()
BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Private Sub Form_Load()
Randomize Timer
End Sub
ویژوال بیسیک Net.
کد:
[COLOR="#A9A9A9"]Public Class Form1
[/COLOR]
Private rnd As New Random()
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
BackColor = Color.FromArgb(rnd.Next(256), rnd.Next(256), rnd.Next(256))
End Sub
[COLOR="#A9A9A9"]End Class[/COLOR]
اگه تعداد رنگها کمه اون رنگ ها رو داخل یک آرایه قرار دهید تا رنگ فقط از رنگ های داخل اون انتخاب بشه :
ویژوال بیسیک کلاسیک VB6
کد:
Option Explicit
Private Sub Form_Click()
Dim colors As Variant
colors = Array(vbBlack, vbWhite, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta)
BackColor = colors(Int(Rnd * 7))
End Sub
Private Sub Form_Load()
Randomize Timer
End Sub
ویژوال بیسیک Net.
کد:
[COLOR="#A9A9A9"]Public Class Form1[/COLOR]
Private rnd As New Random()
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim colors() As Color = {Color.Black, Color.White, Color.Red, Color.Green, Color.Yellow, Color.Blue, Color.Magenta}
BackColor = colors(rnd.Next(colors.Length))
End Sub
[COLOR="#A9A9A9"]End Class[/COLOR]
سلام ببخشید یه سوال دارم
برنامه‌ای بنویسید یک جعبه متن، یک لیست و یک جعبه‌ی کشویی بر روی فرم قرار دهید، وقتی اطلاعاتی را در داخل جعبه متن وارد کرده و بر روی دکمه‌ای کلیک کردید این اطلاعات به انتهای لیست اضافه شود و در صورتی که از روی لیست بر روی داده‌ای دابل کلیک کردید از لیست حذف شده و به انتهای جعبه‌ی کشویی اضافه شود
سلام ببخشید یه سوال دارم
برنامه‌ای بنویسید یک جعبه متن، یک لیست و یک جعبه‌ی کشویی بر روی فرم قرار دهید، وقتی اطلاعاتی را در داخل جعبه متن وارد کرده و بر روی دکمه‌ای کلیک کردید این اطلاعات به انتهای لیست اضافه شود و در صورتی که از روی لیست بر روی داده‌ای دابل کلیک کردید از لیست حذف شده و به انتهای جعبه‌ی کشویی اضافه شود
این چیزی که شما مطرح کردید نه کد نویسی خاصی داره و نه ابهامی داخلشه که لازم باشه برطرف بشه، یک تمرین خیلی ساده است برای اینکه با طرز کار ListBox و ComboBox و رخداد های Click و DoubleClick آشنا بشوید که کلا سه سطر کد نویسی داره و اگه اونم شخص دیگری براتون انجام بده چیزی یاد نمیگیرید. سوالتون هم ارتباطی با موضوع تاپیک "برنامه کلیک روی فرم و تغییر رنگ تصادفی بکگراند آن (ویژوال بیسیک)" نداره که اینجا مطرحش کنید.
