Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
read from registry
Last Updated: Jan 24 2017 16:43, Started by
bcornel
, Jan 23 2017 19:36
·
0
#1
Posted 23 January 2017 - 19:36
Salutare tuturor!
Am pus problema mea si pe sectiunea de incepatori. Ma adresez celor care vor sa-mi dea o mana de ajutor. Am nevoie de cateva linii de cod care puse in ms access sa: - citeasca daca in registry exista HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth" - daca exista sa porneasca calc.exe - daca nu exista sa incheie aplicatia msaccess Am ceva vagi idei de vb6, asa ca am facut ceva incercari cu coduri de pe net, sunt pe aproape, dar nu este exact ce-mi trebuie. Mai exact partea cu MsgBox registry_read ......... nu am nevoie ci doar sa declar key_path si key_name de care am nevoie. Private Function registry_read(key_path, key_name) As Variant Dim registry As Object Set registry = CreateObject("WScript.shell") registry_read = registry.regread(key_path & "\" & key_name) End Function Private Sub Form_Load() On Error GoTo Err_Handler MsgBox registry_read("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth") Shell "C:\WINDOWS\System32\calc.exe" Err_Handler: End End Sub Colegul "junior" mi-a recomandat urmatorul cod: Private Sub Form_Load() Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth") If regKey Is Nothing Then MsgBox("Nu-i") App.End Else Shell "C:\WINDOWS\System32\calc.exe" End If End Sub insa pe linia: Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth") zice ca ar fi o eroare de sintaxa. Ma puteti ajuta? Multumesc mult. |
#2
Posted 23 January 2017 - 21:06
#4
Posted 24 January 2017 - 16:43
Ah, scuze.
Incearca cu My.Computer.Registry.GetValue sau GetSetting: https://msdn.microso...e(v=vs.90).aspx https://msdn.microso...9(v=vs.90).aspx Edited by csgabe, 24 January 2017 - 16:44. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users