msgbox "内容",样式,"word修改标题样式"中的样式用0,1,2,3,4,5,6等数字可以实现不同的样式

如何改变confirm对话框的标题和图片?
[问题点数:0分]
如何改变confirm对话框的标题和图片?
[问题点数:0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2004年3月 Web 开发大版内专家分月排行榜第二2003年12月 多媒体/设计/Flash/Silverlight 开发大版内专家分月排行榜第二2003年11月 多媒体/设计/Flash/Silverlight 开发大版内专家分月排行榜第二2003年10月 多媒体/设计/Flash/Silverlight 开发大版内专家分月排行榜第二
匿名用户不能发表回复!|博主最新文章
博主热门文章
您举报文章:
举报原因:
原文地址:
原因补充:
(最多只允许输入30个字)VB的这段经典&登录界面&设计能否简化很多?
先做如图的窗体设计编码如下:Private Sub Cmd1_Click()&If Txt1.Text = "user" Then &&& Txt2.SetFocus &ElseIf Txt1.Text
"user" Then &&&& MsgBox "请输入正确的用户名!", vbOKOnly + vbInformation,&End If&If Txt2.Text = "123456" Then && Form1.Hide&& Form2.ShowElseIf Txt2.Text
"123456" Then&& MsgBox "请输入正确的密码!", vbOKOnly + vbInformation, "注意" &End IfEnd SubPrivate Sub Cmd2_Click() & End '退出程序End SubPrivate Sub Form1_Load()& Form1.Show& Form2.HideEnd SubPrivate Sub Form_Load()End Sub-----------------------------------------------------------------------------------------------------------------------------Private Sub Txt1_KeyDown(KeyCode As Integer, Shift As Integer) &If Txt1.Text = "user" And KeyCode = vbKeyReturn Then &&& Txt2.SetFocus&ElseIf Txt1.Text
"user" And KeyCode = vbKeyReturn Then&&& MsgBox "请输入正确的用户名!", vbOKOnly + vbInformation, "注意" &End IfEnd SubPrivate Sub Txt2_KeyDown(KeyCode As Integer, Shift As Integer)If Txt2.Text = "123456" And KeyCode = vbKeyReturn Then&& Form1.Hide && Form2.Show&& ElseIf Txt2.Text
"123456" And KeyCode = vbKeyReturn Then&& MsgBox "请输入正确的密码!", vbOKOnly + vbInformation, "注意"End IfEnd Sub本人VB刚开始学,小菜鸟一个,所以请教下大家:虚线后面的部分(蓝色字体部分)为何不能省略?感觉是和前面的设计重复了
您需要登录后才可以回复,请或者
/人参加团购/元&/元机器控制/过程控制
优化/集成/管理
mshflexgrid用在WINCC中
悬赏分:5 - 解决时间: 17:03:00
想在WINCC中使用mshflexgrid控件,连接数据库也成功!就是数据无法显示到该控件中,哪位给个使用该控件的例子?以下是数据连接部分,前后省掉了,只有使用控件部分的.........DimdatagridSetdatagrid=ScreenItems(&控件2&)'datagrid.cleardatagrid.AllowUserResizing=1datagrid.Redraw=Falsedatagrid.Rows=1datagrid.Cols=3datagrid.ColWidth(1)=100datagrid.ColWidth(2)=100datagrid.ColWidth(3)=100'datagrid.ColWidth(4)=100Setdatagrid.DataSource=oRsMsgBox(&Field0=&&oRs.Fields(0).Value)MsgBox(&Field1=&&oRs.Fields(1).Value)MsgBox(&Filed2=&&oRs.Fields(2).Value)MsgBox(&Field3=&&oRs.Fields(3).Value)datagrid.TextMatrix(0,0)=&日期&datagrid.TextMatrix(0,1)=&时间&.......
提问者:苦斗 -
回答&&&&共 1 条&&&&
12-18 01:04:00
北京市光机电产业基地尖子班大厦A座301室&&&&&&电话:010-&&&传真:010-
广州办事处:广州市黄埔区中山大道东170号柏盈商厦首层103室&&&&&&电话:
Copyright (C) &
. All rights reserved.

我要回帖

更多关于 标题样式 的文章

 

随机推荐