主题：[求助]关于 欢迎界面的问题！（例子已发，请程版过目）

两种方法:

一:直接调用tab控件的底层控件设置背景图片

Dim TabCtl As C1.Win.C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
TabCtl.TabPages(0).BackgroundImage = GetImage("背景2.jpg")

窗口的AfterLoad事件加上这两句代码之后设置好背景图片,然后用Label控件可以显示出来透明效果

 
此主题相关图片如下：1.jpg

二:用GDI+绘制背景图片与文本

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage("背景1.jpg"),0,0,e.Form.BaseForm.Width,e.Form.BaseForm.Height)
'DrawString(ByVal s As String, ByVal font As System.Drawing.Font, ByVal brush As System.Drawing.Brush, ByVal x As Single, ByVal y As Single)
'画两次是为了做出阴影效果
g.DrawString("欢迎进入",New Font("宋体",16,FontStyle.Bold Or FontStyle.Italic),Brushes.Blue,330,200)
g.DrawString("欢迎进入",New Font("宋体",16,FontStyle.Bold Or FontStyle.Italic),Brushes.Blue,331,201)
g.DrawString("通用",New Font("黑体",26,FontStyle.Bold),Brushes.Blue,382,232)
g.DrawString("通用",New Font("黑体",26,FontStyle.Bold),Brushes.Blue,380,230)
g.DrawString("ERP",New Font("宋体",30,FontStyle.Bold Or FontStyle.Italic),Brushes.Red,452,227)
g.DrawString("ERP",New Font("宋体",30,FontStyle.Bold Or FontStyle.Italic),Brushes.Red,450,225)
g.DrawString("管理系统",New Font("黑体",26,FontStyle.Bold),Brushes.Blue,522,232)
g.DrawString("管理系统",New Font("黑体",26,FontStyle.Bold),Brushes.Blue,520,230)
p.Repaint()

也是窗口的AfterLoad事件

 

此主题相关图片如下：2.jpg

爱死你了 飞飞！！

问题解决了~~~  泡杯茶 研究你的代码