VisualFreeBASIC基础——按钮的使用

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

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

三、使用示例

    针对按钮属性，做一个示例。包括标题的设置、使能按钮，显示按钮和移动按钮，软件单击等。窗体设计如下：

    代码如下：

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    AfxMsg "你单击我啦!   单击时间:" & Time,"提示"
End Sub

Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    Command1.Caption = "新的标题"    
End Sub

Sub Form1_Command3_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    if Command1.Enabled Then
        Command1.Enabled = False
    Else
        Command1.Enabled = True 
    End If
End Sub

Sub Form1_Command4_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    if Command1.Visible Then
        Command1.Visible = False
    Else
        Command1.Visible = True 
    End If    
End Sub

Sub Form1_Command5_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    Command1.Move 0,0,100,40
End Sub

Sub Form1_Command6_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    Command1.Click
End Sub

运行效果：

完整工程下载：

https://github.com/rainheart311/VisualFreeBASIC/tree/master/Button