+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] listbox (/showthread.php?tid=1218)
listbox - scluay - 10-12-13
Private Sub ListBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
Dim x As Integer = ListBox1.SelectedItem
Label1.Font = New Font("bold", x)
End Sub
End Class
شباب انا اريد اعمل برنامج كما في برنامج الورد تغير حجم النص عنده المرور وليس عنده الضغط
اي عندي list و label في نص وال list فيه ارقام عند المرور على الارقام اريد يتغير حجم النص الذي في label حسب الارقام التي في list
RE: listbox - kslawy - 10-12-13
السلام عليكم ورحمة الله وبركاته
يتم ذلك في حدث MouseMove الخاص بأداة ListBox كالتالي :
PHP كود :
Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
Dim Index As Integer = Me.ListBox1.IndexFromPoint(e.X, e.Y) ' الحصول علي رقم العنصر اللي وقف عليه الماوس
Dim fSize As Integer = CInt(Me.ListBox1.Items(Index)) ' الحصول علي قيمة العنصر حسب رقمه
Me.Label1.Font = New Font(Me.Label1.Font.FontFamily.Name, fSize, FontStyle.Bold) ' تغيير الخط مباشرة علي الأداة
End Sub
****
***
**
*
RE: listbox - atefkhalf2004 - 11-12-13
الاستاذ الفاضل
كيف اعرض اكبر رقم اندكس في اللستة
مثال علي فرض انه بها 9 عنصر
اكبر انكس يكون 8
كيف اعرض في رسالة اكبر اندكس في اللسنة ؟؟؟
شكرا
RE: listbox - Abu Ehab - 11-12-13
PHP كود :
Sub ListItems()
With ListBox1.Items
.Clear()
.AddRange({1, 44, 3, 55, 6})
End With
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListItems()
Dim Mx = Aggregate i In ListBox1.Items Into Max()
MsgBox(Mx)
End Sub
RE: listbox - scluay - 17-12-13
السلام عليكم شباب
انا اشكرك اخويه الغالي على الجواب ولكن اذا اردت استبدال بدل listbox بي compobox
لايتطبق الحل ممكن تعمل لي حل على compobox
RE: listbox - Abu Ehab - 17-12-13
إقتباس : لايتطبق الحل ممكن تعمل لي حل على compobox
هي العنـــــــــاصر الموجــــــــــوده عنــدك : Integer Or String ?
RE: listbox - scluay - 17-12-13
انا اريد اعمل كما في الورد ارقام وهي تمثل حجم الخط وعندي ليبل فيه نص عنده المرور على ال combobox يتغير حجم الخط
كما في الجواب الاول في listbox يتحول الى combobox
RE: listbox - Genius Live - 20-12-13
(11-12-13, 05:01 PM)atefkhalf2004 كتب : كيف اعرض اكبر رقم اندكس في اللستة
مثال علي فرض انه بها 9 عنصر
اكبر انكس يكون 8
كيف اعرض في رسالة اكبر اندكس في اللسنة ؟؟؟
Do you want this?
كود :
MsgBox(ListBox1.Items.Count - 1)RE: listbox - atefkhalf2004 - 20-12-13
شكرا جزيلا