ledangvan > 05-09-18, 10:46 PM
cpucloi > 06-09-18, 08:46 AM
mrsiro > 06-09-18, 09:17 AM
cpucloi > 06-09-18, 09:58 AM
ongke0711 > 06-09-18, 11:06 AM
Option Compare Database
Option Explicit
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub RegisterFile(ByVal sFileName As String)
ShellExecute 0, "runas", "cmd", "/c regsvr32 /s " & """" & sFileName & """", "C:\Windows\System32\", 0 'SW_HIDE =0
End Sub
Sub UnRegisterFile(ByVal sFileName As String)
ShellExecute 0, "runas", "cmd", "/c regsvr32 /u /s " & """" & sFileName & """", "C:\Windows\System32\", 0 'SW_HIDE =0
End Sub
mrsiro > 06-09-18, 04:53 PM
ongke0711 > 07-09-18, 10:42 AM
(06-09-18, 04:53 PM)mrsiro Đã viết: bạn có demo treeview với listview bằng vba ko cần dùng references ko. Cho mình xin tham khảo với