-
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 删除一个项目 自绘 需要在设计属性中，选上自绘。 然后在自绘事件里绘画，一次事件画一行内容，在可显示区内，显示多少行，就会触发多少次事件。 -
-
VisualFreeBasic控件_Check 选择 选择和不选择控件，选择时，左边会打勾。 一般用于软件中的选项 常用事件，是用户点击事件。 '[Form1.Check1]事件 : 单击 'hWndForm 当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码) 'hWndControl 当前控件的句柄(也是窗口句柄，如果多开本窗口，必须 Me.控件名.hWndForm = hWndForm 后才可以执行后续操作本控件的代码 ) Sub Form1_Check1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) End Sub 常用属性是获取或设置“选择”或“不选择” Check1.Value = True Dim aa As Long aa = Check1.Value -
-
VisualFreeBasic控件_Command 按钮 按钮，是用让用户按的，就是鼠标去点击。 用户点击按钮后，有个按钮事件，我们在事件里，写用户点击按钮以后要处理的代码功能 设计窗口，双击按钮，就进入到事件代码 '[Form1.Command1]事件 : 单击 'hWndForm 当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码) 'hWndControl 当前控件的句柄(也是窗口句柄，如果多开本窗口，必须 Me.控件名.hWndForm = hWndForm 后才可以执行后续操作本控件的代码 ) Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) 这里写事件要处理的代码 End Sub 按钮常见属性，就是 Command1.Caption ="按钮文字" Command1.Enabled = True Command1.Visible = True -
-
VisualFreeBasic控件_Image 图像 在窗口中，显示一幅图像。 在属性里选择，会打开图像管理器，添加一个图像文件（此图像文件会被打包入EXE中） 假如需要加载图像文件显示，就需要写代码 Image1.Picture = App.Path & "图片文件.png" 支持矢量图标 Image1.VIco ="a00102TP.7YUXdY_bn_ibnas`naiXd+a201.:_Ubn_U`Zas`Z+a.42Ss.7\FZZ`ZZZ+a*6Zd\F`Z\F+a*8]_`Z]_+a*8_A`Z_A+a*7g`n^d`n+a101.:XFWiXFaiU_aiUAaUUAUsUUUUW_UUW_WK+a*5PUU]AUU]AWA\dWKXnWKXPVn+a*4]sUU_sUU`FUi`FWK]sWL+f.41Ss.7[jUd[rSpY`SjYcU`" 图标制作 使用 VisualFreeBasic 自带的 【矢量图标编辑器】 编辑一个，里面自带了很多图标，可以复制过来即可