-
VisualFreeBasic代码_变量和数据类型 在编程中，变量是一个用于存储数据值的命名容器。 一、作用 变量使得程序员能够在程序运行过程中存储和操作各种数据。它就像是一个可以随时存取物品的盒子，你可以把不同类型的数据放进去，也可以随时取出查看或修改。比如在一个记录学生成绩的程序中，可以用变量来存储学生的姓名、分数等信息。 二、特点 变量需要有一个唯一的名称，以便在程序中识别和引用它。变量名通常由字母、数字和下划线组成，但不能以数字开头。例如，“score”“student_name” 都是合法的变量名。 存储特定类型的数据，常见的有整数类型、浮点数类型、字符类型、字符串类型等。你必须根据要存储的数据类型来声明变量。比如，如果你要存储一个整数，就可以声明一个整数类型的变量；如果要存储一段文本，就可以使用字符串类型的变量。 可以被修改，在程序运行过程中，变量的值可以根据程序的逻辑进行修改。例如，在一个计数器程序中，变量可以随着计数的增加而不断改变其值。 三、声明和赋值 在大多数编程语言中，使用变量之前需要先进行声明。声明变量包括指定变量的类型和名称。 声明后，可以给变量赋值。赋值操作是将一个具体的值存储到变量中。 四、变量的作用域 变量的作用域指的是变量在程序中可以被访问的范围。一般来说，变量可以在声明它的代码块（如函数、循环等）内被访问。超出这个范围，变量就不可见了。例如，在一个函数内部声明的变量，通常只能在该函数内部使用，在函数外部无法访问。 变量是编程中非常重要的概念，它为程序员提供了一种灵活、方便的数据存储和操作方式。 变量声明 变量使用前，必须先声明，以下是声明一个名为：aa 的变量，类型为 Long (32位整数) Dim aa As Long 声明变量时，可以设置默认值，如果没设置，表示为 0 Dim aa As Long = 100 一行声明中，可以声明多个变量，中间用 “,” 分割，变量类型可以各不相同 Dim aa As Long ,bb As Long,cc As Single 当变量类型相同，可以简化代码，以下是同类型声明 Dim As Long aa,bb,cc,ee 同类型声明，当然也可以设置默认值 Dim As Long aa,bb=100,cc=111,ee 还可以声明数组，数组分固定数组和动态数组 Dim aa(100) As Long '此为固定数组，默认从 0开始。 代码执行时，不可以改变数组 Dim bb() As Long ‘此为动态数组，代码执行时，随时改变数组大小。 redim bb(55) '为动态数组设置数组大小，原先内容被清除为0 redim Preserve bb(55) '为动态数组设置数组大小，原先内容被保留 数组，还可以设置 上标和下标 Dim aa(10 to 100) As Long '此为固定数组，从 10 开始到 100。 代码执行时，不可以改变数组 Dim bb() As Long ‘此为动态数组，代码执行时，随时改变数组大小。 redim bb( 5 to 55) '为动态数组设置数组大小，原先内容被清除为0 redim Preserve bb( 5 to 55) '为动态数组设置数组大小，原先内容被保留 数组声明时，也可以设置默认值 Dim aa(3) As Long = {111,222,333,444} '需要赋值和空间对应个数 Dim bb(...) As Long = {111,222,333,444,555} '无需对应个数，根据赋值内容，自动设置数组大小 静态变量，Dim 是程序执行后，下次再执行到这里，变量就清空，但静态会被保留。 Static aa as long '和Dim 同样写法，参考Dim ，这里不做阐述，和 Dim 不同的是，Static 声明的变量，执行后，原内容被保留，不会丢失。 也可以用简化写法 DimS aa as long 全局变量，所有地方可以共用，Dim 是局部变量，只用于自己代码块中，跳出此代码块，就消失。 Dim Shared aa As Long ' 这是全局变量，所有代码块中都可以使用，和 Dim 语句同样用法，参考Dim ，这里不做阐述 也可以用简化写法 DimP aa as long 常量声明，执行代码期间不可以修改这个值 Const Red = 12345 Const Black As UInteger = RGB(0, 0, 0) Const Text = "这是黑色bkgnd上的红色文字。" 数据类型 数值类型，可以分为：整数类型和浮点类型 '整数类型，位数表示是二进制的数量，只是个容器，保存数值有限制，假如超出范围就溢出，溢出部分会丢失 Dim a1 As Byte '有符号8位整数 -128 ~ 127 占用内存1个字节 Dim a2 As UByte '无符号8位整数 0 ~ 255 占用内存1个字节 Dim a3 As Short '有符号16位整数 -32768 ~ 32767 占用内存2个字节 Dim a4 As UShort '无符号16位整数 0 ~ 65535 占用内存2个字节 Dim a5 As Long '有符号32位整数 -2147483648 ~ 2147483647 占用内存4个字节 Dim a6 As ULong '无符号32位整数 0 ~ 4294967295 占用内存4个字节 Dim a7 As Integer '有符号32/64位整数 32位软件时是 Long 64位软件时是 LongInt Dim a8 As UInteger '无符号32/64位整数 32位软件时是 ULong 64位软件时是 ULongInt Dim a9 As LongInt '有符号64位整数 -9223372036854775808 ~ 9223372036854775807 占用内存8个字节 Dim a10 As ULongInt '无符号64位整数 0 ~ 18446744073709551615 占用内存8个字节 '浮点类型，属于近似值，不是精确数值。数值越大，误差越大。 Dim b1 As Single '32位浮点数，占用内存4个字节 1.401298E-45 ~ 3.402823E+38 Dim b2 As Double '64位浮点数，占用内存8个字节 4.940656458412465E-324 ~ 1.797693134862316E+308 字符类型 '说明： * 100 表示空间大小，可以容纳多少个文字，100表示容纳99个文字，最后1个是系统自动补0 Dim aa As ZString * 100 'ASCII 标准编码文字，一个中文会占用2个ASCII码。1个ASCII码1个字节。 aa = "aabb我是文字" '给它超过空间的文字，超过部分会被丢弃。1个中文占2个空间，1个空间1个字节 Dim bb As WString * 100 'Unicode 标准编码文字，不管英文中文占1个UNICODE码。1个UNICODE码2个字节。 bb = "aabb我是文字" '给它超过空间的文字，超过部分会被丢弃。不管中英文都占1个空间，1个空间2个字节 '以上文字，不可以包含为 0 编码，遇到 0编码就截断。 Dim cc As String '默认是ASCII标准编码文字，可以自由容纳任意个文字，其实这个是数据容器，可以包含 0 编码。 cc = "aabb我是文字" '不限制文字个数，受内存限制，超过 1.8G 软件就崩溃。 主：As String 是一个数据容器，默认为ASCII标准编码文字。以后编程中会经常遇到，使用这个类型用来装数据用，而不是文字。 用户定义的类型 就是把标准类型组合在一起，成为一个类型组，各个标准类型成为其类型的成员 Type 用户自定义类型名 aa As Long bb As Single cc As String End Type Dim ee As 用户自定义类型名 ee.aa = 100 ee.bb = 3.14 ee.cc = "文字" 成员中也可以用固定数组，动态数组 Type 用户自定义类型名 aa(10) As Long bb(any) As Single '动态数组，不可以用 () 而是用 (any) End Type Dim ee As 用户自定义类型名 ee.aa(1) = 100 redim ee.bb(11) '分配空间 ee.bb(1) = 3.14 -
VisualFreeBasic代码_代码调试 代码调试 编写代码过程中，难免发生各种错误，就算编程几十年皆如此，学习编程的过程，很大部分就是在学习如何解决各种错误的过程，以及后面代码写的越来越多，产生的逻辑关系越来越复杂，造成的各种BUG随之也越来越多，因此 写代码1小时，解决BUG 10小时都是正常现象。 调试代码方法 在 VisualFreeBasic 侧边栏中，打开代码便签，输入代码，按 F5 执行代码，初学代码时，这个工具非常好用 或者新建一个工程，窗口上放一个按钮，双击按钮，在按钮事件里写代码测试。 然后执行软件后，打印输出的内容会在 VisualFreeBasic 底部输出窗口中显示。 底部还有一个“立即”窗口，这个是执行 VBScript 代码，输入代码打回车后，结果就显示在下一行。属于单行执行，不需要打印语句，直接把结果显示出来。 编译错误 编译，就是把代码翻译成计算机能执行的 2进制指令，翻译过程中，编译器会检查你写的代码，发现错误无法编译，就会报告出来。当在VFB工程里编译时，发生错误，就会跳转到提示错误的代码行中，由于错误种类比较多，下面只举例常见的错误。 错误42：变量未声明 每个文字，必须先定义为某个东西，比方 变量名、函数名、等等，编译才能知道，遇到不认识的，编译器就不知道这个是干嘛的，因此先要定义后才能使用 错误58：类型不匹配 类型本来是字符串，你给个数字，是不可以的，必须是对应的类型 错误181：无法赋值 变量是数值，无法赋值字符串 错误类型很多，而且大多和我们理解的解释都不同，因此遇到理解不了，解决不了的请在QQ群里提出，大家会帮你解决。 打印输出 电脑执行代码，有什么结果，我们是无法人类是不可能知道的，因此我们需要打印结果，来调试代码，是否和我们自己预期的一样。 dim a as long a=1+2+3 print a '打印 a 变量的结果，调试代码结果是否和我们的预期一样 源码跟踪调试 此调试主要用来跟踪代码执行逻辑，一般都用打印输出来调试。 点击VFB中爬虫按钮，启动调试模式 在需要跟踪的代码行点击【断点】，代码左边就出现红点，再点【断点】按钮则取消断点 当代码执行到这一行时，软件将会中断，停在这一行，等待你操作，可以点【步进】或【步过】。 红框中，显示了各变量的当前值，具体操作非常多，需要自行探索。 汇编调试 每个生成的软件，都是会变成汇编执行，以上其它调试手段都无法解决问题，就要用上汇编调试了。 在工具菜单里，提供了汇编调试，分别为 32位和64位软件调试 这个调试器功能多，需要自己在网上找视频教程学习。 绝大多数，我们都是使用打印输出来调试代码，其它调试是打印输出无法解决时才考虑使用。 -
VisualFreeBasic代码_FreeBasic语法 基础语法 天下编程为一家，各种编程语言只是表达方式不同，但意思都是一样的，如同我们中华文化，有众多的方言一样。 因此，学编程主要学的是编程思考方式（我也不知道如何去表达，只是一种感觉），只要你学会了一种编程，再去学别的编程语言，去学一下该语言的语法，大差不差的都会写代码了。 FreeBasic语法，属于Basic语言的分支，其基础语法和VisualBasic、QBasic、VBScript都有 99% 以上相同。 代码格式 代码以标准文本方式显示，每一行代表一个执行单元，以下是2行执行单元的代码 print "我是代码1" print "我是代码2", 1,2 有时候，一行代码写的很长，可以用 “_” 来续行，就是多个显示代码行为一个执行单元，下面例题和上面例题一样 print "我是代码1" print "我是代码2", _ 1,2 有时候感觉多行代码很短小，可以用一个显示行来表示 多个执行单元，就用“:” 来分割，下面例题是2个执行单元 print "我是代码1" : print "我是代码2", 1,2 分隔符 逗号（,）：用于分隔变量声明或函数参数。 函数名(参数1,参数2,参数3) 冒号（:）：用于语句分割。 代码1 : 代码2 : 代码3 括号： 圆括号（()）用于分组表达式、函数调用和数组。 函数(参数1,参数2,参数3) aa=数组(1) 花括号（{}）用于数组变量初始化赋值。 Dim aa(2) as long = {1,2,3} 方括号（[]）用于指针数组。 aa=某指针[1] 注释 通常代码写好后，需要加一些说明，注释一下代码要表达的什么，用单引号 " ' " ，单引号后面的文字全是注释 print "我是代码" '我是注释，后面全是 还有一个注释语句，通常为了方便，一般都是用单引号代替。 print "我是代码" Rem 我是注释，后面全是 还有一个多行注解，任意中间注解，但感觉这样注释比较乱，不推荐使用，很少见到用这个的例题代码。 /’ 这里是注解，多行注解 这里的也是注解 任何行注解 '/ print "我是代码a", /' 我是中间注释 '/ "我是代码b" /' 我是中间注释 '/ ,"我是代码c" 标识符 标识符是程序中变量、函数、数组等的名字。标识符由字母（大写或小写）、数字和下划线组成，但第一个字符必须是字母或下划线，不能是数字。 一个标识符以字母 A-Z 或 a-z 或下划线 _ 开始，后跟零个或多个字母、下划线和数字（0-9）。 C 标识符内不允许出现标点字符，比如 @、$ 和 %。C 是区分大小写的编程语言。 mohd zara abc move_name a_123 myname50 _temp j a23b9 retVal aaa_ 注意，原版 FreeBasic 是不支持中文的，而 VisualFreeBasic 的环境中，支持中文代码 中文代码 中文变量名 中文函数名 中文类名 常量 常量是固定值，在程序执行期间不会改变。 常量可以是整型常量、浮点型常量、字符常量、枚举常量等。 const MAX = 100 ' 整型常量 const PI = 3.14 ' 浮点型常量 const NEWLINE = "字符" '字符常量 字符串字面量 字符串字面量是由双引号括起来的字符序列。 字符串变量名 ="我是字符串" 当字符串里有双引号，那么用2个双引号表示1个双引号 字符串变量名 ="我是字符串，""前面2个双引号表示1个双引号字符" 还有可能需要不可显示字符，就用转义字符，在前面搞一个感叹号”！“ 字符串变量名 =!"我是字符串，\"前面1个双引号字符" 转义符 表示的字符 \a 嘟 \b 退格 \f 换页符 \l 或 \n 换行符 \r 回车 \t 制表符 \unnnn unicode字符表示为十六进制文本 \v 垂直标签 \nnn ascii的十进制字符 \\&hnn ascii字符在十六进制 \\&onnn ascii字符在八进制 \\&bnnnnnnnn ascii char二进制 \\ 反斜线 \"（双引号） 双引号 \' 单引号 运算符 运算符用于执行各种操作，如算术运算、逻辑运算、比较运算等。 FB 语言中的运算符种类繁多，详细见FB帮助，常见的包括： 算术运算符：+, -, *, /, % 关系运算符：=, <>, >, <, >=, <= 逻辑运算符：And, or, Xor 位运算符：And, Not, Or, Xor 赋值运算符：=, +=, -=, *=, /=, %= 其他运算符：sizeof, @, *, ->, . dim as long a = 5, b = 10 '赋值 dim sum as long = a + b ' 使用算术运算符 + dim isEqual as Boolean = (a = b) ' 使用关系运算符 = 关键字 关键字，一般是FB语句，不能作为常量名、变量名或其他标识符名称。如： Dim As do if for long ....... 等等非常多，详细看帮助的原生语句
-
VisualFreeBasic代码 本编程语言是：FreeBasic ，属于Basic语言的分支，其基础语法和VisualBasic、QBasic、VBScript都有 99% 以上相同。 控件部分，可以自己拖拖点点，用用几个月，都会搞熟悉，而编程语言部分，你必须天天敲代码，每个语句，每行代码必须一个一个学习才行。 语言参考 [关键字 - 按字母顺序排列] [关键字 - 函数] [图形的关键字] [运算符列表] 变量和数据类型 [变量声明] [用户定义类型（或 类）] [标准数据类型] [标准数据类型限制] [数据类型的转换] 运算符 [运算符列表] [运算符优先级] [按位运算符 和真值表] 语句 [控制流程] [过程（函数）] [模块化] 其它 [预处理] [字符串中的转义序列] [元-声明] [内部定义] [错误处理] [内联汇编] Runtime Library 运行库参考 [数组函数] [位 操作] [控制台函数] [日期和时间函数] [错误处理函数] [文件 IO 函数] [数学函数] [内存函数] [操作系统函数] [字符串函数] [线程库函数] [用户输入函数] Graphics Library 图形库参考 [2D 绘图函数] [用户输入函数] [屏幕函数] [内置图形库] [键盘扫描码] [默认调色板]
-
VisualFreeBasic控件_Custom 自定义 此控件不是一个固定的控件，可以自由设置成已在系统中注册的任何控件 系统中注册的控件 设置类名，只要是系统内注册的类名，就变成相关控件 WIn操作系统内置控件的做法，就是类名。那些WIn系统的标准控件，每一个控件都拥有自己独一无二的类名，当你设置的类名与之对应，那这个控件就变成此控件了。 当然，这里并不是为了WIn系统里标准控件搞的这样的万能控件，而是为了第三方提供的控件使用。 第三方提供WIn系统标准控件，会向系统注册一个控件类名。我们设置此类名，那么这个控件就成为第三方控件了。 第三方控件，比方：火花编辑器。当你下载火花编辑器后，有一个DLL文件。 在VFB中，入口函数中加载这个DLL，然后这个控件类名设置成火花编辑器的类名（具体类名，就要看第三方控件的开发文档了），运行软件后，就有这个控件了。 当然不懂这些没关系，反正用不到。 比方 Button 按钮 Edit 文本框 用窗口做控件（用户控件） 先在工程中添加一个窗口，比如：Form2 设置该窗口为子窗口 再在本控件的子窗口中输入：Form2 至此，Form2 就成为控件了。 也可以作为真实容器控件使用。 用户控件，控件变量 VFB中没有模块变量，就是单独属于控件自己的变量，就算系统控件也没有。所有变量都是共享的，比方，一个窗口中有多个相同控件存在，其变量是共享的，而非私有的。 实现私有控件变量，需要用以下代码： Dim fp As FormControlsPro_TYPE Ptr = vfb_Get_Control_Ptr(hWndControl) If fp Then fp->CtlData(0 - 99) '100个变量，供开发控件中，控件内部使用 fp->UserData(0 - 99) '100个变量，用户使用控件中使用。 End If 用户控件，控件事件 用户使用时，就一个事件，实现事件的方法，就是写控件者向自己发送消息 Function Form1_Custom1_SubClassProcess(hWndControl As hWnd, wMsg As UInteger, wParam As wParam, lParam As lParam) As LResult Select Case wMsg Case WM_USER+100 事件1 Case WM_USER+101 事件2 End Select Function = CallWindowProc(GetPropW(hWndControl, "vfb_SubClassProcess") ,hWndControl ,wMsg ,wParam ,lParam) '给原处理地址处理消息 ，这是必须的，不然就吃掉消息。 End Function 写控件时，触发控件 SendMessage( hWndControl , WM_USER+100 , wParam , lParam ) 用户控件，控件功能 用户需要修改或执行控件功能，也是发消息 SendMessage( hWndControl , WM_USER+200 , wParam , lParam ) 控件窗口中，在自定义事件中 Function Form2_Custom(hWndForm As hWnd, wMsg As UInteger, wParam As wParam, lParam As lParam) As LResult Select Case wMsg Case WM_USER+200 功能或属性1 Case WM_USER+201 功能或属性2 Case WM_USER+202 功能或属性3 End Select Function = FALSE ' 若不想系统继续处理此消息，则应返回 TRUE （俗称吃掉消息）。 End Function 因为控件都是多开的，因此需要设置或执行本控件需要 Me.hWndForm = hWndForm Me.xx控件xx.hWndForm = hWndForm 然后才可以操作自己，比如： Me.Caption ="xxx" -
-
-
VisualFreeBasic控件_YFtable 表格 用于显示表格的控件 和 YFList 、List 控件类似，它们只是没列，只有行，而这个增加了 列，它们是1维表格，那么这个控件就是二维表格。 控件属性和用法基本上一样。 使用方法 和其它列表一样用法，就添加列表数据，这样就成为 1维的列表 YFtable1.AddItem("行文字1" ) YFtable1.AddItem("行文字2" ) YFtable1.AddItem("行文字3" ) 支持图标 矢量图标 添加矢量图标 Redim YFList1.vico(2) YFList1.vico(1)="f00101UU.7UL[YZL`Y^B`UcP[_]iVVZ[VlUL[Y+c200Z^YnV_V_" '矢量图标字符串 YFList1.vico(2)="a.42TP.7[sWraiWrai^F+a*6WKZPWK`n]C`n+b01TP00?T_T_Z[YF+b*6\t^QZ[YD" '矢量图标字符串 添加数据，带矢量图标索引 YFtable1.AddItem("行文字1",1 ) YFtable1.AddItem("行文字2",2 ) 字体图标 先要在起始代码区加载字体 字体文件在资源中 Dim ss As String = GetResourceStr("FONT_ICONFONT") Dim As Long uu Dim ff As Any Ptr = AddFontMemResourceEx(StrPtr(ss), Len(ss), 0, @uu) 字体文件是一个文件 Dim sst As String = App.Path & "iconfont.ttf" Dim As Long uu = AddFontResourceExA(StrPtr(sst) ,FR_PRIVATE ,0) 添加数据，带字体中的字符值 YFtable1.AddItem("行文字1",&HE655) YFtable1.AddItem("行文字2",&HE651 ) 图标文件 Dim H As HICON = LoadIcon(NULL, IDI_ERROR) ‘加载图标，不可以立即释放，等控件不显示了，必须释放 YFtable1.AddItem("行文字2", Cast(Integer, H)) 其它颜色设置（注意：是否选中，需要先设计属性显示复选框才有显示效果） YFtable1.AddItem("行文字1",字体图标,用户自定义数据,图标颜色,文字颜色,是否选中,背景颜色) 多列数据增加 每列用 chr(1) 分割 YFtable1.AddItem("1行1列文字" & chr(1) & "1行2列文字" & chr(1) & "1行3列文字" ) YFtable1.AddItem("2行1列文字" & chr(1) & "2行2列文字" & chr(1) & "2行3列文字" ) YFtable1.AddItem("2行1列文字" & chr(1) & "2行2列文字" & chr(1) & "2行3列文字" ) 表格头 新增的第一行，就是列表头 控件属性里选择，锁定首行，还可以设置不同的颜色来区别。 列宽度和列对齐设置 未设置宽度，默认控件宽度的 25% 宽度设置带 % 号的是控件宽度的百分比 YFtable1.ColumnWidth="20%,20%,32,107,418,33,47,200" YFtable1.ColumnAlignment = "2,1,2,1,0,2,1,0" 自绘 可以自己绘画，让控件更个性化 Function Form1_YFList1_OwnerDraw(hWndForm As hWnd,hWndControl As hWnd,StartY As Long,ItemHeight As Long ,sumU As Long,nList As YFListData Ptr,selIndex As Long,kMouse As Long,kPress As Long) As LResult End Function 自动生成的事件，里面还带详细的例题，可以看例题学习。 图标制作 使用 VisualFreeBasic 自带的 【矢量图标编辑器】 编辑一个，里面自带了很多图标，可以复制过来即可，在 VFB里的 工具菜单里，就可以找到这个软件。 -
-
