Đá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
  Hướng Dẫn Tư vấn import data(đuôi csv) vào file access nguồn subasatran 4 352 01-09-17, 03:20 PM
Bài mới nhất: subasatran
  Xin file demo theo yêu cầu, tùy biến các query theo câu lệnh SQL Đình Phán 12 537 19-08-17, 07:08 AM
Bài mới nhất: cpucloi
  [Hỏi] Nối dữ liệu từ nhiều file Access?? btnnhut 12 665 17-07-17, 08:44 AM
Bài mới nhất: tranthanhan1962
  [Hỏi] Truyền dữ liệu giữa 2 file Access ?? btnnhut 3 208 03-07-17, 01:14 PM
Bài mới nhất: tranthanhan1962
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 1,201 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan

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ơ