请按以下步骤操作: 打开vb新建一个工程,保存好 窗体上画一个一个命令按钮command1(命令按钮标题“隐藏”),一个标签label1,标签最好打几个字 双击命令按钮进入代码编辑器 写如下代码: if command1.caption='隐藏' then label1.visible=false command1.caption='显示' else label1.visible=true command1.caption='隐藏' end if
Private Sub Command1_Click() dim x as long, y as long x=val(inputbox(请输入x坐标)) y=val(inputbox(请输入y坐标)) select case sgn(x)+2*sgn(y) case 3 print 在第一象限 case 1 print 在第二象限 case -3 print 在第三象限 case -1 print 在第四象限 case else print 不在象限内 end select End Sub
以记事本为例: Private Sub Command1_Click() Static task As Object If task Is Nothing Then Dim WshShell Set WshShell = CreateObject(Wscript.Shell) Set task = WshShell.Exec(notepad) Else task.Terminate Set task = Nothing End IfEnd Sub