急高手帮忙教下怎么用VB.NET2008做个查询学生课程信息的资料库啊？？？

我用vb做了一个程序对数据库中的数据进行排序，程序如下：

我们提供的服务有：做网站、成都做网站、微信公众号开发、网站优化、网站认证、贡觉ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的贡觉网站制作公司

标准模块：

Type nas

custno As Integer

last_name As String

first_name As String

vip_status As String

address1 As String

assress2 As String

city As String

state As String

post_code As String

country As String

phone As String

fax As String

email As String

remarks As String

End Type

窗体模块：

Option Base 1

Dim aa(30) As nas

Dim t As nas

Private Sub Command1_Click()

Open "e:\vbb\custoly.db" For Random As #1

For i = 1 To 30

Get #1, i, aa(i)

i = i + 1

Next i

For j = 1 To 29

For k = j + 1 To 30

If aa(j).last_name aa(k).last_name Then

t = aa(j)

aa(j) = aa(k)

aa(k) = t

End If

Next k

Next j

For p = 1 To 30

print aa(p).last_name

Next p

End Sub

vb.net 2008 怎样进入调试模式？怎样逐语句运行？怎样添加监视？

在VB环境中执行源代码，本身就是调试模式

按F8即可逐语句运行

点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来

可以在变量、对象等语句上点击右键，选择“添加监视”即可

怎样用vb.net2008读写注册表?

（1）添加项

Dim reg As RegistryKey

reg = Registry.CurrentUser

reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)

reg.SetValue("Window Title", Me.TextBox1.Text)

（2）读取项

Dim reg As RegistryKey

Dim regStr As String

reg = Registry.CurrentUser

reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)

regStr = reg.GetValue("Window Title")

Me.TextBox1.Text = regStr

（3）删除项

Dim reg As RegistryKey

reg = Registry.CurrentUser

reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)

reg.DeleteValue("Window Title")

VB.net 2008如何写用户控件？

参考：

Public Class UserControl1

#Region "变量"

Dim Down_Color As Color = Color.Blue

Dim UP_Color As Color = Color.Gray

Dim Mode As Short = 0

Dim flag As Boolean

Dim offset_X As Integer

Dim offset_Y As Integer

Dim Mouse_P As Point

#End Region

#Region "属性"

'按下颜色

Public Property _DownColor As Color

Get

Return Down_Color

End Get

Set(ByVal value As Color)

Down_Color = value

End Set

End Property

'弹起颜色

Public Property _UpColor As Color

Get

Return UP_Color

End Get

Set(ByVal value As Color)

UP_Color = value

End Set

End Property

'滑动模式 0-横 1-竖

Public Property _Mode As Short

Get

Return Mode

End Get

Set(ByVal value As Short)

Mode = value

End Set

End Property

#End Region

Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.BackColor = UP_Color

End Sub

'鼠标按下

Private Sub UserControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

Me.BackColor = Down_Color

Mouse_P = e.Location

flag = True

End Sub

'鼠标移动

Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If flag = False Then Exit Sub

Select Case Mode

Case 0 '横向·

offset_X = e.X - Mouse_P.X

If Me.Location.X + offset_X + Me.Width = Me.ParentForm.Width Or Me.Location.X + offset_X = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X + offset_X, Me.Location.Y)

End If

Case 1 '竖向·

offset_Y = e.Y - Mouse_P.Y

If Me.Location.Y + offset_Y + Me.Height + 30 = Me.ParentForm.Height Or Me.Location.Y + offset_Y = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X, Me.Location.Y + offset_Y)

End If

End Select

End Sub

'鼠标弹起

Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

Me.BackColor = UP_Color

flag = False

End Sub

End Class

vb.net2008如何操作FTP服务器?比如登录并保持登录状态，然后遍历根目录及指定的目录，以获

具体方法如下：”、打开Serv－U的配置管理界面puzb在“全局用户”或者“域用户”中选择“创建cgko修改和删除用户帐户”；　2、在“创建，修改和删除用户帐户”的界面，选择“添加”。；3、在“用户属性“对话框，“用户信息”下的用户名为：Anonymous，密码为空，为其指定FTP的根目录。　4、然后在“目录访问“选项，点击“添加”，为其指定访问权限和目录。　5、最后点击“保存”6这样我们就成功添加了匿名用户。

文章题目：vb.net2008教程 vb2010教程
本文地址：http://scgulin.cn/article/hjcchj.html