KayaBASIC:支持Windows，Linux，macOS的多平台BASIC编译器

• 概要
• • 特性
  • 使用方法
  • 代码样例

概要

支持WIndows，Linux，macOS多平台的BASIC编译器，使用GCC/CLANG进行编译，就是一款可以BASIC语法的简易C++。

特性

1. 支持通过名称来进行对象创建和方法属性调用，类似java的class.forName
2. 支持创建GUI程序（默认使用wxWidgets跨平台GUI库），控制台程序和DLL/共享库
3. 支持象VB一样简单的调用Windows COM组件和COM事件绑定
4. 支持Lambda表达式
5. 支持泛型编程
6. 支持函数重载
7. 支持Tuple，函数可以返回多个值
8. 支持多线程
9. 支持正规表达式
10. 支持Debug功能

使用方法

具体使用方法，可以访问Github主页:Github主页

代码样例

轻松的创建GUI程序，和调用COM来访问Excel.

Option Explicit

Dim f As wxFrame Ptr
Dim listctrl As wxListCtrl Ptr

Sub LoadDataFromExcel
	
	Dim xlApp, xb, xls As ComObject
	Dim path As String
	
	path = wxGetCwd()
	path += "/data.xlsx"
	
	xlApp.CreateObject("Excel.Application")
	Set xb = xlApp.WorkBooks.Open( path )
	Set xls = xb.WorkSheets(1)
	
	For i As Integer = 1 To 4
		Dim s As String = xls.Cells(1, i).Value
		listctrl.InsertColumn( i - 1, s )
	Next
	
	For r As Integer = 2 To 5
		Dim s As String = xls.Cells(r, 1).Value
		listctrl.InsertItem( r - 2 , s )
		For c As Integer = 2 To 4
			s = xls.Cells(r, c).Value
			listctrl.SetItem( r - 2, c - 1, s )
		Next
	Next
	
	xb.Close
	xlApp.Quit
End Sub

Sub Main
	Dim strTitle As String = "listctrl"
	f = New wxFrame( Nothing, wxID_ANY, strTitle + " sample" )
	listctrl = New wxListCtrl( f, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxLC_REPORT )
	
	Call LoadDataFromExcel
	
	f.SetIcon( wxICON(wxICON_AAA) )
	f.Show(TRUE)
End Sub

标签：Dim,macOS,Sub,Windows,支持,编译器,listctrl,xls,String
来源： https://blog.csdn.net/m0_55412677/article/details/113864988