module1.bas

学生成绩管理系统

Attribute VB_Name = "Module1"
Option Explicit


Public temp_template As Integer
Public Const C_template_class = 0
Public Const C_template_course = 1

Public mul_div As Integer
Public Const C_div = 0
Public Const C_mul = 1

Public Const Crow_max = 99
Public Const Ccol_max = 39
Public col_name As String

Public shool_name As String

Public col_youxiu(0 To Ccol_max) As Integer
Public col_jige(0 To Ccol_max) As Integer



Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub net_ERR_center(ByVal errmod As Integer, ByVal errno As Long, ByVal errmsg As String, ByVal errstr As String)

'        错误处理中心
'errmod 错误处理模式
'errno 系统错误代码
'ERRMSG 系统错误信息
'errstr 补充错误信息
If errno = 32755 Then
    Exit Sub
End If
Select Case errmod


      Case 0

'         Frm_netplay.Caption = "错误号：" + CStr(errno) + "   ，错误信息：" + errmsg + errstr

      Case 1

         Call MsgBox("错误号：" + CStr(errno) + vbCrLf + "错误信息：" + errmsg + vbCrLf + errstr, vbCritical)

End Select



End Sub

Sub netnetopen_FILEpageIE(ByVal address As String) '外浏览器访问网页
Dim i As Integer
On Error GoTo ErrHandler



i = ShellExecute(0&, vbNullString, address, vbNullString, vbNullString, vbNormalFocus)

'MsgBox i
'返回10767正确
'返回2，文件不存在
If i = 2 Then
Call MsgBox("文件不存在", 48)
End If

Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "netnetopen_FILEpageIE")

End Sub