VB消息框确定后关闭窗口
我是超级新手--大哥们帮忙告诉我这个怎么弄?就是让那个msgbox点确定后后面的form窗口关闭。或者直接不出来。谢谢大家啦见图...
我是超级新手- -
大哥们帮忙 告诉我 这个怎么弄?
就是让 那个 msgbox 点确定后 后面的form 窗口关闭。或者直接不出来。
谢谢大家啦 见图 展开
大哥们帮忙 告诉我 这个怎么弄?
就是让 那个 msgbox 点确定后 后面的form 窗口关闭。或者直接不出来。
谢谢大家啦 见图 展开
6个回答
展开全部
我kao,!!!
你才是当真无愧的高手,这种方法者想得出来.``````值得借鉴```哈哈,给你多加个方法
Private Sub Form_Load()
y = InputBox("请输入你名字的拼音")
If y = "你女朋友的名字的拼音" Then '别用汉字,汉字会出错!
x = MsgBox("嘘!不要告诉别人,我喜欢你^_^!", , "嘿嘿")
Form1.Caption = "欢迎您,尊敬的" & y
Else
Form1.Caption = "欢迎您尊敬的" & y
End If
End Sub
然后在代窗体上随便写个小游戏之类的.多发给几个朋友,当她发现只有她一个人不一样时,一定会更加惊喜的...哈哈````越想越觉得你是个天才,加个HI友好不喽````
你才是当真无愧的高手,这种方法者想得出来.``````值得借鉴```哈哈,给你多加个方法
Private Sub Form_Load()
y = InputBox("请输入你名字的拼音")
If y = "你女朋友的名字的拼音" Then '别用汉字,汉字会出错!
x = MsgBox("嘘!不要告诉别人,我喜欢你^_^!", , "嘿嘿")
Form1.Caption = "欢迎您,尊敬的" & y
Else
Form1.Caption = "欢迎您尊敬的" & y
End If
End Sub
然后在代窗体上随便写个小游戏之类的.多发给几个朋友,当她发现只有她一个人不一样时,一定会更加惊喜的...哈哈````越想越觉得你是个天才,加个HI友好不喽````
展开全部
Private Sub Form_Load()
MsgBox "嘘!不要告诉别人,我喜欢你^_^!"
End
End Sub
MsgBox "嘘!不要告诉别人,我喜欢你^_^!"
End
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Load()
Form1.Visible = True '如果索性不让窗口出现就把这行给去掉
MsgBox "这样就可以了"
Unload Form1
End Sub
Form1.Visible = True '如果索性不让窗口出现就把这行给去掉
MsgBox "这样就可以了"
Unload Form1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If MsgBoxResult.Ok =MsgBoxResult.Ok Then
Me.Hide() '这里如果是Me.Close()就是关闭窗体
End If
Me.Hide() '这里如果是Me.Close()就是关闭窗体
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接从sub main() 启动就好
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询