-
-
-
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())
-
VisualFreeBasic代码_yGDI_文字 就是画文字 一、设置字体：gg.Font 二、设置颜色：gg.SetColor 三、输出文字：gg.DrawString x,y,"xxxx" 设置字体和颜色永久有效，若不需要改变，无需重复设置。默认为 雅黑，9号，黑色字，无底色。 成员列表 Sub Font(fName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False, Italic As UByte = False, ByVal Underline As UByte = False, ByVal StrikeOut As UByte = False) '设置字体{3.True.False}{4.True.False}{5.True.False}{6.True.False} Sub SetColor(ByVal tColor As Long, ByVal bColor As Long = -1) '设置文本颜色，字色和字的背景色，背景值-1为透明背景。 Sub DrawString(ByVal X As Long, ByVal Y As Long, nText As CWSTR) '描绘制指定的文本字符串 Sub DrawStringFC(ByVal X As Long, ByVal Y As Long, nText As CWSTR, tColor As Long, nName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False) '描绘制指定的文本字符串，带字体和颜色 Function DrawTextS(X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0) As Long '指定的矩形中绘制格式化的文本，样式为组合，见VFB帮助。 Function DrawTextFC(X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0, tColor As Long, nName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False) As Long '指定的矩形中绘制格式化的文本，带字体和颜色，样式为组合，见VFB帮助。 Sub DrawFrameStr(ByVal X As Long, ByVal Y As Long, nText As CWSTR) '描绘描边字，轮廓字，轮廓先设置笔，字为正常字 Sub DrawFrameStrR(ByVal X As Long, ByVal Y As Long, nText As CWSTR, bColor As Long) '绕写方式的轮廓字 Sub DrawFrameText(X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0) '描绘描边字，轮廓字，轮廓先设置笔，字为正常字 Sub DrawFrameTextR(X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, bColor As Long, uFormat As ULong = 0) '绕写方式的轮廓字 Function GetTextWidth(nText As CWSTR) As Long '获取文本显示宽度，自动支持DPI感知，为 100% DPI 时的数字。假如 DPI比率=1 则是实际像素值 Function GetTextHeight(nText As CWSTR) As Long '获取文本显示高度，自动支持DPI感知，为 100% DPI 时的数字。假如 DPI比率=1 则是实际像素值 Sub FontEx(fName As CWSTR = "Microsoft YaHei", fSizeH As Long = 9,fSizeW As Long = 0, Angle As Single = 0, ByVal Bold As Long = FW_NORMAL, Italic As UByte = False, ByVal Underline As UByte = False, ByVal StrikeOut As UByte = False) '设置字体扩展，带宽度和旋转角度。{3.True.False}{4.True.False}{5.True.False}{6.True.False} Font 设置字体 (fName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False, Italic As UByte = False, ByVal Underline As UByte = False, ByVal StrikeOut As UByte = False) fName 字体名称，默认 "Microsoft YaHei" fSize 字体大小，默认 9 （相应 DPI ） Bold 是否加粗，默认 False Italic 是否斜体，默认 False Underline 是否下划线，默认 False StrikeOut 是否删除线，默认 False FontEx 设置字体 (fName As CWSTR = "Microsoft YaHei", fSizeH As Long = 9,fSizeW As Long = 0, Angle As Single = 0, ByVal Bold As Long = FW_NORMAL, Italic As UByte = False, ByVal Underline As UByte = False, ByVal StrikeOut As UByte = False) 设置字体扩展，带宽度和旋转角度。 fName 字体名称，默认 "Microsoft YaHei" fSizeH 字体高度(字体大小、字号)，默认 9 （相应 DPI ） fSizeW 字体宽度(字号)，默认=0，表示跟随高度。 Bold 加粗多少，标准为 FW_NORMAL=400 ，数字越大越粗 Italic 是否斜体，默认 False Underline 是否下划线，默认 False StrikeOut 是否删除线，默认 False SetColor 文字颜色 (ByVal tColor As Long, ByVal bColor As Long = -1) tColor 文本颜色 bColor 背景值，默认-1为透明背景。 DrawString 描绘文本 (ByVal X As Long, ByVal Y As Long, nText As CWSTR) x,y 位置 nText 文本 DrawStringFC 直接设置字体和颜色描绘文本 直接指定字体和颜色，不改变公用设置来描绘文本 (ByVal X As Long, ByVal Y As Long, nText As CWSTR, tColor As Long, nName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False) x,y 位置 nText 文本 tColor 文本颜色 fName 字体名称，默认 "Microsoft YaHei" fSize 字体大小，默认 9 （相应 DPI ） Bold 是否加粗，默认 False DrawTextS 格式化描绘文本 (X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0) As Long 指定的矩形中绘制格式化的文本，样式为组合 x,y,w,h 位置和矩形尺寸 nText 文本 uFormat 格式化样式 返回 用了DT_CALCRECT后不描绘，返回文字高度（像素） 常用：DT_CENTER Or DT_VCENTER Or DT_SINGLELINE DT_BOTTOM 将文本对齐到矩形的底部。该值仅与DT_SINGLELINE值一起使用。 DT_LEFT 将文本对准左侧。(默认) DT_RIGHT 将文本对齐到右侧。 DT_TOP 将文本对齐到矩形的顶部。(默认) DT_CENTER 在矩形中居中文字。 DT_VCENTER 纵向中心文本。该值仅与DT\_SINGLELINE值一起使用。 DT_CALCRECT 返回格式化文本的高度，但不绘制文本。 DT_EDITCONTROL 复制多行编辑控件的文本显示特性。具体而言，以与编辑控件相同的方式计算平均字符宽度，并且该函数不显示部分可见的最后一行。 DT_END_ELLIPSIS 如果字符串的末尾不适合矩形，则会被截断，并添加省略号。 DT_HIDEPREFIX 忽略文本中的＆符号（&）前缀字符。 DT_NOPREFIX 关闭前缀字符的处理。 DT_INTERNAL 使用系统字体来计算文本度量。 DT_MODIFYSTRING 修改指定的字符串以匹配显示的文本。 DT_PATH\_ELLIPSIS 对于显示的文本，用椭圆替换字符串中间的字符，以使结果符合指定的矩形。 DT_RTLREADING 右向左阅读顺序布局 DT_SINGLELINE 仅在一行上显示文字。 DT_TABSTOP 设置制表位。 DT_WORDBREAK 自动换行 DT_WORD_ELLIPSIS 截断任何不适合矩形的单词并添加省略号。 DrawTextFC 指定字体和颜色格式化描绘文本 (X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0, tColor As Long, nName As CWSTR = "Microsoft YaHei", ByVal fSize As Long = 9, ByVal Bold As UByte = False) As Long x,y,w,h 位置和矩形尺寸 nText 文本 uFormat 格式化样式，见 DrawTextS 说明 tColor 文本颜色 fName 字体名称，默认 "Microsoft YaHei" fSize 字体大小，默认 9 （相应 DPI ） Bold 是否加粗，默认 False DrawFrameStr 描绘带轮廓文本 (ByVal X As Long, ByVal Y As Long, nText As CWSTR) 描绘描边字，轮廓字，轮廓先用画图里的笔设置好宽度和颜色，字为正常字 x,y 位置和矩形尺寸 nText 文本 DrawFrameStrR 绕写描绘轮廓文本 (ByVal X As Long, ByVal Y As Long, nText As CWSTR, bColor As Long) 使用绕写方式的描绘轮廓字 x,y 位置和矩形尺寸 nText 文本 bColor 轮廓颜色 DrawFrameText 格式化描绘轮廓文本 (X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, uFormat As ULong = 0) '描绘描边字，轮廓字，轮廓先用画图里的笔设置好宽度和颜色，字为正常字 x,y,w,h 位置和矩形尺寸 nText 文本 uFormat 格式化样式，见 DrawTextS 说明 DrawFrameTextR 格式化描绘绕写轮廓文本 (X As Long, Y As Long, W As Long, H As Long, nText As CWSTR, bColor As Long, uFormat As ULong = 0) x,y,w,h 位置和矩形尺寸 nText 文本 bColor 轮廓颜色 uFormat 格式化样式，见 DrawTextS 说明 GetTextWidth 获取文本显示宽度 (nText As CWSTR) As Long 获取文本显示宽度，自动支持DPI感知，为 100% DPI 时的数字。假如 DPI比率=1 则是实际像素值 GetTextHeight 获取文本显示高度 (nText As CWSTR) As Long 获取文本显示高度，自动支持DPI感知，为 100% DPI 时的数字。假如 DPI比率=1 则是实际像素值