使一个按钮具有开关二项功能,用basic语言如何实现?

Posted 2023-05-11

有二个系统函数Syscmd. row. lock（）和syscmd. row. unlock()要求在一个按钮上实观？
syscmd

按钮是窗体设计时常用的控件，打开窗体后，单击工具栏选中按钮控件，然后在设计窗口中单击左键，拖动一定大小区域就可以放置一个按钮了。如图所示：我们放置了一个Command1。

在按钮上单击左键可以选中该按钮，此时可以看到按钮四周有焦点，我们可以按住焦点调整按钮到我们想要的大小。按住左键可以拖动按钮到你想要的位置。如果要删除按钮，可以选中按钮后按Delete键或者在按钮上右键单击，在弹出的菜单里选择删除。

控件基本操作就是这样了，还有复制控件，粘贴后可以创建控件数组（会提示是否创建），如果不创建，则回复制一个大小和标题一样的控件。
一、按键的属性

单击按钮即可看到按钮的属性，按钮的常用属性不多，我们选择几个说明。

1、Name（名称）

和窗口一样，Name属性是按钮类的实例化，我们可以用【名称.属性/方法】来使用按钮控件。

2、Caption（标题）

按钮显示的标题，比如我们修改按钮标题为【按键示例】，可以看到如图：

3、Enabled（可用）、Visible（显示）

使能和显示按钮。

4、Left（位置X）、Top（位置Y）、Width（宽度）、Height（高度）

设置按钮的位置和大小。

二、按钮的事件

1、BN_Clicked事件

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) \'单击

End Sub
按钮基本是就是用的单击事件，其他事件很少用到。

三、使用示例

针对按钮属性，做一个示例。包括标题的设置、使能按钮，显示按钮和移动按钮，软件单击等 参考技术A 99-2020, CSDN.NET, All Rights Reserved

button
登录

jevylau
关注
Visual Basic中轻松打造绚丽按钮 转载
2007-02-25 10:50:00

jevylau

码龄14年

关注
　　控件下载

　　简介：一个非常Cool的皮肤控件，可以将你窗体中的CommandButton的样式改变为XP、Java等等。推荐下载。

　　使用示例

　　想让你的程序更加吸引眼球吗？想在你的程序中打造类似Windows XP、Java、Flat风格的按钮吗？只要在你的程序中加上BSE控件，简简单单的一行代码，就可以轻松实现多达16种风格的按钮，完全使你抛弃了繁杂的代码！下面我们就结合一个实例来说明使用方法，并展示该控件实现的强大功能！

　　BSE控件一个可以实现15种不同的风格，通过设置控件的SchemeStyle属性，我们可以很容易的控制窗口界面中CommandButton的风格。SchemeStyle的属性设置与其实现风格的对应关系如表一所示:

SchemeStyle属性 效果风格及说明
0 Windows XP Blue Scheme Button Style
1 Windows XP Olive Green Scheme Button Style
2 Windows XP Silver Scheme Button Style
3 Windows Flat Scheme Button Style
4 Windows Hover Scheme Button Style
5 Netscape Scheme Button Style
6 Java Scheme Button Style
7 Windows OLD 3.x Scheme Button Style
8 Office XP Blue Scheme Button Style
9 Office XP OliveGreen Scheme Button Style
10 Office XP Silver Scheme Button Style
11 Office XP SystemColor Scheme Button Style
12 WindowsXP InternetExplorer Scheme Button Style
13 Gradient Scheme Button Style
（渐变色背景风格）
14 Alien Scheme Button Style
（具有金属质感的按钮）
15 Bitmap Pattern Scheme Button Style
（实现按钮的背景，独立于按钮本身的Picture）

　　了解了按钮的风格后，我们就可以根据自己的喜好随心所欲地设置风格了。

　　第一步：首先启动Visual Basic 6.0，新建一个窗口。
　　
　　第二步：加载BSE控件，设置其属性。

　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到BSE控件，载入它；把它添加到Form1窗体中任意位置即可。

　　②修改BSE控件属性。在BSE控件上单击右键，选择“属性”。在弹出的属性页设置窗口中选择“Options”，如图1，根据需要自行设置其中属性。

　　其中，设置“Pattern Bitmap Images”的图片仅当SchemeStyle值设置为15时有效，它就是按钮显示的背景图片。“Gradient Scheme Options”仅当SchemeStyle值设置为13时有效，它可以设置背景渐变色的方向和起始、终止颜色。“Border Highlight Effect Options”可以设置部分风格的按钮点击时的边框颜色。

　　第三步：加载其他控件，完成界面的设置。

