| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- VBA文本显示 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=96257) |
| -- 作者：黄金精算师 -- 发布时间：2016/4/14 10:20:52 -- VBA文本显示 你好可以帮看一下下VBA文本显示吗？ 想在格子里显示３３３３３ 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，我想在这个格子里显示３３３３３ 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 -- 谢谢，谢谢，谢谢，成了 |