社区
ASP
帖子详情
如何在msgbox里换行?
ktoya
2005-03-28 01:41:25
<a href="#" onclick="if(window.confirm('Are you sure you want to delete'))
{location='delete.asp?DP=x'};return false;">Delete</a>
想在are you sure you want to delete后面换一行再写几个字
...全文
4241
3
打赏
收藏
如何在msgbox里换行?
Delete 想在are you sure you want to delete后面换一行再写几个字
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ktoya
2005-03-28
打赏
举报
回复
谢谢,搞定
listry_cheng
2005-03-28
打赏
举报
回复
如果是vbs可以用"字符串"+vbcrlf+"字符串"
listry_cheng
2005-03-28
打赏
举报
回复
在字符串中间加"\n",例:
window.confirm('Are you sure you want to delete\n......')
KK聊天工具源于VB
KK聊天工具的小代码。可供大家娱乐分析 VB中
msg
box
文本进行
换行
,使用 &vbcrlf;& 进行连接两行。 添加菜单弹出文本使用
msg
box
(" " & index) 菜单(&a)设置A为快捷键。 调用资源管理器Call Shell("explorer 这
里
可以再填写HTTP url地址", vbMaximizedFocus) 弹出消息框起名字,
msg
box
("xiaoxi ",,"消息框的名字") keyascii=13的设置回车快捷键的问题 将按钮的Default属性设为True,则按回车键时触发该按钮; 将按钮的Cancel属性设为True,则按ESC键时触发该按钮, text1.text= " " 可以清除文本框信息。 frmAbout.Visible = True可以使frmabout窗口设置为显示。添加到一个按钮上可以调用一个窗口 mousepointer设置99然后mouseicon引用cur图片。实现指针改变形状 maxbutton minbutton实现最大最小化按钮,borderstyle实现任务栏,
6-2.zip_visual basic
1. 选择点餐品种后,光标自动处于数量输入框中。(提示:文本框的setFocus方法) 2. 单击“确定”按钮后,根据点餐的品种和数量,计算总金额;如果是外送,加收20元。将点餐的帐单明细表用消息框给出。(提示:将所有的内容通过字符的连接组合为一项作为
Msg
Box
的提示项,需要
换行
的地方连接上VB预定义常量vbCrLf,即回车
换行
符) 3. 单击“下一位”按钮后,作好下一位点餐的准备。 4. 注意两个命令按钮的Enabled属性的合理设置。
七夕女友表白器 v1.0.zip
七夕女友表白器是一款小巧便捷的表白软件。 七夕女友表白器使用说明: 清先将文件全部解压到桌面。 1.Subtitle.txt———说明 这个是首次启动的屏幕字幕的配置文件,修改
里
面的文本即可! 2.Config.ini———说明 这个打开该配置文件详见说明...... 3.
Msg
Box
.txt———说明 这个是单击花朵弹出的信息框文本配置,单个信息框由标题和内容组成,之间用|分割,每个信息框
换行
分割 4.Music_BG.mp3———说明 这个是背景音乐,格式为*.MP3.....更换请使用原来文件名进行直接替换!其他文件名的MP3格式无法识别!
Vb6四十多条新手制作或业余爱好者必看的
里
面所含的内容有: 1、vb6MDPlay重复播放.txt 2、vb6
Msg
Box
消息窗口.txt 3、vb6text自动
换行
.txt 4、vb6保存(读取)数据到注册表
里
.txt 5、vb6背景色透明.txt 6、vb6打开任意类型的文件.txt 7、vb6打开网页.txt 8、vb6单击按钮复制文本框内的内容.txt 9、vb6单击按钮最小化窗体.txt 10、vb6点击最大化最小化和关闭(有上角的)触发什么事件.txt 11、vb6调用API函数模拟按下Alt键.txt 12、vb6读写txt内容.txt 13、vb6根据MDPlay设计进度框.txt 14、vb6后台发送邮件.txt 15、vb6获取鼠标当前位置.txt 16、vb6检测程序是否运行.txt 17、vb6检测键盘的输入.txt 18、vb6检测文件是否存在.txt 19、vb6进度条的使用A.txt 20、vb6进度条的使用B.txt 21、vb6禁止改变窗口大小(允许最大化和最小化).txt 22、vb6模拟按键.txt 23、vb6模拟键盘输入的N种方法.txt 24、vb6判断鼠标左键被按下.txt 25、vb6屏幕任意截图.txt 26、vb6全局键盘钩子.txt 27、Vb6如何注册OCX控件.txt 28、vb6什么是键盘虚拟键?.txt 29、vb6使控件大小随窗体的变化而变化.txt 30、vb6使用ShellExecute调用RAR进行解压.txt 31、vb6释放资源文件.txt 32、vb6提取包含特定字符的行的内容.txt 33、vb6托盘+气泡(不用模块).txt 34、vb6拖动text文本框.txt 35、vb6拖动没有标题栏的窗口.txt 36、vb6信息收发软件的制作.txt 37、vb6循环整数的运用.txt 38、vb6用MDPlay播放音乐.txt 39、vb6用代码解压缩rar文件.txt 40、vb6用代码添加资源文件.txt 41、vb6在程序中调用资源文件.txt 42、vb6在数据库中保存变量.txt 43、vb6怎么生成不带引号的字符.txt 44、vb6制作时钟(时针、分针、秒针).txt 45、vb6中的text中输入的内容存为txt文本.txt 46、vb6中多个简单的命令.txt 47、vb6中怎样加载背景图片,能随窗体大小变化? .txt 以上内容纯属作者本人整理,内容的可靠性也经本作者亲手证实,请放心使用,珍惜作者的劳动成果。
Vb编程引用Word书签
VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then
Msg
Box
"无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格
换行
End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司,天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then
Msg
Box
"无商品记录!", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格
换行
End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub
ASP
28,390
社区成员
357,068
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章