-
VisualFreeBasic指南_代码库 什么是代码库 在编程中，代码库是一组可重复使用的代码模块、函数、类等的集合。它可以帮助程序员提高开发效率，避免重复编写相同的代码。代码库可以是编程语言自带的标准库，也可以是由第三方开发的库，还可以是程序员自己编写并积累的自定义库。 代码库类型 以上除了“我的代码库”（自定义库），其它都内置在 VFB里，供大家直接使用。 自己编写“我的代码库” 在新建工程中，选择“我的代码库”，然后取一个新建的名称，创建一个即可。 安装第三方库 库的来源：网上找到或别人给你的。一般在 VFB编程群里下载 下载文件后，解压文件到，VFB软件文件夹中的 Private 子文件里 最后在 VFB中，刷新代码库 刷新以后，在我的代码库中，就会显示 每个库都有自己的使用方式，假如库有专门的使用说明，可以点帮助区，打开查看 自己创建的库，需要支持库的设置方法 假如你自己写的库，需要带一个动态库或静态库的，需要写好库文件。 VFB软件识别的是 .INC 文件，这个是我们自己写的库代码 特殊文件夹“lib”此名特殊用途，不纳入分类。用于存放静态库和动态库。 “lib”里面有名为 “32”和“64”的子文件夹，用于保存代码库使用到的静态库或动态库 假如“lib\32”或“lib\64”文件夹中有 “*.dll” 文件，编译时会自动复制到编译输出文件夹中。 代码库写的代码中，需要引用头文件，使用以下代码，头文件引用是库路径，VFB会自动填充“本文件的路径” #include Once "{visualfreebasic_include_path}cJSON.bi" 静态库文件保存目录，VFB会自动填充 “本文件的路径\lib\32” “本文件的路径\lib\64” #libpath "{visualfreebasic_lib_path}" -
-
-
VisualFreeBasic指南_控件 编程中的“控件”（Controls）是图形用户界面（GUI）编程中的一个基本概念，它们代表用户可以在屏幕上看到并与之交互的元素。控件可以是按钮、文本框、标签、复选框、单选按钮、下拉列表、滑块、图片框等。不同的编程语言和框架提供了不同的控件集和创建控件的方法。下面我将以一个较为通用的方式介绍控件的基本概念和使用方法，并以几个流行的编程环境为例进行说明。 控件的基本概念 创建控件：在GUI编程中，首先需要创建控件实例。点控件图标一下，然后到窗口点一下即可完成创建 设置属性：控件有许多属性，如大小、位置、颜色、文本等，这些属性可以通过编程来设置。 事件处理：控件可以响应用户的操作，如点击、键盘输入等。这些操作会触发事件，程序员可以编写事件处理程序来响应这些事件。 控件修改 控件有什么问题，自己还可以修改 -
-
-
-
-
VisualFreeBasic代码_yGDI+_位图 操作形式和 GDI 一样 唯一好处是画 PNG 图像可以支持PNG的透明层。 成员列表 Function GpLoadImgFile(FileName As CWSTR) As HANDLE '加载文件图像到 nGpimage ，便于后面重复使用，成功返回图像句柄，失败返回0(再次加载将销毁前面加载的句柄）。 Function GpLoadImgRes(hInst As HINSTANCE, ResName As CWSTR) As HANDLE '加载资源图像到 nGpimage ，便于后面重复使用，成功返回图像句柄，失败返回0(再次加载将销毁前面加载的句柄）。 Function GpLoadImgBuffer(Buffer As Any Ptr, BufferSize As ULong) As HANDLE '从内存中图像到 nGpimage ，成功返回图像句柄，失败返回0(再次加载将销毁前面加载的句柄）。 Sub GpDrawCopyImg(xDest As Single, yDest As Single, wDest As Single, hDest As Single, xSrc As Single, ySrc As Single, wSrc As Single, hSrc As Single) '描绘由LoadImg加载来的图,主要用来像画工具栏里的小按钮 GpLoadImgFile 加载文件图像 先加载图像，然后用画图属性画图像，假如先前有加载的图像，同时只能存在一个图像，将会替换原来的图像。 FileName 文件名 GpLoadImgRes 加载资源图像 先加载图像，然后用画图属性画图像，假如先前有加载的图像，同时只能存在一个图像，将会替换原来的图像。 hInst 模块 ResName 资源名
-
VisualFreeBasic代码_yGDI_画图 画图，就是画线、框、圆等 基本步够， 先设置笔，用来画线条，或框和圆的边线。 \ 例：gg.Pen 线宽度,颜色值 设置刷子，用来填充框和圆的内部，线条无效。 \ 例：gg.Brush 颜色值 使用画框画圆等作画 \ 依照笔和刷子来画画 设置笔和刷永久有效，若不改变，无需重复设置。默认为 1线条黑色，无填充。 注意： 下面所有用到的坐标和尺寸，都是像素单位，自动响应DPI 响应DPI：数值都按照 100%DPI时设置，代码会根据系统中的DPI自动换算，让我们的软件可以在任何电脑中不同 DPI下都看上去一样。 成员列表 Sub Pen(ByVal cWidth As Long, ByVal crColor As Long, ByVal iStyle As Long = PS_SOLID) '设置笔，画框线用 {3.PS_NULL 无线.PS_SOLID 实线.PS_DASH 虚线.PS_DOT 点线.PS_DASHDOT 点划线.PS_DASHDOTDOT 点-点划线.PS_INSIDEFRAME 由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框时，画线宽度向内扩展。如指定的准确RGB颜色不存在，就进行抖动处理} Sub Brush(ByVal crColor As Long = -1) '设置刷子，用于填充颜色 -1为空刷子 Sub BrushHatch(fnStyle As Long, crColor As Long = 0) '设置 样式 刷子，用于填充 {1.HS_BDIAGONAL 从右到左45度 斜纹.HS_CROSS 十字线.HS_DIAGCROSS 45度十字线.HS_FDIAGONAL 从左到右45度 斜纹.HS_HORIZONTAL 水平纹.HS_VERTICAL 垂直纹} Sub DrawLine(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) '画线条，位置1到位置2 Sub DrawArc(ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long, ByVal StartAngle As Single, ByVal EndAngle As Single) '画圆弧，x y w h 一个假想的圆，位置和宽度高度 , StartAngle 相对于x轴的起始角度（以度为单位）。0度为原的右边中部 , EndAngle 顺时针转了多少角度 Sub DrawFrame(ByVal X As Long, ByVal Y As Long, ByVal W As Long = 0, ByVal H As Long = 0) '画框 位置和宽度高度 Sub DrawCircleFrame(ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long, ByVal wC As Long, ByVal hC As Long) '描绘一个圆角矩形，位置和宽度高度、宽圆和高度圆 Sub DrawEllipse(ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long) '描绘一个椭圆，位置和宽度高度 Sub DrawPolygon(POINTS() As Point) '描绘多边形 顶点数必须大于或等于2。 Pen 笔，框线 (ByVal cWidth As Long, ByVal crColor As Long, ByVal iStyle As Long = PS_SOLID) 设置笔的大小和颜色，用于画框线用 cWidth 宽度，单位像素（自动相应 DPI，设置为 100%DPI时的数值） crColor 颜色，RGB颜色，GDI颜色值，用 BGR(r,g,b) 获取 iStyle 线条样式，默认 PS_DASH PS_NULL 无线 PS_SOLID 实线 PS_DASH 虚线 PS_DOT 点线 PS_DASHDOT 点划线 PS_DASHDOTDOT 点-点划线 PS_INSIDEFRAME 由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框时，画线宽度向内扩展。如指定的准确RGB颜色不存在，就进行抖动处理 Brush 刷子，填充 (ByVal crColor As Long = -1) 设置刷子，用于矩形、多边形、椭圆等填充颜色 crColor 颜色，RGB颜色，GDI颜色值，用 BGR(r,g,b) 获取，等于-1 不填充 BrushHatch 样式刷子 (fnStyle As Long, crColor As Long = 0) '设置 样式 刷子，用于填充 fnStyle 样式 HS_BDIAGONAL 从右到左45度 斜纹 HS_CROSS 十字线 HS_DIAGCROSS 45度十字线 HS_FDIAGONAL 从左到右45度 斜纹 HS_HORIZONTAL 水平纹 HS_VERTICAL 垂直纹 crColor 颜色，RGB颜色，GDI颜色值，用 BGR(r,g,b) 获取 DrawLine 描绘线条 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) '画线条，位置1到位置2 x1,y1 开始位置 x2,y2 结束位置 DrawArc 描绘圆弧 (ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long, ByVal StartAngle As Single, ByVal EndAngle As Single) x,y,w,h 一个假想的圆，就是描绘这个椭圆上的某个线段 StartAngle 相对于x轴的起始角度（以度为单位）0度为原的右边中部 EndAngle 顺时针转了多少角度 DrawFrame 描绘矩形 (ByVal X As Long, ByVal Y As Long, ByVal W As Long = 0, ByVal H As Long = 0) x,y 矩形左上角位置 w,h 矩形大小，等于0 将会描绘画板的最大尺寸 DrawCircleFrame 描绘圆角矩形 (ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long, ByVal wC As Long, ByVal hC As Long) x,y,w,h 矩形左上角位置和尺寸 wC ,hC 圆角的大小，分宽度和高度圆 DrawEllipse 描绘椭圆 (ByVal X As Long, ByVal Y As Long, ByVal W As Long, ByVal H As Long) x,y,w,h 椭圆左上角位置和尺寸 DrawPolygon 描绘多边形 (POINTS() As Point) POINTS() 顶点数数组，必须大于或等于2。多边形每个顶点坐标，首尾会自动闭合。 Dim p(2) As Point '画个三角形 p(0).x = 10 : p(0).y = 0 p(1).x = 20 : p(1).y = 10 p(2).x = 0 : p(2).y = 10 gg.DrawPolygon(p())