以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态增加的控件的大小  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129317)
--  作者：cd_tdh
--  发布时间：2018/12/26 9:40:00
--  动态增加的控件的大小
1、动态增加的PictureBox1怎么设置大小？
2、我以下代码修改了panel背景色，怎么效果是这样呢，我想空间外都采用panel的背景色？
 
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20181226095213.png
图片点击可在新窗口打开查看
 
Dim pal1 As WinForm.Panel
pal1 =frm.CreateControl("Panel1",ControlTypeEnum.Panel)
pal1.dock = 1  \'锚定
pal1.Height= 100 \'页面高度
frm.AddControl(pal1)  \'增加Panel
pal1.BackColor = Color.Red  \'背景色
Dim pic As WinForm.PictureBox
pic = e.Form.CreateControl("PictureBox1", ControlTypeEnum.PictureBox)
pic.Left = 2
pic.Top = 20
e.Form.Controls("Panel1").AddControl(pic)
pic.BindingField = "账号密码.头像"
Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "用户"
lbl.Left = 70
lbl.Top = 20
e.Form.AddControl(lbl)
lbl = e.Form.CreateControl("lable2", ControlTypeEnum.Label)
lbl.Text = "部门"
lbl.Left = 70
lbl.Top = 50
e.Form.AddControl(lbl)
lbl = e.Form.CreateControl("lable3", ControlTypeEnum.Label)
lbl.Text = "职务"
lbl.Left = 70
lbl.Top = 80
e.Form.AddControl(lbl)
e.Form.Controls("lable1").Text = "用户:" & _UserXingMing & ""
e.Form.Controls("lable2").Text = "部门:" & _UserGroup & ""
e.Form.Controls("lable3").Text = "职务:" & _UserPost &""

[此贴子已经被作者于2018/12/26 9:55:19编辑过]
--  作者：有点蓝
--  发布时间：2018/12/26 10:03:00
--  
http://www.foxtable.com/webhelp/scr/0823.htm
--  作者：cd_tdh
--  发布时间：2018/12/26 10:19:00
--  

创建后的控件大小还需要设置吗？

字多了，会分为两行

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20181226101724.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/12/26 10:26:00
--  
根据需要调整咯！
--  作者：cd_tdh
--  发布时间：2018/12/26 13:51:00
--  

老师，麻烦看看我这个有什么问题？动态增加的PictureBox1，绑定到头像列后，我更换头像后，PictureBox1不显示头像是怎么回事呢？

头像是放到服务器上的

PictureBox1怎么用代码启动远程文件，设置地址，用户名及密码呢？

 

 

自己找到了

 

http://www.foxtable.com/webhelp/scr/2701.htm

 

[此贴子已经被作者于2018/12/26 14:36:17编辑过]