Hong Bin Han

class classwithenum { public: enum enumtest{ enumA,enumB }; }; int main(int argc, char** argv) { classwithenum cls; classwithenum:: <-- 通过变量名.的时候没有问题，但是用类名::就无法提示 return 0; } 另外还有一个问题，关于UTF-8的判断。 在工程里已经把每个文件的UTF8的check取消了，但是每次还会有部分文件编译为utf8格式。 导致编译出错，文件内容都是英文，无多字节字符（使用日文系统，和这个有关？） 您更新的这个版本，要稳定很多，简单的使用了一下，没有碰到致命退出问题，辛苦辛苦。

class classwithenum { public: enum enumtest{ enumA,enumB }; }; int main(int argc, char** argv) { classwithenum cls; classwithenum:: <-- 用点符号没有问题，会提但是用::就无法提示 return 0; } 另外还有一个问题，关于UTF-8的判断。 在工程里已经把每个文件的UTF8的check取消了，但是每次还会有部分文件编译为utf8格式。 导致编译出错，文件内容都是英文，无多字节字符（使用日文系统，和这个有关？） 您更新的这个版本，要稳定很多，简单的使用了一下，没有碰到致命退出问题，辛苦辛苦。

类中的枚举变量，无法代码补全

Option Explicit using wxWidgets Dim f As wxFrame Dim m_treeCtrl As wxTreeCtrl Sub OnItemSelectChanging(byref event As wxTreeEvent) Dim item As wxTreeItemId = event.GetItem() f.SetTitle( "treectrl demo " + m_treeCtrl.GetItemText( item ) ) End Sub Sub Main f = new wxFrame( NULL, wxID_ANY, "treectrl demo" ) Dim images As wxImageList ptr = new wxImageList(15, 15, true) images.Add( wxICON(wxICON_SMALL_CLOSED_FOLDER) ) images.Add( wxICON(wxICON_SMALL_OPEN_FOLDER) ) images.Add( wxICON(wxICON_SMALL_FILE)...

Option Explicit Option CONSOLE OFF Sub OnItemSelected(ByRef ev as wxListEvent) wxMessageBox( ev.GetText() ) End Sub Sub Main dim f as wxFrame ptr f = new wxFrame( NULL, wxID_ANY, "listctrl" ) dim listctrl as wxListCtrl ptr = new wxListCtrl( f, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxLC_REPORT ) listctrl.InsertColumn(0, "spalte1") listctrl.InsertColumn(1, "spalte2") listctrl.InsertItem(0,"Eintrag 1") listctrl.InsertItem(1,"Eintrag 2") listctrl.SetItem(0,1,"Eintrag 3") listctrl.SetItem(1,1,"Eintrag...

Option Explicit Option CONSOLE OFF Sub Main DIM Xlb As ComObject, Xls AS ComObject, xlapp AS ComObject xlapp.CreateObject("Excel.Application") xlapp.Visible = TRUE Xlb = xlapp.Workbooks.Add for each Xls in Xlb.WorkSheets msgbox Xls.Name next for each Xls2 as comobject in Xlb.WorkSheets msgbox Xls2.Name next xlapp.DisplayAlerts = FALSE msgbox "click to continue..." xlapp.quit End Sub

Option Explicit Option CONSOLE OFF Sub Main DIM Xlb As ComObject, Xls AS ComObject, Rng AS ComObject,xlapp AS ComObject xlapp.CreateObject("Excel.Application") xlapp.Visible = TRUE Xlb = xlapp.Workbooks.Add Xls = Xlb.WorkSheets(1) dim sName as string sName = "Name" msgbox CallByName(xls, "Name") msgbox CallByName(xls, sName) Rng = CallByName(xls, "Range")("A1:A5") Rng.Font.Size = 14 Rng = Xls.Range("A2:A5") Rng.Interior.ColorIndex = 36 Rng.EntireColumn.Autofit xlapp.DisplayAlerts = FALSE msgbox "click...

USING BApp USING BForms USING BTreeViews USING BImageLists Option Explicit Option CONSOLE OFF Dim App As New BApplication Dim Form1 As New BForm Dim Tree1 As New BTreeView Dim imglist As New BSysImageList Declare sub showdir(sDir as string, mask as string, hTreeParent As Long) Private Sub Form1_DblClick(Button As Long) MsgBox "Form1 DoubleClick!" End Sub Private Sub Form1_OnSize(Button As Long) Tree1.Height = Form1.ClientHeight - 20 Tree1.Width = Form1.ClientWidth - 20 End Sub Private Sub Tree1_SelectChanged(Sender...