- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]页面集合 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82252)
-- 发布时间：2016/3/14 17:06:00
-- [求助]页面集合
页面集合有多个页面我怎么用以下代码能显示像页面里面第一个哪样
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
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编辑过]
-- 发布时间：2016/3/14 17:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目9.table |
-- 发布时间：2016/3/14 18:24:00
-- 回复：（Hyphen）[upload=table,管理项目9.table]view...
像图片中这样的，第二个和第三个都这样显示，代码就是以上我发的，但是我不会改
此主题相关图片如下：微信截图_20160314182118.png
[此贴子已经被作者于2016/3/14 18:24:58编辑过]
-- 发布时间：2016/3/14 18:58:00
--
直接设置即可
e.Form.Controls("TabControl1").tabpages(1).image = getimage("test.jpg")
-- 发布时间：2018/2/8 14:58:00
--
请问大神，页签数量如何更改，系统默认的是3个
-- 发布时间：2018/2/8 15:11:00
--
以下是引用15528900289在2018/2/8 14:58:00的发言：
请问大神，页签数量如何更改，系统默认的是3个
请问大神，页签数量如何更改，系统默认的是3个
参考 http://www.foxtable.com/webhelp/scr/0828.htm