日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

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

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

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

Visual Basic.NET是基于微軟.NET Framework之上的面向對象的中間解釋性語言，可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強了對面向對象的支持。但由于改動太大，導致VB.net對VB的向后兼容性不好，在業(yè)界引起不小的爭議。

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

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

 
 
 
      
  
  
  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 '每一項的邊框  
    19.   
  
  
  19.  
    20.   
  
  
  20. '繪制項如果被選中則顯示高亮顯示背景,否則用白色  
    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. '縮小選定項區(qū)域()  
    31.   
  
  
  31. rect.Inflate(-16, -2)  
    32.   
  
  
  32. '填充顏色(文字對應的顏色)  
    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ā)語言關系
  4. 講解VB.NET語言學習經(jīng)驗
  5. 淺析VB.NET語言到底帶來了什么

網(wǎng)站欄目：講解VB.NET COMBOBOX控件
URL地址：http://www.5511xx.com/article/dpeoecg.html