日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
講解VB.NET COMBOBOX控件

學(xué)習(xí)Visual Basic.NET時(shí)，你可能會(huì)遇到VB.NET COMBOBOX控件問題，這里將介紹VB.NET COMBOBOX控件問題的解決方法，在這里拿出來和大家分享一下。

目前創(chuàng)新互聯(lián)建站已為成百上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站運(yùn)營、企業(yè)網(wǎng)站設(shè)計(jì)、華鎣網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮闹虚g解釋性語言，可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本,增強(qiáng)了對(duì)面向?qū)ο蟮闹С?。但由于改?dòng)太大，導(dǎo)致VB.net對(duì)VB的向后兼容性不好，在業(yè)界引起不小的爭議。

大多的VB.NET程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開源的IDE。VB.NET需要在.Net Framework平臺(tái)上才能執(zhí)行。

前不久，有位朋友發(fā)帖，尋求顏色選擇的VB.NET COMBOBOX控件的制作方法，經(jīng)過試驗(yàn)，整理了出來，僅供參考。

 
 
 
      
  
  
  1. Private Sub filllistboxwithcolors()  
    2.   
  
  
  2. Me.ComboBox1.DrawMode = DrawMode.OwnerDrawFixed  
    3.   
  
  
  3. Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList  
    4.   
  
  
  4. Me.ComboBox1.ItemHeight = 15 
    5.   
  
  
  5. '避免閃爍beginupdate  
    6.   
  
  
  6. Me.ComboBox1.BeginUpdate()  
    7.   
  
  
  7. ComboBox1.Items.Clear()  
    8.   
  
  
  8. Dim pi As Reflection.PropertyInfo  
    9.   
  
  
  9. For Each pi In GetType(Color).GetProperties(Reflection.BindingFlags.
    Public Or Reflection.BindingFlags.Static)  
    10.   
  
  
  10. Me.ComboBox1.Items.Add(pi.Name)  
    11.   
  
  
  11. Next  
    12.   
  
  
  12. ComboBox1.EndUpdate()  
    13.   
  
  
  13. End Sub  
    14.   
  
  
  14.  
    15.   
  
  
  15. Private Sub ComboBox1_DrawItem(ByVal sender As Object, 
    ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem  
    16.   
  
  
  16. If e.Index < 0 Then Exit Sub  
    17.   
  
  
  17.  
    18.   
  
  
  18. Dim rect As Rectangle = e.Bounds '每一項(xiàng)的邊框  
    19.   
  
  
  19.  
    20.   
  
  
  20. '繪制項(xiàng)如果被選中則顯示高亮顯示背景,否則用白色  
    21.   
  
  
  21. If e.State And DrawItemState.Selected Then  
    22.   
  
  
  22. e.Graphics.FillRectangle(SystemBrushes.Highlight, rect)  
    23.   
  
  
  23. Else  
    24.   
  
  
  24. e.Graphics.FillRectangle(SystemBrushes.Window, rect)  
    25.   
  
  
  25. End If  
    26.   
  
  
  26.  
    27.   
  
  
  27. Dim colorname As String = ComboBox1.Items(e.Index)  
    28.   
  
  
  28. Dim b As New SolidBrush(Color.FromName(colorname))  
    29.   
  
  
  29.  
    30.   
  
  
  30. '縮小選定項(xiàng)區(qū)域()  
    31.   
  
  
  31. rect.Inflate(-16, -2)  
    32.   
  
  
  32. '填充顏色(文字對(duì)應(yīng)的顏色)  
    33.   
  
  
  33. e.Graphics.FillRectangle(b, rect)  
    34.   
  
  
  34. '繪制邊框()  
    35.   
  
  
  35. e.Graphics.DrawRectangle(Pens.Black, rect)  
    36.   
  
  
  36. Dim b2 As Brush  
    37.   
  
  
  37. '確定顯示的文字的顏色()  
    38.   
  
  
  38. If CInt(b.Color.R) + CInt(b.Color.G) + CInt(b.Color.B) > 128 * 3 Then  
    39.   
  
  
  39. b2 = Brushes.Black  
    40.   
  
  
  40. Else  
    41.   
  
  
  41. b2 = Brushes.White  
    42.   
  
  
  42.  
    43.   
  
  
  43. End If  
    44.   
  
  
  44. e.Graphics.DrawString(colorname, Me.ComboBox1.Font, b2, rect.X, rect.Y)  
    45.   
  
  
  45.  
    46.   
  
  
  46. End Sub  
    47.   
  
  
  47.  
    48.   
  
  
  48. Private Sub Form1_Load
    (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
    49.   
  
  
  49. filllistboxwithcolors()  
    50.   
  
  
  50. End Sub 
    51.

【編輯推薦】

  1. 描述VB.NET EIF體系
  2. 簡單講述VB.NET多重繼承
  3. 淺談VB.NET語言與.NET開發(fā)語言關(guān)系
  4. 講解VB.NET語言學(xué)習(xí)經(jīng)驗(yàn)
  5. 淺析VB.NET語言到底帶來了什么

本文題目：講解VB.NET COMBOBOX控件
標(biāo)題路徑：http://www.dlmjj.cn/article/dpeoecg.html