Xin hỏi cách load các File Dll và OCX vào chương trình
ledangvan > 18-11-11, 12:27 PM
Mình có làm một chương trình, khi chạy cần một số File *.DLL và *.OCX. Mình cũng đã tạo được nút để load các File này vào chương trình rồi tuy nhiên hình thức hơi thủ công. Mình muốn Khi bắt đầu chạy chương trình thì các File này tự load và không hiện các dòng báo "..... sucseesded -> OK" rồi phải bấm OK một loạt trông trả chuyên nghiệp chút nào.
Mình viết cái nút như sau :
Private Sub Command38_Click()
Dim IntAnswer As Integer
IntAnswer = MsgBox("B¹n cã muèn load File vµo kh«ng ?", _
vbYesNo + vbQuestion, _
"Load File sö dông ch¬ng tr×nh ?")
If IntAnswer = vbYes Then
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\comctl32.ocx", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\comdlg32.ocx", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\dmocx.dll", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\FM20.DLL", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\MSADODC.OCX", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\msadox.dll", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\MSCAL.OCX", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\MSCOMCTL.OCX", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\scriptpw.dll", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\scrrun.dll", vbNormalNoFocus
Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\sysmon.ocx", vbNormalNoFocus
'Shell "C:\WINDOWS\system32\regsvr32.exe C:\KETOANH&V\SNAPVIEW.ocx", vbNormalNoFocus
End If
End Sub
Có bác nào biết chỉ giùm với, xin cảm ơn.