-
-
VisualFreeBasic控件_ToolBar 工具栏 在窗口顶部，搞一组按钮，称为工具栏。 在属性中，点击按钮项目来编辑按钮，按钮样式和状态比较多，效果如何，自己可以一个一个测试查看，这里就不过多阐述。 用户点击按钮后的事件，VFB会自动产生 Select 代码 Sub Form1_ToolBar1_WM_Command(hWndForm As hWnd,wID As ULong) Select Case wID Case Form1_ToolBar1_Button_1 ' 文字11 Case Form1_ToolBar1_Button_2 ' 文字222 End Select End Sub 常用属性： ToolBar1.AddButton 新增按钮 ToolBar1.ButtonText(Form1_ToolBar1_Button_1) 按钮文字 ToolBar1.ButtonEnabled(Form1_ToolBar1_Button_1) 禁用按钮 其中 Form1_ToolBar1_Button_1 是按钮项目 -
VisualFreeBasic控件_PopupMenu 弹出菜单 主要用于一些控件右键点击，弹出一个菜单来。运行时，并不会显示菜单控件 和窗口菜单一样，点击菜单项目，来编辑菜单 弹出菜单 在需要弹出菜单中，写代码弹出菜单 PopupMenu1.PopupMenu 还可以指定位置弹出菜单 PopupMenu1.PopupMenu(form1.hwnd,x,y) 菜单事件 用户点击菜单，在菜单事件中处理 Sub Form1_PopupMenu1_WM_Command(hWndForm As hWnd,wID As ULong) Select Case wID Case Form1_PopupMenu1_Menu1 ' 新菜单0 Case Form1_PopupMenu1_Menu2 ' 新菜单1 Case Form1_PopupMenu1_Menu3 ' 新菜单2 Case Form1_PopupMenu1_Menu4 ' 新菜单3 End Select End Sub 代码添加菜单 菜单项命令ID，每个项目都不同，不可重复 PopupMenu1.AddMenu(0, "菜单文字", 菜单项命令ID) 当需要给某个菜单项目增加子菜单 PopupMenu1.AddMenu(父菜单项命令ID, "菜单文字", 子菜单项命令ID) 然后在代码中使用 菜单项命令ID = PopupMenu1.PopupMenu() Select Case 菜单项命令ID Case 100 Case 101 End Select 常用属性 PopupMenu1.Enabled(Form1_PopupMenu1_Menu1 ) = True PopupMenu1.Check(Form1_PopupMenu1_Menu1 ) = True 菜单快捷键 注：菜单快捷键只有在主窗口的菜单控件才生效，其它如 副窗口、从窗口 等不会生效。 控件在主窗口上（就是软件第一个启动的窗口）快捷键才有效果。 当主窗口在前台时候，按下快捷键，就会产生相关的菜单事件。主窗口不在前台，按快捷键是无效的，你需要全局快捷键，可以使用“快捷键”控件，VFB里有。 菜单快捷键和其它控件冲突 比方，edit控件，你菜单设置了 Ctrl+c ，那么控件中无法执行复制，而是产生菜单事件，你可以在菜单事件中判断，当前焦点的控件，是不是 edit控件，然后由你决定是发消息给 EDIT控件 处理还是什么的。 支持矢量图标 可以直接添加矢量图标 图标制作 使用 VisualFreeBasic 自带的 【矢量图标编辑器】 编辑一个，里面自带了很多图标，可以复制过来即可 -
VisualFreeBasic控件_TopMenu 窗口菜单 对于菜单，相信大家都熟悉，这个是在窗口上面的菜单 点击属性，来编辑菜单。 文字： 就是显示在菜单上面 名称： 这是代码中用来控制菜单的 编辑好菜单后，双击设计窗口上的菜单，进入菜单事件 菜单代码自动产生，不需要你写。你只需要写业务代码即可 Sub Form1_TopMenu1_WM_Command(hWndForm As hWnd,wID As ULong) Select Case wID Case Form1_TopMenu1_Menu1 ' 新菜单0 Case Form1_TopMenu1_Menu2 ' 新菜单1 Case Form1_TopMenu1_Menu3 ' 新菜单2 End Select End Sub 常用属性： TopMenu1.Enabled(Form1_TopMenu1_Menu1) = True TopMenu1.Check(Form1_TopMenu1_Menu1) = True 其中 Form1_TopMenu1_Menu1 是菜单名称，是表示菜单项目。 菜单快捷键 注：菜单快捷键只有在主窗口的菜单控件才生效，其它如 副窗口、从窗口 等不会生效。 控件在主窗口上（就是软件第一个启动的窗口）快捷键才有效果。 当主窗口在前台时候，按下快捷键，就会产生相关的菜单事件。主窗口不在前台，按快捷键是无效的，你需要全局快捷键，可以使用“快捷键”控件，VFB里有。 菜单快捷键和其它控件冲突 比方，edit控件，你菜单设置了 Ctrl+c ，那么控件中无法执行复制，而是产生菜单事件，你可以在菜单事件中判断，当前焦点的控件，是不是 edit控件，然后由你决定是发消息给 EDIT控件 处理还是什么的。 支持矢量图标 可以直接添加矢量图标 图标制作 使用 VisualFreeBasic 自带的 【矢量图标编辑器】 编辑一个，里面自带了很多图标，可以复制过来即可 -
VisualFreeBasic控件_Timer 定时器 主要用于每隔一段时间，执行一些代码。 这只有事件，运行时是没有任何画面的，设置一个时间（毫秒为单位） 设定时间后，每隔这个时间，触发一次下面事件 Sub Form1_Timer1_WM_Timer(hWndForm As hWnd, wTimerID As Long) 这里执行代码 End Sub 常用属性： Timer1.Enabled 允许或禁用定时器 Timer1.Interval 设置间隔时间(毫秒) 注意：设置的时间，是非精准时间，比方设置了 100 毫秒，可能 10毫秒、可能200毫秒，也可能几秒，完全不准的，只能是努力接近 100 毫秒。 那为什么会差别巨大，主要这个是属于系统空闲定时，当系统比较空闲时，就比较准点，要是系统非常忙碌，那就很没准了。比方你在定时时间中，执行了比较耗时的代码，那么就肯定造成时间不准。 精确计时，可以使用 API ：GetTickCount tt = GetTickCount() '获取开机时间，毫秒单位 -
VisualFreeBasic控件_Picture 画板 用于代码绘画的画板 控件只是空白一片（实际上是属于一个子窗口） 需要在绘画事件中，写画画代码。如何用代码画画，请看代码篇里的相关教程。 Function Form1_Picture1_WM_Paint(hWndForm As hWnd, hWndControl As hWnd) As LResult Dim gg As yGDI = yGDI(hWndControl, GetSysColor(COLOR_WINDOW),True) 'WM_PAINT事件里必须用这行初始化 yGDI '若不用 yGDI 也可以直接使用API，必须使用 BeginPaint 初始化才能画，然后返回 TRUE，没有这样绘画的必须返回零。 'Dim ps As PAINTSTRUCT 'Dim nDC As HDC = BeginPaint(hWndControl, @ps) '初始化并获取DC 'EndPaint(hWndControl, @ps) '结束绘画 Function = TRUE ' 告诉系统，我们自绘了（yGDI必须WM_PAINT初始化，若API必须用BeginPaint初始化），不需要系统绘画。 End Function 当控件被显示时，就会触发此事件，然后你在这里画画，就显示出画的内容了。 何时需要画，是操作系统根据情况来触发本事件的，假如要手动触发事件，那么用下列代码 Picture1.Refresh 常用事件：单击、双击、鼠标移动，鼠标按下、鼠标释放 等 常用属性：Picture1.Refresh 自己画，配合鼠标事件，可以做任何事情，可以写控件，可以写。。。 -
VisualFreeBasic控件_Scroll 滚动条 滚动条，分为垂直滚动条和水平滚动条（配图中是WIn11系统的，当是难看，不如，WIn7、XP 等漂亮多了） 通常用于窗口无法显示全部内容，可以用滚动条来调节显示位置 常用事件 调节滚动条位置发生事件 Sub Form1_VScroll1_Change(hWndForm As hWnd, hWndControl As hWnd, vNewPos As Long, nScrollCode As Long ) End Sub 常用属性 VScroll1.nMax 最大值 VScroll1.nMin 最小值 VScroll1.Value 滚动位置 -
VisualFreeBasic控件_Combo 下拉列表框 本控件，其实是一个组合控件，由3个控件组成的一个功能性控件 组合1：Lable标签 + Command按钮 + ListBox列表框 隐藏ListBox列表框，点击右边Command按钮，显示ListBox列表框 组合2：Txt文本 + Command按钮 + ListBox列表框 隐藏ListBox列表框，点击右边Command按钮，显示ListBox列表框 组合3：Txt文本 + ListBox列表框 一直显示ListBox列表框 各种组合效果，可以自己设置属性后，运行软件查看效果 添加列表数据，有2种方式 在属性里设置 用代码添加 Combo1.AddItem "列表数据1" Combo1.AddItem "列表数据2" Combo1.AddItem "列表数据3" 主要事件：点击列表框 Sub Form1_Combo1_CBN_SelChange(hWndForm As hWnd, hWndControl As hWnd) End Sub 主要属性： Combo1.AddItem 新增列表数据 Combo1.ListIndex 列表选择索引,从0开始,=-1 时表示没选择 Combo1.ListCount 列表数据个数 自己写代码对控件绘画 系统提供的，只是简单的列表显示，需要特殊的显示，比如：显示图标，不同颜色等等，就需要自己绘画了。 在设计属性中，选择自绘，固定和可变是指列表项目的行高，是每行都相同或每行都可以不同 设置自绘，必须是设计时设置，运行软件中，无法修改。 当系统需要绘画时，就会触发自绘事件 Function Form1_Combo1_OwnerDraw(hWndForm As hWnd, hWndControl As hWnd,lpdis As DRAWITEMSTRUCT) As LResult 在这个事件里画，每次只画列表的一个项目。还有一个控件本身，因此这个事件每次触发很多次。 Function = FALSE ' 如果处理了此事件，则应返回 TRUE 。 End Function VFB里属性页面，控件列表下拉选择，就是 Combo 控件自绘 -
VisualFreeBasic控件_List 列表框 用来显示列表，如同一维数组显示，当显示的数据超过窗口，列表框它知道添加一个垂直滚动条。 添加数据，可以在设计属性里添加，或代码添加 代码添加数据 List1.AddItem “新增列表数据” 常用事件 点击列表事件 Sub Form1_List1_LBN_SelChange(hWndForm As hWnd, hWndControl As hWnd) End Sub 常用属性和功能 List1.AddItem 新增列表数据 List1.ListIndex 列表选择索引,从0开始,=-1 时表示没选择 List1.ListCount 列表数据个数 List1.Clear 清除所有项目 List1.RemoveItem 删除一个项目 自绘 需要在设计属性中，选上自绘。 然后在自绘事件里绘画，一次事件画一行内容，在可显示区内，显示多少行，就会触发多少次事件。 -
