以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5) ---- VBA文本显示 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=96257) |
-- 作者:黄金精算师 -- 发布时间:2016/4/14 10:20:52 -- VBA文本显示 你好可以帮看一下下VBA文本显示吗? 想在格子里显示33333 Sub UserForm1_CommandButton1_Click()
\'主控策略暂停或运行
if UserForm1_CommandButton1.Caption="运行中" then \'
if UserForm1_CommandButton4.Caption="运行中" then
iRun=0
\'暂停
UserForm1_CommandButton1.Caption="暂停中"
UserForm1_CommandButton1.backcolor=rgb(255,0,0)
else
iRun=1
\'运行
UserForm1_CommandButton1.Caption="运行中"
UserForm1_CommandButton1.backcolor=rgb(0,255,0)
end if End Sub \'VBA启动时执行,用于对变量进行初始赋值、设置计时器等 Sub APPLICATION_VBAStart()
iRun=0
\'默认值设置为0,就是不启动 UserForm1.Show
\'打开主控窗体
TextBox1=33333 \'主控窗体有个显示窗,属姓名为:TextBox1,我想在这个格子里显示33333 End Sub |
-- 作者:yukizzc -- 发布时间:2016/4/14 10:39:01 -- UserForm1_TextBox1.text = 333 [此贴子已经被作者于2016/4/14 10:40:03编辑过]
|
-- 作者:黄金精算师 -- 发布时间:2016/4/14 10:51:36 -- 谢谢,谢谢,谢谢,成了 |