中间的分割条闪烁,没办法处理
Dim pp = e.Form.Controls("SplitContainer1")
'pp.baseControl.backgroundimage = getimage(ProjectPath & "images/infotouch.jpg")
'pp.baseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Dim p = e.Form.Controls("SplitContainer1")
p.baseControl.Gettype().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl,True,Nothing)
p.baseControl.panel1.Gettype().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl.panel1,True,Nothing)
p.baseControl.panel2.Gettype().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl.panel2,True,Nothing)
e.form.baseform.windowstate = 2
[此贴子已经被作者于2019/4/18 10:25:09编辑过]