您的位置：程序门 -> vb -> 基础类

如何用工具栏按钮给文本赋值？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何用工具栏按钮给文本赋值？ [已结贴,结贴人:cqheshuang]

发表于：2008-01-21 13:29:29 楼主

比如说：我新建了一个工具栏安钮　名为：命令1
命令1按钮有这些值：

iis服务命令：
iisreset /reboot 重启win2k计算机（但有提示系统将重启信息出现）
iisreset /start或stop 启动（停止）所有internet服务
iisreset /restart 停止然后重新启动所有internet服务
iisreset /status 显示所有internet服务状态
iisreset /enable或disable 在本地系统上启用（禁用）internet服务的重新启动
iisreset /rebootonerror 当启动、停止或重新启动internet服务时，若发生错误将重新开机
iisreset /noforce 若无法停止internet服务，将不会强制终止internet服务
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
我点了命令1后，直接把命令1里的内容赋值到文本text1或是list1，请问怎么写？

2.还有就是想问一下，如何写工具栏安钮，只要一点命令2就直接打开我所指定的文件夹。。。。。注意：不是以打开保存的那种方式出现，而是在本地电脑整个文件夹弹出来

3.我的text文本不能回车换行。。。怎么办？我想让文本到了右边最后就自动换行或是按回车　　　请问怎么办啊？

发表于：2008-01-21 14:18:111楼得分:20

vbscript code


private strdes   as string


private sub form_load（)
    strdes = "iis服务命令： "
    strdes = strdes + "iisreset       /reboot       重启win2k计算机（但有提示系统将重启信息出现）"
    strdes = strdes + "iisreset       /start或stop       启动（停止）所有internet服务"
    strdes = strdes + "iisreset       /restart       停止然后重新启动所有internet服务"
    strdes = strdes + "iisreset       /status       显示所有internet服务状态"
    strdes = strdes + "iisreset       /enable或disable       在本地系统上启用（禁用）internet服务的重新启动"
    strdes = strdes + "iisreset       /rebootonerror       当启动、停止或重新启动internet服务时，若发生错误将重新开机"
    strdes = strdes + "iisreset       /noforce       若无法停止internet服务，将不会强制终止internet服务"
end sub

private sub toolbar1_buttonclick（byval button as mscomctllib.button)
    select case lcase（button.key)
        case "cmd1"
            me.text1.text = strdes
        case "cmd2"
            shell "explorer e:\", vbnormalfocus
    end select
end sub

问题1,2 如上面代码所示

3.我的text文本不能回车换行。。。怎么办？我想让文本到了右边最后就自动换行或是按回车　　　请问怎么办啊？

textbox 的属性里面有一个属性multiline ,把它设为true 就可以了,也可以在form_load的代码块里面写上如下语句:text1.multiline = true

发表于：2008-01-21 17:21:102楼得分:0

谢谢了

发表于：2008-01-21 17:58:273楼得分:0

1楼。。。你看错了。。。
我是想把
iis服务命令：
iisreset /reboot 重启win2k计算机（但有提示系统将重启信息出现）
iisreset /start或stop 启动（停止）所有internet服务
iisreset /restart 停止然后重新启动所有internet服务
iisreset /status 显示所有internet服务状态
iisreset /enable或disable 在本地系统上启用（禁用）internet服务的重新启动
iisreset /rebootonerror 当启动、停止或重新启动internet服务时，若发生错误将重新开机
iisreset /noforce 若无法停止internet服务，将不会强制终止internet服务
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
这些字当文本那样赋给text1.text或是list1.list，让那些命令出现在text1.text框内，请问怎么办

发表于：2008-01-22 13:32:014楼得分:0

真的没人知道还是这样真的不行

发表于：2008-01-22 14:35:515楼得分:10

1楼的方法完全可以把你需要的内容写入textbox里面了，不知道你什么样的结果？

不过不是你期待的结果你应该变通！
private strdes（6） as string

private sub form_load（)

strdes（0) = "iisreset /reboot 重启win2k计算机（但有提示系统将重启信息出现）"
strdes（1)= "iisreset /start或stop 启动（停止）所有internet服务"
strdes（2)= "iisreset /restart 停止然后重新启动所有internet服务"
strdes（3)= "iisreset /status 显示所有internet服务状态"
strdes（4)= "iisreset /enable或disable 在本地系统上启用（禁用）internet服务的重新启动"
strdes（5)= "iisreset /rebootonerror 当启动、停止或重新启动internet服务时，若发生错误将重新开机"
strdes（6)= "iisreset /noforce 若无法停止internet服务，将不会强制终止internet服务"
end sub
private sub toolbar1_buttonclick（byval button as mscomctllib.button)
dim i as integer
select case lcase（button.key)
case "cmd1"
for i = 0 to ubound（strdes)
list1.add strdes（i)
next i
case "cmd2"
shell "explorer e:\", vbnormalfocus
end select
end sub

下一篇：我写了一个餐饮软件，有87m左右，在本论坛可以免费上传发布吗？
上一篇：vb6.0+sql 2005

其他资讯