pooya1072
سه شنبه 03 مرداد 1391, 20:40 عصر
سلام
من یک کلید توی رجیستری ایجاد کردم که عددی صحیح رو در خودش نگه می داره.حالا توی برنامه می خوام اون عدد رو بازیابی کنم.یک تابع توی یک ماجول قرار دادم.
Imports Microsoft.Win32
Module Variables
Public Function GetTimePassed() As Integer
Dim reg As RegistryKey
Dim Value As Integer
Dim KeyPath As String = "Software\ASW"
Dim KeyName As String = "ASWValue"
Try
reg = Registry.CurrentUser.OpenSubKey(KeyPath, True)
reg.GetValue(KeyName, Value)
reg.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return Value
End Function
End Module
من توی رجیستری چک کردم که اون کلید و مقدارش ثبت شده ولی در هر صورت مقدار برگشتی این تابع صفر ه
ببینید اگه ایراد کار رو متوجه شدید کمک کنید.
من یک کلید توی رجیستری ایجاد کردم که عددی صحیح رو در خودش نگه می داره.حالا توی برنامه می خوام اون عدد رو بازیابی کنم.یک تابع توی یک ماجول قرار دادم.
Imports Microsoft.Win32
Module Variables
Public Function GetTimePassed() As Integer
Dim reg As RegistryKey
Dim Value As Integer
Dim KeyPath As String = "Software\ASW"
Dim KeyName As String = "ASWValue"
Try
reg = Registry.CurrentUser.OpenSubKey(KeyPath, True)
reg.GetValue(KeyName, Value)
reg.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return Value
End Function
End Module
من توی رجیستری چک کردم که اون کلید و مقدارش ثبت شده ولی در هر صورت مقدار برگشتی این تابع صفر ه
ببینید اگه ایراد کار رو متوجه شدید کمک کنید.