Registro WIN

12 marzo 2019

services.msc as administrator

 

Regedit

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services

HKEY_LOCAL_MACHINE\SYSTEM\
CurrentControlSet\Services

HKEY_LOCAL_MACHINE

HKEY_CURRENT_USER.

\Software\Microsoft\Windows\CurrentVersion RunServices

DevExpress – Esportazione in XLS

28 febbraio 2019

Creare controllo dx:ASPxGridViewExporter 

Button con handler click

IDgvEXPWriteXlsToResponse(NomeFile)

 

SW Vario

12 dicembre 2018

https://www.deskshare.com/lang/it/ip-camera-viewer.aspx

Gestione files / DIR

13 maggio 2018

https://wellsr.com/vba/2016/excel/vba-select-folder-with-msoFileDialogFolderPicker/

 

 

Dot – Access

8 maggio 2018

http://forum.masterdrive.it/access-79/aprire-documento-word-in-access-12423/

myDoc.FormFields(“Nome Campo Modulo”).Result = myRec![Nome Campo Tabella]

 

Privte 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 OpenFile(hwnd As Long, File As String, Optional Operation As String = "open", Optional Param As String = "", Optional Dir As String = "")
    Call ShellExecute(hwnd, Operation, File, Param, Dir, 1)
End Sub

Private Sub Comando0_Click()
OpenFile Me.hwnd, "C:\prova.doc"
End Sub


Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click

Dim wrd As Word.Application
Dim wrd_doc As Word.Document

Set wrd = CreateObject(“word.application”)
Set wrd_doc = wrd.Documents.Open(“C:\prova.docusa il metodo Add al posto di open per file dot

wrd.Visible = True

Exit_Comando2_Click:
Exit Sub

Err_Comando2_Click:
Set wrd_doc = Nothing
Set wrd = Nothing

End Sub