程序编写中lb1的标签按钮在哪

发布于2022-01-12 19:59:33
5个回答
admin
网友回答2022-01-12
请按以下步骤操作:
打开vb新建一个工程,保存好
窗体上画一个一个命令按钮command1(命令按钮标题“隐藏”),一个标签label1,标签最好打几个字
双击命令按钮进入代码编辑器
写如下代码:
if command1.caption='隐藏' then
label1.visible=false
command1.caption='显示'
else
label1.visible=true
command1.caption='隐藏'
end if
admin
网友回答2022-01-12
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
admin
网友回答2022-01-12
以记事本为例:
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
admin
网友回答2022-01-12
你到底要实现什么?

想要只有点击移动按钮才可移动地图?

加个变量比如ox;
移动按钮在激活状态,ox值为1
移动按钮没激活,ox值为0
用移动函数前先检查ox的值是否为1

你有移动的图标和放大的图标吧
点移动的图标,在as里多加一句ox=1;
点别的图标,在as里多加一句ox=0;

在调移动函数前先判断一下ox的值
程序刚启动时,给ox加个默认值,默认值取决于你默认的是移动还是放大镜

虽然是菜鸟,不过这个功能不是很难,自己练吧,我就提示到这里了啊
admin
网友回答2022-01-12
Private Sub Command1_Click()Dim x As Long, y As Longx = 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 SelectEnd Sub

回到
顶部