页面集合有多个页面我怎么用以下代码能显示像页面里面第一个哪样
Dim frm As WinForm.Form = Forms("页面集合")
Dim tab As WinForm.TabControl = frm.Controls("TabControl1")
Dim pag As WinForm.TabPage = tab.TabPages(0)
Dim bmp As New System.Drawing.Bitmap(20,20)
If bmp IsNot Nothing Then
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
g.FillEllipse(System.Drawing.Brushes.Gainsboro,0,0,20,20)
g.FillEllipse(System.Drawing.Brushes.white,1,1,18,18)
g.FillEllipse(System.Drawing.Brushes.red,2,2,15,15)
Dim fnt As New Font("宋体",8,System.Drawing.FontStyle.Bold)
Dim s As String = Tables("表a").Rows.Count
g.DrawString(s,fnt,System.Drawing.Brushes.white,2,4)
pag.Image= bmp
End If
[此贴子已经被作者于2016/3/14 17:35:08编辑过]
加好友 
发短信
Post By：2016/3/14 17:06:00 [显示全部帖子]
此主题相关图片如下：微信截图_20160314182118.png