Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
请各位帮忙!先是动态加载了一组含图片的单选框,再删除所有单选框,再增加一组单选框,其中会出现闪动,如何解决?
另外如何用代码判断此窗口共有几个单选框?(单选框动态加载时都含“single"+数字的组合命名的),谢谢各位帮忙!
增删控件前用StopRedraw停止绘制窗口,操作结束后用ResumeRedraw重绘窗口。
我试试,谢谢两位!
增删控件前用StopRedraw停止绘制窗口,操作结束后用ResumeRedraw重绘窗口。
在什么事件中使用,另外请教 另外如何用代码判断此窗口共有几个单选框?(单选框动态加载时都含“single"+数字的组合命名的),
这是避免重复添加,在添加前先删除控件,避免报错的两段示例代码,或许对您有帮助:
方法一:
Dim Multi As String = "A|B|C|D|E|F|G|H|I|JD1|JD2"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
if e.Form.ExistControl(Values(Index)) = true
e.Form.RemoveControl(Values(Index))
end if
Next
方法二:
For Index As Integer = 1 To 25
if e.Form.ExistControl("Painter" & Index) = true
e.Form.RemoveControl("Painter" & Index)
end if
Next
注:方法二需要控件名称有一定的规律性,但方便很多!
这是避免重复添加,在添加前先删除控件,避免报错的两段示例代码,或许对您有帮助:
方法一:
Dim Multi As String = "A|B|C|D|E|F|G|H|I|JD1|JD2"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
if e.Form.ExistControl(Values(Index)) = true
e.Form.RemoveControl(Values(Index))
end if
Next
方法二:
For Index As Integer = 1 To 25
if e.Form.ExistControl("Painter" & Index) = true
e.Form.RemoveControl("Painter" & Index)
end if
Next
注:方法二需要控件名称有一定的规律性,但方便很多!
收藏