24 lines
430 B
QBasic
24 lines
430 B
QBasic
Attribute VB_Name = "gfSettings"
|
|
Public Function GetSettingValue(varName As String) As String
|
|
|
|
GetSettingValue = GetSetting("GfSettings", "Otlk", varName, "0")
|
|
|
|
End Function
|
|
Public Function SetSettingValue(varName As String, varValue As String)
|
|
|
|
Call SaveSetting("GfSettings", "Otlk", varName, varValue)
|
|
|
|
End Function
|
|
'
|
|
Public Sub test()
|
|
|
|
|
|
'Call DeleteSetting("GfSettings", "Otlk")
|
|
' 'SaveMyVariable (56)
|
|
'
|
|
End Sub
|
|
|
|
|
|
|
|
|