-
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. -
RE: Xin hỏi cách load các File Dll và OCX vào chương trình
Noname > 18-11-11, 04:17 PM
Bạn thêm thông số /s sau regsvr32.exe mỗi khi gọi nó.
Ví dụ:
Mã:Shell "C:\WINDOWS\system32\regsvr32.exe /s C:\KETOANH&V\scrrun.dll", vbNormalNoFocus
Tuy nhiên, tham số này chỉ nên thêm vào sau khi chương trình của bạn chắc chắn không có lỗi nào. Vì nếu thêm /s, nhỡ may không thành công nó cũng im như chưa từng có! -
RE: Xin hỏi cách load các File Dll và OCX vào chương trình
quanghoasla > 19-11-11, 10:25 AM
Mình áp dụng 1 bài của Noname để tắt những cảnh báo warning đi bạn thử áp dụng xem sao nhé:
Private Sub Command38_Click()
Dim IntAnswer As Integer
DoCmd.SetWarnings False
IntAnswer = MsgBo"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
DoCmd.SetWarnings True
End If
bạn thử test xem sao nhé. chúc bạn thành công
End Sub -
RE: Xin hỏi cách load các File Dll và OCX vào chương trình
ledangvan > 21-11-11, 10:10 AM
(18-11-11, 04:17 PM)Noname Đã viết: Bạn thêm thông số /s sau regsvr32.exe mỗi khi gọi nó.
Ví dụ:
Mã:Shell "C:\WINDOWS\system32\regsvr32.exe /s C:\KETOANH&V\scrrun.dll", vbNormalNoFocus
Tuy nhiên, tham số này chỉ nên thêm vào sau khi chương trình của bạn chắc chắn không có lỗi nào. Vì nếu thêm /s, nhỡ may không thành công nó cũng im như chưa từng có!
Cảm ơn bác Noname nhiều, em làm được rồi, em vẫn để 2 cách : 1 là load các File đó vào chương trình ngay khi kiểm tra đăng nhập; 2 là vẫn để một nút như cũ cho chắc ăn.