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

Question

比如说：我新建了一个工具栏安钮　名为：命令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文本不能回车换行怎么办？我想让文本到了右边最后就自动换行或是按回车　　　请问怎么办啊？

Answer 1

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 SubPrivate 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

Answer 2

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框内，请问怎么办

Answer 3

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