combobox 控件怎么显示外部的图片
Dim mFileInfo As FileInfo Dim mDirInfo As New DirectoryInfo(Application.StartupPath & "\Programs\Head") Dim DrawFile As Bitmap Dim Rec As Drawing.Rectangle = New Drawing.Rectangle(2, 2, 98, 98) tFace.DrawMode = DrawMode.OwnerDrawFixed For Each mFileInfo In mDirInfo.GetFiles() DrawFile = New Bitmap(New Drawing.Bitmap(mFileInfo.FullName))'得到所有图片列表并循环 Next