问题描述
'給ListView間隔顏色PublicSubSetListBKColor(ByRefLvAsSystem.Windows.Forms.ListView,ByRefPicBgAsSystem.Windows.Forms.PictureBox)DimiAsShortLv.Parent.ScaleMode=vbTwipsLv.ForeColor=System.Drawing.ColorTranslator.FromOle(&H403D39)WithPicBg.BackColor=Lv.BackColor.ScaleMode=vbTwips.BorderStyle=System.Windows.Forms.FormBorderStyle.None.AutoRedraw=True.Visible=False.Width=VB6.TwipsToPixelsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width).ScaleWidth=1.DrawWidth=1IfLv.Items.Count>100Then.Height=VB6.TwipsToPixelsY(Lv.Items.Item(1).Height*Lv.Items.Count).ScaleHeight=Lv.Items.CountFori=1ToLv.Items.CountIfiMod2=0ThenPicBg.Line(0,i-1)-(1,i),&HFBF9F8,BFElsePicBg.Line(0,i-1)-(1,i),&HF4EFEC,BFEndIfNextElse.Height=VB6.TwipsToPixelsY(225.0709*100).ScaleHeight=100Fori=1To100IfiMod2=0ThenPicBg.Line(0,i-1)-(1,i),&HFBF9F8,BFElsePicBg.Line(0,i-1)-(1,i),&HF4EFEC,BFEndIfNextEndIfLv.Picture=.ImageEndWithEndSub我做的是VB转VB.net不知道这些改如何替换。内部高度设置怎么也找不到，还有这个画图的颜色以及BF
解决方案
解决方案二：
你这段代码看上去又有vb又有.net1.你的PicBg是一个图片吗？如果是，画图就不能直接用BackColor之类，要用GraphicsUsing(Graphicsg=Graphics.FromImage(PicBg))g.Clear(Lv.BackColor)'用Lv.BackColor填充，也就是设置背景色g.DrawLine(Color.Red,0,i-1,1,i)'用红色画线，也可以通过newPen(Color.FromArgb())指定其他颜色EndUsing
2.如果要指定图像的高度，PicBg=NewBitmap(Width,Height)3.如果你的PicBg是一个PictureBox，你一定在按照vb的习惯编写.Net程序，请直接对Image对象进行处理4.vb和.Net是两种完全不同的语言，如果要学.Net，建议用C#而不是VB.Net
解决方案三：
PicBg是一个PictureBox这是公司以前的VB代码现在让我们转成VB.net。所以不会呢