谁能介绍给我简单学VB的网站 或是教学

Visual

Basic是一种可视化的、面向对象和采用

事件驱动

方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。

硅谷动力

的

视频教程

：http://www.enet.com.cn/eschool/video/vb/

摘自《全国计算机等败迅圆级考试二级教程－－Visual

Basic语言程序设计(修订版)》

入门资料:

http://www.diannaohang.com.cn/

http://51pg.go1.icpcn.com/

对于编程的一些基本语法、语句要察塌先弄明白，接下来要理解一些

可视化编程

的概念，比如昌激：对象、类等等。

这里：http://www.ibook8.com/book/vb.htm

有很齐全的VB入门教程，先去下载些看看

http://digi.it.sohu.com/7/0203/77/column206507782.shtml

这里也可能有你需要的。

参考资料：《全国计算机等级考试二级教程－－Visual

Basic语言程序设计(修订版)》

【下面是我给你假设的登陆界面】

1、添加两个窗体，分别是form1、form2

2、在form1中添加一个文本框text1作为密码框、一个命令按钮command1

3、在form2中添加一个控件WebBrowser1。（部件→Microsoft internet controls）

4、****************************form1代码如芹燃升下*******************************：

Private Sub Command1_Click()

If Text1.Text = "admin" Or Text1.Text = "ADMIN" Then

Form2.Show

Unload Me

Else

MsgBox "密码输入错嫌老误"

End

End If

End Sub

5、****************************form2代码如下*******************************：

Private Const meURL = "http://www.iz88.net&quot  '登陆成功后要显示的网页地址（这是我的站点）

Private Sub Form_Load()

WebBrowser1.Left = 0

WebBrowser1.Top = 0

WebBrowser1.Height = Me.Height - 400

WebBrowser1.Width = Me.Width - 100

WebBrowser1.Navigate (meURL)

Me.Caption = "登陆成功"

Me.WindowState = 2

End Sub

Private Sub Form_Resize()

If Me.WindowState 段困<> 1 Then

WebBrowser1.Height = Me.Height - 400

WebBrowser1.Width = Me.Width - 100

End If

End Sub

上面工程已经打包发送到你的邮箱中，希查收。

---