简单的管理员进入的代码，我总写不对

Question

我想做一个管理员进入的界面End SubPrivate Sub Text1_Change(Index As Integer)
If Text1 = "meibao" & Text2 = "meibaoxiayu" Then vbYesNo Yes = "您好，美报社管理系统"
Else
no = "用户名或密码错误"总是显求错误不对啊

Answer 1

If (Text1.Text = "meibao") and (Text2.Text = "meibaoxiayu") Then 
    Yes = "您好，美报社管理系统"
Else
    no = "用户名或密码错误"
endif

Answer 2

if text1="meibao" and text2="meibaoxiayu" then
msgbox "您好，美报社管理系统"
'此处调用系统界面
else
msgbox "用户名或密码错误"
end if

Answer 3

哪位大侠有QQ
或有EMAIL
我传过去帮我看看
谢谢了

Answer 4

flyingworm(@)21cn.com ：))) 兄的程序很正確，怎麽會有錯呢？？？是不是你的VB有問題？？？

Answer 5

我的e-mail是ertiao2000#yeah.net爲了防止垃圾邮件，我把 @寫成了#你自己改過來~~~盡量把問題說清楚一點~

Answer 6

我给楼上的两个
GEGE都发了邮件，
不知道你们收到没有，
我用的附件发的我的程序

Answer 7

由于你是在Private Sub Text1_Change(Index As Integer)中写的代码，只要TEXT1。TEXT的内容一改变就会报错，你不应该在Private Sub Text1_Change(Index As Integer)
中写此代码……
你可以在Private Sub Command1_Click()中写就不会有错了：D

Answer 8

这是在commond1_click 中写的。报错“使用无效”
If Text1 = "meibao" & Text2 = "meibaoxiayu" Then vbYesNo Yes = "您好，美报社管理系统"
Else
no = "用户名或密码错误" MsgBox "您好，美报社管理系统"
End sub

Answer 9

private sub command1_click()
    if text1.text="meibao" and text2.text="meibaoxiayu" then
        msgbox "你好,美报社管理系统"
        些处写进入系统代码......
    else
        msgbox "用户名或密码错误"
    end if
end sub

Answer 10

用ecivilian(抽象青年)的方法就可以，如果用yes或no来赋值，由于yes或no是VB中的常数，可能会出问题。

Answer 11

在Text1_Change(Index As Integer)中写的代码?
我注意到这个  (Index As Integer)，
text1是控件数组吗？
若不是，就把这个(Index As Integer)去掉。
否则，应该在Private Sub Command1_Click()中写
并且要把text1.text改为text1(0).text,也就是加上Index属性。
其他的基本与ecivilian(抽象青年) 相同。
private sub command1_click()
    if text1.text="meibao" and text2.text="meibaoxiayu" then
        msgbox "你好,美报社管理系统"
        些处写进入系统代码......
    else
        msgbox "用户名或密码错误"
    end if
end sub

Answer 12

楼上的GEGE
能否在线联系，
我弄不对我的QQ  ：36382307
email:     [email protected]

Answer 13

到这样的东西好像vb里面有例子。
你可以看一下。
他会自动帮你编译好的。
HOHO
good luck