messagebox可以这样(多行)显示吗? Post By:2009/5/24 15:13:00 [只看该作者]
引用:kylin老师的代码:
dim m as integer dim n as integer dim gs as string ="aaa2bbbawwwbb22" Do While gs.length>0 dim gs1 as string =left(gs,1) m = gs.length gs= gs.Replace(gs1,"") n = m-gs.length output.show(gs1 & n) ' 这里改为messagebox("...... ","提示")能按下图方式显示吗? Loop