• 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ônghappy
    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.