VB6中怎样按下一个按钮则弹出一个对话框~~要具体~~

Question

像图片中那样，打开一个EXE，自动弹出一个登录的对话框，求解~感谢~

Answer 1

1,输入对话框的用法:
Private Sub Command1_Click()
h = InputBox("请输入文本框中显示的值")
Text1.Text = h
End Sub
2,消息对话框
Private Sub Command1_Click()
MsgBox ("你好")
End Sub
3,通用对话框（打开对话框,另存为对话框,颜色对话框,字体对话框,打印对话框,帮助对话框）
对用对话框控件不是标准控件,可以通过以下方法添加
工程-部件-控件选项卡 选中Microsoft Common Dialog Control6.0复选框 单击确定.
下面只举打开对话框
Private Sub Command1_Click()
CommonDialog1.Filter = "Access数据库(*.mdb)" '设置“打开”对话框的筛选条件
CommonDialog1.ShowOpen '弹出“打开”对话框
End Sub
建议看VB程序设计方面的书.
这个你直接在:工程-工程1属性-通用选项卡 的启动对象所选的那个窗体(比如名叫FrmMain)
在FrmMain下写如下代码:
Private Sub Form_Load()
FrmLogin.Show 1
End Sub
其中FrmLogin就是你弹出的那个登录窗体的名字.
1表示将窗体作为模式对话框显示，这种情况下，Show方法后的代码要等到模式对话框关闭之后才能执行，且焦点也不能移动到其他窗体；

Answer 2

peivate sub command1_click() '按下按钮1
msgbox "OK" '弹出对话框
end sub

Answer 3

private sub form_load()
form2.show 1
end sub