。。。API函数省略
Dim SQL As String
Dim cx As String
Private Sub chbgbxt_Click()
Call SHShutDownDialog(0) ‘关闭系统对话框
End Sub
Private Sub chbgy_Click()
frmAbout.Show 1
’关于
End Sub
Private Sub chbksbz_Click()
Shell "hh.exe help.chm", vbNormalFocus
‘快速帮助
End Sub
Private Sub chbkzgl_Click()
dlstate = 0
frmdl.Show 1
’控制管理
End Sub
Private Sub chbqdcx_Click()
Dim RetVal
RetVal = Shell(cx, 1)
‘启动程序
End Sub
Private Sub chbyhgl_Click()
dlstate = 1
frmdl.Show 1
’用户管理
End Sub
Private Sub chbtccx_Click()
dlstate = 2
‘退出程序
frmdl.Show 1
End Sub
Private Sub cmdsx_Click()
Call addLIST
’刷新
End Sub
Private Sub Form_Load()
Dim cqx As String '本窗体使用的操作员权限
'权限设定
Call OpenConn
SQL = "select * from 权限设置"
rs.Open SQL, cn, 1, 1
cqx = rs!权限
rs.Close
Call CloseConn
If Mid(cqx, 1, 1) = 1 Then
Call jyrwglq
‘禁止任务管理器
End If
If Mid(cCzyqx, 2, 1) = 1 Then
Call ycrwl
’隐藏任务栏
End If
With ListView1
.ColumnHeaders.Add = "编号"
.ColumnHeaders.Add = "CXLBID"
.ColumnHeaders.Add = "程序名称"
.ColumnHeaders.Add = "可执行文件路径"
.ColumnHeaders(1).Width = 800
.ColumnHeaders(2).Width = 0
.ColumnHeaders(3).Width = 2750
.ColumnHeaders(4).Width = 0
End With
'---------------------------------------------
SQL = "select CXLBID,编号,程序名称,可执行文件路径 from 程序列表 ORDER BY CXLBID " '调用过程添加到列表listview
Call addLIST
Call closeexplore
ListView1.ListItems(1).Selected = True
Call ListView1_ItemClick
End Sub
Private Sub addLIST()
Me.ListView1.ListItems.Clear
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs.Fields(1))
addLVW.SubItems(1) = rs.Fields(1)
addLVW.SubItems(2) = rs.Fields(2)
addLVW.SubItems(3) = rs.Fields(3)
rs.MoveNext
Loop
rs.Close
Call CloseConn
End Sub
Private Sub Form_Resize()
Me.WindowState = 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call openexplore
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
cx = Trim(Item.ListSubItems(3).Text)
End Sub
Private Sub closeexplore()
Dim hwndShell As Long, i As Long
hwndShell = FindWindow("Progman", vbNullString)
If hwndShell = 0 Then
Exit Sub
Else
i = PostMessage(hwndShell, WM_QUIT, 0, 0)
End If
End Sub
Private Sub openexplore()
Shell "Explorer.exe", vbNormalFocus '执行新的Shell
End Sub
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call chbqdcx_Click
End If
End Sub
这段程序为什么一运行就出错?
目的是程序启动后默认选中listview1控件中的数据,然后按回车执行启动程序的操作。
|