共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：messagebox可以这样（多行）显示吗？
1楼
mr725 发表于：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
此主题相关图片如下：提示窗口能多行显示？.jpg
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
此主题相关图片如下：提示窗口能多行显示？.jpg[此贴子已经被作者于2009-5-24 15:19:08编辑过]
2楼
kylin 发表于：2009/5/24 15:56:00还是来凑热闹吧
dim m as integer
dim n as integer
dim gs as string ="aaa2bbbawwwbb22"
dim s as string
Do While gs.length>0
dim gs1 as string =left(gs,1)
m = gs.length
gs= gs.Replace(gs1,"")
n = m-gs.length
s= s & gs1 & "共有" & cstr(n) & "个" & Chr(13) & Chr(10)
Loop
messagebox.show(s,"提示")
3楼
mr725 发表于：2009/5/24 16:08:00谢谢！～ 请教：绿色部分起什么作用？
s= s & gs1 & "共有" & cstr(n) & "个" & Chr(13) & Chr(10)
呵呵。。。。 chr(10)表示换行,chr(13)表示回车 是吗。 cstr(n) 呢？
[此贴子已经被作者于2009-5-24 16:34:04编辑过]
4楼
yangming 发表于：2009/5/24 16:54:00CStr
转换为字符串(String)。
chr(10)表示换行,chr(13)表示回车
转换为字符串(String)。
chr(10)表示换行,chr(13)表示回车
5楼
mr725 发表于：2009/5/24 17:03:00以下是引用yangming在2009-5-24 16:54:00的发言：
CStr
转换为字符串(String)。
chr(10)表示换行,chr(13)表示回车
CStr
转换为字符串(String)。
chr(10)表示换行,chr(13)表示回车
又学了一点～ 谢谢！ 呵呵 还可以这样：：：：：：
此主题相关图片如下：提示窗口能多行显示？-.jpg
[此贴子已经被作者于2009-5-24 17:24:24编辑过]
6楼
kylin 发表于：2009/5/24 17:25:00以下是引用mr725在2009-5-24 16:08:00的发言：
谢谢！～ 请教：绿色部分起什么作用？
s= s & gs1 & "共有" & cstr(n) & "个" & Chr(13) & Chr(10)
呵呵。。。。 chr(10)表示换行,chr(13)表示回车 是吗。 cstr(n) 呢？
[此贴子已经被作者于2009-5-24 16:34:04编辑过]
这些都在帮助中有说明，简单的应该要自己查的，养成好习惯比较好，呵呵
[此贴子已经被作者于2009-5-24 17:28:00编辑过]
共6 条记录, 每页显示 10 条, 页签:
[1]