Foxtable(狐表)用户栏目专家坐堂 → [求助]锚定的内部函数


  共有6083人关注过本帖平板打印复制链接

主题:[求助]锚定的内部函数

帅哥哟,离线,有人找我吗?
2425004926
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5553 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]锚定的内部函数  发帖心情 Post By:2022/8/27 13:40:00 [只看该作者]

老师,我动态增加控件,如果是在下方,或者右方,是要锚定的,我想写一个锚定的内部函数

比如Args(1)的值是“left|Bottom",我写下面的内部函数不行,应该怎么写?

Dim sz() As Object = Args(1).Split("|")
Dim e = Args(0)
If sz.Length = 2 Then
    Args(0).Form.Controls("").Anchor = CType(System.Windows.Forms.AnchorStyles.sz(0) Or System.Windows.Forms.AnchorStyles.sz(1), System.Windows.Forms.AnchorStyles)
ElseIf sz.Length = 3 Then
    Args(0).Form.Controls("").Anchor = CType(System.Windows.Forms.AnchorStyles.sz(0) Or System.Windows.Forms.AnchorStyles.sz(1) Or System.Windows.Forms.AnchorStyles.sz(2), System.Windows.Forms.AnchorStyles)
ElseIf sz.Length = 4 Then
    Args(0).Form.Controls("").Anchor = CType(System.Windows.Forms.AnchorStyles.sz(0) Or System.Windows.Forms.AnchorStyles.sz(1) Or System.Windows.Forms.AnchorStyles.sz(2) Or System.Windows.Forms.AnchorStyles.sz(3), System.Windows.Forms.AnchorStyles)
End if

 回到顶部