تمت الإجابة تغيير الوان اجزاء الListbox وحذف الscroll

تم تحميل الصفحة في 1,1101726 ثانية
تغيير الوان اجزاء الListbox وحذف الscroll
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
سلام عليكم شباب كيف الحال
استعملت listbox في احد مشاريعي لكني لاحظت بعض الاوان وفيها يمكنني تغيرها
كيف يغيرها بعض المبرمجين في الثيمات
مثلا انا اريد احذف هذا لللون الازرق الظاهر كيف يمكنني تغيير لونه
لانه مشوه المشروع

 
التعديل الأخير:

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
هذا طريقة اخفاء الscroll للحاب يستفاد منها
هذي فوق تتخلى


Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As IntPtr) As Int32
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As IntPtr, ByVal wBar As Int32, ByVal bShow As Int32) As Int32
Private Const SB_VERT = 1


في حدث الform load

ShowScrollBar(ListBox1.Handle, SB_VERT, False)
 
إنضم
18 أغسطس 2016
المشاركات
100
الإعجابات
108
النقاط
43
السلام عليكم
ان امكن تحويل اعمالك ل ListView التعامل مع الالوان افضل والله اعلم

تفضل الكود بالنسبه لListView

اولا حول ال ownerdraw الى True من خصائص الاداة

C#:
Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        e.DrawDefault = True
    End Sub

    Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
        If e.Item.Selected = False Then
            e.DrawDefault = True
        End If
    End Sub

    Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        If e.Item.Selected = True Then
            e.Graphics.FillRectangle(New SolidBrush(Color.Black), e.Bounds)
            TextRenderer.DrawText(e.Graphics, e.SubItem.Text, New Font(Me.Font, Nothing), New System.Drawing.Point(e.Bounds.Left + 3, e.Bounds.Top + 2), Color.White)
        Else
            e.DrawDefault = True
        End If
    End Sub
*اللون الاسود للخلفيه والابيض للنص




مصدر الكود : How to make selected color the background color in listview

اما ل ٍScroll فى ListView

يمكنك الغاءها من خصائص الاداة
حول Scrollable الى False

بالتوفيق
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
السلام عليكم
ان امكن تحويل اعمالك ل ListView التعامل مع الالوان افضل والله اعلم

تفضل الكود بالنسبه لListView

اولا حول ال ownerdraw الى True من خصائص الاداة

C#:
Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        e.DrawDefault = True
    End Sub

    Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
        If e.Item.Selected = False Then
            e.DrawDefault = True
        End If
    End Sub

    Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        If e.Item.Selected = True Then
            e.Graphics.FillRectangle(New SolidBrush(Color.Black), e.Bounds)
            TextRenderer.DrawText(e.Graphics, e.SubItem.Text, New Font(Me.Font, Nothing), New System.Drawing.Point(e.Bounds.Left + 3, e.Bounds.Top + 2), Color.White)
        Else
            e.DrawDefault = True
        End If
    End Sub
*اللون الاسود للخلفيه والابيض للنص




مصدر الكود : How to make selected color the background color in listview

اما ل ٍScroll فى ListView

يمكنك الغاءها من خصائص الاداة
حول Scrollable الى False

بالتوفيق
تسلم حبيبي حل بسيط وعملي
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل