• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Xin hỏi cách load các File Dll và OCX vào chương trình

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Xin hỏi cách load các File Dll và OCX vào chương trình
• Xin hỏi cách load các File Dll và OCX vào chương trình

• 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.
• Bài trước Bài tiếp