　　①在窗体中添加4个CommandButton控件，名称分别为Command1、Command2、Command3、Command4，其中设置后两个按钮的Style属性为“1－Gradical”，再设置它们的picture，为它们添加两个合适的图片（如图2）。按钮的其他设置具体参看图2。

　　②添加一个option控件数组，名称为“option1”，index从0到15。caption设置如图2所示。

　　到这里就完成了这个演示程序的界面设置，接着进行代码的编写。

　　第四步：编写代码，实现具体的功能。

　　①编写Form1的Load事件，使程序启动时commandbutton显示为您说设置的风格，这里采用第一种风格，即Windows XP Blue风格。代码如下：

　　Private Sub Form_Load()
　　　BSE1.SchemeStyle = 0
　　　BSE1.EndSubClassing
　　　BSE1.InitSubClassing
　　End Sub

　　②添加option控件数组的事件，使可以根据选择option来转换commandbutton的不同风格。

　　Private Sub Option1_Click(Index As Integer)
　　　BSE1.SchemeStyle = Index
　　　BSE1.EndSubClassing
　　　BSE1.InitSubClassing
　　End Sub

　　③编写退出程序的代码，再Command4的Click事件中加入如下代码：

　　If BSE1.EngineStarted Then
　　　BSE1.EndSubClassing '卸载BSE控件
　　End If
　　Unload Me

　　到这里，这个简单的演示程序就完成了，是不是很简单呢？只要短短的几行代码就可以实现如此酷的按钮。快按下F5，看看效果吧

根据按钮状态执行代码

【中文标题】根据按钮状态执行代码

【英文标题】：execute code depending on state of button

【发布时间】：2014-01-11 23:08:31

【问题描述】：

当谈到 jquery 时，我是一个糟糕的新手，我正在尝试构建一个在悬停时播放独特声音的菜单（由具有相同类的多个 div 组成）。这部分工作感谢some help from here。

现在我还想在该页面的某处添加一个开关（不是复选框），根据其状态禁用此功能（如开关）

这是我如何做声音部分的：

<div class="trigger">
    <audio class="sound" preload="auto">
        <source src="sound1.mp3"></source>
        <source src="sound1.ogg"></source>
    </audio>
</div>

<div class="trigger">
    <audio class="sound" preload="auto">
         <source src="sound2.mp3"></source>
         <source src="sound2.ogg"></source>
    </audio>
</div>

jquery:

$('.trigger').hover(
    function() 
        sound = $(this).children()[0];
        sound.play();
    , function() 
        sound.pause();
        sound.currentTime = 0;
    
);

至于切换按钮部分，我想我需要这样的东西。如果是这样，我不知道如何“混合”这两个功能:)

$("#toggle_button").click(function()
    if($("#OnOffDiv").hasClass("On"))
    
        $("#OnOffDiv").removeClass("On");
        $("#OnOffDiv").addClass("Off");
        DO SOMETHING
);

    
    else
    
        $("#OnOffDiv").removeClass("Off");
        $("#OnOffDiv").addClass("On");
        $("#OnOffDiv").html("ON");
        DO SOMETHING ELSE
    
);

如有任何帮助，我将不胜感激。

【参考方案1】：

您可以使用toggleClass() 修剪该切换部分脚本：

$("#toggle_button").click(function () 
    $('#OnOffDiv').toggleClass('on off').text($('#OnOffDiv').attr('class'));
);

然后在您的悬停事件中，只需检查 $('#OnOffDiv').hasClass('on'):

$('.trigger').hover(function () 
    if ($('#OnOffDiv').hasClass('on')) 
        sound = $(this).children()[0];
        sound.play();
    
, function () 
    sound.pause();
    sound.currentTime = 0;
);

【参考方案2】：

首先，您只需要为按钮打开时设置一个 css 规则，因为您应该为处于默认状态的按钮设置一个规则。所以现在你应该有这个：

$("#toggle_button").click(function()
    $("toggle_button").toggleClass("on");
);

Alos，你真的不需要一个完整的 div 来存储这些信息。请注意该代码如何更改 toggle_button 的类而不是 OnOffDiv 的类。

你现在注意到什么了吗？当toggle_button 打开时，它有一个on 类。当它关闭时，它不会。这意味着您可以将toggle_button 本身用作变量！

所以现在，如果$(#toggle_button).hasClass("on") 返回true，您的悬停代码应该可以工作。当hasClass("on") 返回false 时，它不应该做任何事情，或者以不同的方式处理悬停。

由于您是新手，我会让您自己完成代码，以便您从中学习。我给了你一切你需要让它工作。如果你真的不能自己解决，请发表评论，我会给你解决方案。