VB中怎么调用其他Sub中的数
PrivateSubCommand1_Click()DimccAsSinglecc=InputBox("速度","速度")cc=cc*17Timer1.Enabled=T...
Private Sub Command1_Click()
Dim cc As Single
cc = InputBox("速度", "速度")
cc = cc * 17
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + cc
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
其中“Label1.Left = Label1.Left + cc”怎样才能调用sub command1-click（）里的cc？？ 展开
Dim cc As Single
cc = InputBox("速度", "速度")
cc = cc * 17
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + cc
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
其中“Label1.Left = Label1.Left + cc”怎样才能调用sub command1-click（）里的cc？？ 展开
4个回答
展开全部
Dim cc As Single '放到外面
Private Sub Command1_Click()
cc = InputBox("速度", "速度")
cc = cc * 17
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + cc
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
展开全部
Dim cc As Single
Private Sub Command1_Click()
cc = InputBox("速度", "速度")
cc = cc * 17
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + cc
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
Private Sub Command1_Click()
cc = InputBox("速度", "速度")
cc = cc * 17
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + cc
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
cc定位为全局变量
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
把cc写在代码页面的最上面。dim cc as interest
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
