|
#2
xiangyue05102015-12-03 12:53
参考一下这段代码，现在没有条件替你测试。
另外一种方式就是VScroll1一直在，根据是否需要使用，修改其Visibility属性。  程序代码：dim oControl as Object '窗体级变量 Private Sub LoadControl() Set oControl = Controls.Add ("VB. CommandButton", "MyButton") oControl.Visible = True End Sub Private Sub oControl_ObjectEvent(Info As EventInfo) Select Case Info.Name Case "Click" 'Click事件 '您可以添加处理Click事件代码 MsgBox "您按了MyButton!" Case Else ' 其他事件 ' Handle unknown events here. End Select End Sub |
Set Frame0 = Controls.Add("VB.frame", "Frame0") '创建能整体移动的frame
' Set Frame0.Container = Form1
Frame0.Move 400, 1000, 4000, 5000
Frame0.BackColor = &HFFFFF
Frame0.Visible = True
Set VScroll1 = Controls.Add("VB.VScrollbar", "VScroll1") '创建能控件frame移动的滚动条
' Set VScroll1.Container = Form
VScroll1.Move Frame0.Width + 400, 1000, 400, Frame0.Height
VScroll1.TabStop = False
VScroll1.Visible = True
VScroll1.Min = 0
VScroll1.Max = Frame0.Height
VScroll1.SmallChange = 100
VScroll1.LargeChange = Frame0.Height
End Sub
Private Sub VScroll1_Change()
Frame0.Move 400, -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll() '请问对于动态创建的可不可以这样写Private Sub VScroll1_Scroll()
Frame0.Move 400, -VScroll1.Value
End Sub
[此贴子已经被作者于2015-12-5 11:32编辑过]
