Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xin hỏi cách load các File Dll và OCX vào chương trình
#1
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.
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
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ó!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#4
(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.
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 226 11 Giờ trước
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,502 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  [Hỏi] Quá trình thực hiện một lệnh với CSDL dinh_trong_hoa 1 175 02-08-16, 04:06 PM
Bài mới nhất: ongke0711
  [Hỏi] Xuất giá trị từ các Text Box ra file TXT k3nzyyb 10 540 29-06-16, 03:47 PM
Bài mới nhất: quyvt1993
  Về việc lập trình truy xuất thông tin từ cổng RS232 trong Access VBA lehongduc 0 134 23-05-16, 11:43 AM
Bài mới nhất: lehongduc

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