网站建设资讯

NEWS

网站建设资讯

vb.net弹出确认框,vbs弹出提示框

VB.net怎么弹出如下类似的对话框(看图)?

可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现

创新互联公司主要从事成都网站设计、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务文水,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

方法一,利用msgbox:

Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function

方法二,利用窗体实现:

’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub

用VB.NET弹出一个确认框,带倒计时?!?

在30秒的时候弹出个messagebox选择的事件

确定就把timer的enabled属性设置成false 执行关机

取消把timer的enabled属性设置成false 计时器清零就行了

VB.NET 后台代码里怎么弹出confirm对话框

不管是什么,给你写一个在后台弹出那个框的代码

response.write("script language=javascriptconfirm("are you sure?")/script");


分享文章:vb.net弹出确认框,vbs弹出提示框
文章转载:http://cdweb.net/article/dscjdcj.html